Emacs環境をアップデートする（straight.el）

長年使ってきたMacBookPro Mid2010からMacBookAir2018に買い替えました。
きっかけがないとなかなか設定を見直さないため、何年ぶりかに実施です。

これまでは下記のようにパッケージごとに設定ファイルを分けてきたのですが、そこまでこだわった使い方をしていないため、init.elにまとめることにしました。
こだわりの設定し始めたらファイル分けたほうがいいのかもしれませんが、個人的にはスッキリして満足です。
起動時間もそこまで気になるほどじゃないのでuse-packageも使わずにいきます。

~/.emacs.d/

init.el
./inits/
    ├── 01_basic.el
    └── 02_helm.el
    └── 03_recentf.el

Emacs

straight.el

パッケージマネージャです。
init.elにstraight-use-packageを書くだけでパッケージのインストールまで完了します。

init.el

(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

参考：Emacsパッケージマネージャ決定版：これからのパッケージ管理はstraight.elで決まり！

helm

init.el

(straight-use-package 'helm)
(helm-mode 1)
(define-key global-map (kbd "M-y") 'helm-show-kill-ring)
(define-key global-map (kbd "C-x C-f") 'helm-find-files)
(define-key global-map (kbd "C-x C-r") 'helm-recentf)
(define-key helm-map (kbd "C-h") 'helm-ff-delete-char-backward)
(define-key helm-find-files-map (kbd "TAB") 'helm-execute-persistent-action)

個人的な慣れの問題からC-hとTABを定義してます。
参考：Emacs に革命を起こすパッケージ「helm」

recentf-ext

最近開いたファイルを一覧で表示してくれる。
すごいよく使う機能。
C-x C-rに設定してます。

init.el

(straight-use-package 'recentf-ext)
(recentf-mode 1)
(setq recentf-max-saved-items 200)
(setq recentf-save-file "~/.emacs.d/recentf")
(setq recentf-auto-cleanup 'never)
(setq helm-for-files-preferred-list
      '(helm-source-buffers-list
        helm-source-recentf
        helm-source-bookmarks
        helm-source-file-cache
        helm-source-files-in-current-dir
        helm-source-bookmark-set
        helm-source-locate))

company

補完用パッケージ。

init.el

(straight-use-package 'company)
(global-company-mode)
(setq company-transformers '(company-sort-by-backend-importance))
(setq company-idle-delay 0)
(setq company-minimum-prefix-length 3)
(setq company-selection-wrap-around t)
(setq completion-ignore-case t)
(setq company-dabbrev-downcase nil)
(global-set-key (kbd "C-M-i") 'company-complete)
(define-key company-active-map (kbd "C-n") 'company-select-next)
(define-key company-active-map (kbd "C-p") 'company-select-previous)
(define-key company-search-map (kbd "C-n") 'company-select-next)
(define-key company-search-map (kbd "C-p") 'company-select-previous)
(define-key company-active-map (kbd "C-s") 'company-filter-candidates)
(define-key company-active-map (kbd "C-i") 'company-complete-selection)
(define-key company-active-map [tab] 'company-complete-selection)
(define-key company-active-map (kbd "C-f") 'company-complete-selection)
(define-key emacs-lisp-mode-map (kbd "C-M-i") 'company-complete)

web-mode

HTML書くとき用。

init.el

(straight-use-package 'web-mode)
(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
(defun web-mode-hook ()
  (setq web-mode-html-offset   2)
  (setq web-mode-css-offset    2)
  (setq web-mode-script-offset 2)
  (setq indent-tabs-mode nil)
  (setq tab-width 2))
(add-hook 'web-mode-hook 'web-mode-hook)

php-mode

PHP書くとき用。補完にcompany-php入れてます。

init.el

(straight-use-package 'php-mode)
(straight-use-package 'company-php)
(add-hook 'php-mode-hook
          '(lambda ()
             (company-mode t)
             (ac-php-core-eldoc-setup)
             (make-local-variable 'company-backends)
             (add-to-list 'company-backends 'company-ac-php-backend)))

screenshot

js2-mode

js書くとき用。補完にcompany-tern入れてます。

init.el

(straight-use-package 'js2-mode)
(straight-use-package 'company-tern)
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
(add-hook 'js2-mode-hook 'tern-mode)
(add-to-list 'company-backends 'company-tern)

別途ternをインストールする必要があります。
npm install -g tern
screenshot

flycheck

シンタックスチェック用。

init.el

(straight-use-package 'flycheck)
(add-hook 'after-init-hook #'global-flycheck-mode)

migemo

日本語インクリメンタルサーチ。

init.el

(straight-use-package 'migemo)
(straight-use-package 'helm-migemo)
(setq migemo-command "cmigemo")
(setq migemo-options '("-q" "--emacs"))
(setq migemo-dictionary "/usr/local/Cellar/cmigemo/20110227/share/migemo/utf-8/migemo-dict")
(setq migemo-user-dictionary nil)
(setq migemo-regex-dictionary nil)
(setq migemo-coding-system 'utf-8-unix)
(load-library "migemo")
(migemo-init)

参考：migemo.el : ローマ字で日本語検索する神ツールMigemoが更新されたよ！

swiper + migemo

isearchを一覧でだしてくれる。＋日本語対応。

init.el

(global-set-key "\C-s" 'swiper)
(defvar swiper-include-line-number-in-search t)
(straight-use-package 'avy)
(straight-use-package 'swiper-helm)
(straight-use-package 'avy-migemo)
(avy-migemo-mode 1)
(require 'avy-migemo-e.g.swiper)

screenshot

番外：VSCode

普段はemacsなのですが、マークダウンをプレビュー見ながら書きたい時や、PDFにしたいとき用にVSCode入れました。

Extensions

• Emacs Friendly Keymap
• Markdown All in One
• Markdown PDF

screenshot