emacs-lisp

概要

Emacs Lisp を書くための設定。まあそんなにしっかり書いてないので、あんまり設定は入ってない

Hook

Hook 用の関数を定義してその中に色々書いている。

  • とりあえず行数表示が欲しいので display-line-numbers-mode を有効化
  • 当然補完もしたいので company-mode を有効にしている
  • カッコの対応などもいい感じに動いて欲しいので smartparens-mode とその strict-mode を有効にしている
(defun my/emacs-lisp-mode-hook ()
  (display-line-numbers-mode 1)
  (origami-mode 1)
  (company-mode 1)
  (company-posframe-mode 1)
  (copilot-mode 1)
  (smartparens-mode 1)
  (turn-on-smartparens-strict-mode))

そんで最後にその関数を hook に突っ込んでる。

(add-hook 'emacs-lisp-mode-hook 'my/emacs-lisp-mode-hook)

アイコン挿入コマンドの用意

時々 UI 設定目的で絵文字を使うことがあるので挿入できるコマンドを用意している。最近使った記憶ないけど。

(defun my/insert-all-the-icons-code (family)
  (interactive)
  (let* ((candidates (all-the-icons--read-candidates-for-family family))
         (prompt     (format "%s Icon: " (funcall (all-the-icons--family-name family))))
         (selection  (completing-read prompt candidates nil t)))
    (insert "(all-the-icons-" (symbol-name family) " \"" selection "\")")))

キーバインド

emacs-lisp-mode 用に major-mode-hydra を設定している。けどそんなにしっかり Emacs Lisp を書いてるわけではないのがバレバレな感じである。

(with-eval-after-load 'major-mode-hydra
  (major-mode-hydra-define emacs-lisp-mode (:separator "-" :quit-key "q" :title (concat (all-the-icons-fileicon "elisp") " Emacs Lisp"))
    ("Describe"
     (("F" counsel-describe-function "Function")
      ("V" counsel-describe-variable "Variable"))

     "Insert Icon Code"
     (("@a" (my/insert-all-the-icons-code 'alltheicon) "All the icons")
      ("@f" (my/insert-all-the-icons-code 'fileicon)   "File icons")
      ("@F" (my/insert-all-the-icons-code 'faicon)     "FontAwesome")
      ("@m" (my/insert-all-the-icons-code 'material)   "Material")
      ("@o" (my/insert-all-the-icons-code 'octicon)    "Octicon")
      ("@w" (my/insert-all-the-icons-code 'wicon)      "Weather")))))
Key 効果
F 関数を調べる
V 変数を調べる
@a all-the-icon のアイコンを挿入
@f fileicon のアイコンを挿入
@F FontAwesome のアイコンを挿入
@m Material Icons のアイコンを挿入
@o Octicons のアイコンを挿入
@w 天気アイコンを挿入

Eask

Eask は Emacs Lisp のパッケージ作成の際に便利なツール。

その時に Eask という名前のファイルを編集するのでそのメジャーモードなどを利用している。

インストール

Eask 関係のパッケージは el-get には登録されていないので自前でレシピを用意している

(:name eask
       :website "https://github.com/emacs-eask/eask"
       :description "Core Eask APIs, for Eask CLI development"
       :type github
       :pkgname "emacs-eask/eask")

(:name eask-mode
       :website "https://github.com/emacs-eask/eask-mode"
       :description "Major mode for editing Eask files"
       :type github
       :pkgname "emacs-eask/eask-mode"
       :depends (eask))

(:name flycheck-eask
       :website "https://github.com/flycheck/flycheck-eask"
       :description "Eask support in Flycheck"
       :type github
       :pkgname "flycheck/flycheck-eask"
       :depends (flycheck))

で el-get-bundle でインストールしている

(el-get-bundle eask-mode)
(el-get-bundle flycheck-eask)

設定

とりあえず flychek 起動時に flycheck-eask も起動するようにしている。

(with-eval-after-load 'flycheck
  (add-hook 'flycheck-mode-hook 'flycheck-eask-setup))

けどうまく動いてないんだよなあ。まあどこかで調整する。