;(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 ") 'windmove-left) (global-set-key (kbd "\C-c ") 'windmove-right) (global-set-key (kbd "\C-c ") 'windmove-up) (global-set-key (kbd "\C-c ") '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))