126 lines
3.5 KiB
EmacsLisp
126 lines
3.5 KiB
EmacsLisp
|
||
|
||
;(global-display-line-numbers-mode)
|
||
;(global-linum-mode) ;行番号の後にスペースがない謎
|
||
(line-number-mode t)
|
||
(column-number-mode t)
|
||
;(display-line-numbers-mode)
|
||
|
||
|
||
;;auto-complete がフリーズする問題なら
|
||
(setq ac-use-quick-help nil)
|
||
|
||
;;括弧強調
|
||
(require 'smartparens)
|
||
(smartparens-global-mode t)
|
||
|
||
(add-to-list 'default-frame-alist
|
||
'(font . "DejaVu Sans Mono-12"))
|
||
|
||
;;;https://blog.misosi.ru/2019/08/05/change-emacs-font-size-in-gui-easily/
|
||
(defun change-font-size (size)
|
||
"Change font size (clearly `:height` in `face-attribute`) to given SIZE."
|
||
|
||
(interactive
|
||
(list
|
||
(read-number
|
||
(format "Input font size (current=%d): " (face-attribute 'default :height))
|
||
nil)))
|
||
|
||
(set-face-attribute 'default nil :height size)
|
||
)
|
||
|
||
|
||
;; 折りたたみ設定
|
||
(add-hook 'prog-mode-hook #'hs-minor-mode)
|
||
(global-set-key (kbd "C-\\") 'hs-toggle-hiding)
|
||
(global-set-key (kbd "M-\\") 'hs-hide-all)
|
||
(global-set-key (kbd "M-\|") 'hs-show-all)
|
||
|
||
;;;https://qiita.com/muyuu/items/63a82c819bbbe65d37a2
|
||
;;;trampでリモートサーバのファイルをSSH経由で編集
|
||
(require 'tramp)
|
||
(setq tramp-default-method "sshx")
|
||
|
||
;; Windowスプリットするサイズを自動調整
|
||
(golden-ratio-mode -1)
|
||
(add-to-list 'golden-ratio-exclude-buffer-names " *NeoTree*")
|
||
(add-to-list 'golden-ratio-exclude-buffer-names " *Ilist*")
|
||
|
||
|
||
(leaf blacken
|
||
:ensure t
|
||
:custom ((blacken-line-length . 119) ; 1行の流さを119文字まで許可
|
||
(blacken-skip-string-normalization . t))) ; 文字リテラルの「''」を「""」に変更しないように抑制
|
||
|
||
;;括弧を色分け
|
||
(leaf rainbow-delimiters
|
||
:ensure t
|
||
:hook
|
||
((prog-mode-hook . rainbow-delimiters-mode)))
|
||
|
||
;;https://qiita.com/megane42/items/ee71f1ff8652dbf94cf7
|
||
;; rainbow-delimiters を使うための設定
|
||
(require 'rainbow-delimiters)
|
||
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
|
||
|
||
|
||
;; 括弧の色を強調する設定
|
||
(require 'cl-lib)
|
||
(require 'color)
|
||
(defun rainbow-delimiters-using-stronger-colors ()
|
||
(interactive)
|
||
(cl-loop
|
||
for index from 1 to rainbow-delimiters-max-face-count
|
||
do
|
||
(let ((face (intern (format "rainbow-delimiters-depth-%d-face" index))))
|
||
(cl-callf color-saturate-name (face-foreground face) 30))))
|
||
(add-hook 'emacs-startup-hook 'rainbow-delimiters-using-stronger-colors)
|
||
;; rainbow-delimiters
|
||
;(require 'rainbow-delimiters)
|
||
;(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
|
||
|
||
|
||
;; neotree（サイドバー）
|
||
(require 'neotree)
|
||
(global-set-key "\C-o" 'neotree-toggle)
|
||
|
||
;;window移動にCTRL+カーソルを使う！
|
||
(global-set-key (kbd "\C-c <left>") 'windmove-left)
|
||
(global-set-key (kbd "\C-c <right>") 'windmove-right)
|
||
(global-set-key (kbd "\C-c <up>") 'windmove-up)
|
||
(global-set-key (kbd "\C-c <down>") 'windmove-down)
|
||
|
||
;; scroll 1行
|
||
(setq scroll-step 1)
|
||
(setq scroll-conservatively 1)
|
||
(setq scroll-margin 5)
|
||
(setq next-screen-context-lines 1)
|
||
|
||
;; スクロールは1行ごとに
|
||
;(setq mouse-wheel-scroll-amount '(1 ((shift) . 5)))
|
||
|
||
;; スクロールの加速をやめる
|
||
(setq mouse-wheel-progressive-speed nil)
|
||
|
||
;; bufferの最後でカーソルを動かそうとしても音をならなくする
|
||
(defun next-line (arg)
|
||
(interactive "p")
|
||
(condition-case nil
|
||
(line-move arg)
|
||
(end-of-buffer)))
|
||
|
||
;;imenu-list
|
||
(setq speedbar-use-images nil)
|
||
(global-set-key (kbd "M-i") 'imenu-list-smart-toggle)
|
||
|
||
;; 行番号トグル
|
||
(global-set-key (kbd "C-^") 'display-line-numbers-mode)
|
||
|
||
;;json
|
||
(require 'json-reformat)
|
||
|
||
;; キーアシスト
|
||
(use-package which-key
|
||
:diminish which-key-mode
|
||
:hook (after-init . which-key-mode))
|