use-packageからの移行のすゝめ - leaf.elでバージョン安全なinit.elを書く



# はじめに

この記事は [Emacs Advent Calendar 2018 - Qiita](https://qiita.com/advent-calendar/2018/emacs) の21日目の記事です。
前日は@hyaktさんの「[Dashboardで起動画面を素敵にしよう✨](https://qiita.com/hyakt/items/f4468facec0478e06f7a)」でした。
翌日は@gongoさんの「[Emacs で NES エミュレータを実装している話](http://gongo.hatenablog.com/entry/2018/12/22/190540)」です。

# モチベーション

私は[8月](https://github.com/conao3/dotfiles/commit/fd06cea5dd040ec1fb34225a3f3202200e00801e)から.emacs.d/init.elの大改革を行っており、その副産物としての成果物をEmacs Advent Calendarで共有させていただいていました。

まず「[.emacs.dの理想的なディレクトリ構造](https://qiita.com/conao3/items/851f6dea9e94ce73f385)」(7日目)について考え、一番カオスになっていた「[Org-Modeのエクスポート関連の設定] (https://qiita.com/conao3/items/f81cf964198d4da93a05) - ([orglyth.el](https://github.com/conao3/orglyth.el))」(14日目)を見直し、「[use-package](https://github.com/jwiegley/use-package)の細かなストレスを解消するために作り直し - ([leaf.el](https://github.com/conao3/leaf.el))」(この記事(21日目))、そのサポートのために「並列パッケージダウンロードを実現するパッケージ - ([feather.el](https://github.com/conao3/feather.el))」と「[新しいElispテストフレームワーク](https://qiita.com/conao3/items/098242804eb34da61f49) - ([cort.el](https://github.com/conao3/cort.el))」(8日目)を開発しています。

これらのパッケージとディレクトリ構造により、私のinit.elはEmacs-22からEmacs-26までのEmacsでエラーなく動作 ~~し~~ （する予定です（泣）feather.elの開発が間に合わなかったので、package.elに依存しているため、現状Emacs-24以上でしか動作しません。）、それらの環境は完全に分離されています。

そのためEmacs-26を常用し、いつもは各パッケージをHEADで利用している（melpaのデフォルト）が、よくわからないエラーが起こってそのハンドリングが煩わしい時、とりあえずEmacs-24に逃げて一段落するまで作業を続ける。みたいなことが出来ます。

また実行バイナリがそもそも異なり、それぞれで環境（Emacsから見える `user-emacs-directory` ）が完全に分離されているので、init.elの編集をEmacs-25で行い、その動作確認をEmacs-26を起動したり落としたりしてする。といったことが簡単にできます。

また現状考えられる最古のバージョンである、Emacs-22という化石にも対応しているため、Emacs-22でもほどほどに使うことが出来ます。

<http://dotfiles.conao3.com/> というURLでインストール用のシェルスクリプトをホスティングしているので、押し付けられたパソコンで実行するべきは `curl dotfiles.conao3.com | sh` というワンライナーでいつもの環境が整うことになります。（上記URLはshのMIMEタイプをhtmlにしているのでブラウザで表示できます。これもTipsとしては面白い話題かと思います。）

私のinit.elの大改革は今年中に終わらないと思います。。そして副産物の各パッケージもまだまだ発展途上ですが、開発を続けるので暇な時に覗いていただければと思います。


# 定義

この記事タイトルは煽りですが、本記事で「バージョン安全」とは「ターゲットとするそれぞれのEmacsで同一のinit.elをエラーなく実行できること」とします。そのため「ブランチなりディレクトリを分けて、Emacs-24用、Emacs-26用の異なるinit.elを用意する」方法はこの記事の範囲外です。

実際、この運用はしたことがあって、異なるブランチを見ているdotfilesフォルダを2つ用意して `-l` オプションで起動時に分ける運用をした事があるのですが、Emacs標準添付のパッケージへの設定などを2つのブランチで管理することになり、破綻してしまいました。


## use-packageについて

[use-package](https://github.com/jwiegley/use-package)は素晴らしいパッケージであって、多彩なキーワードをサポートし、初心者の方が避けがちなautoloadを上手く隠蔽してくれます。`require` ベースから `use-package` ベースにinit.elを代えるだけでEmacsの起動が早くなることもザラです。

また私にとっては、use-packageによって今までコメントで区切っていた各パッケージごとの設定が、見やすく分離されることも良い副産物でした。

```el
;;;;;;;;;;;;;;;; smartparens ;;;;;;;;;;;;;;;;

(require 'smartparens)
(require 'smartparens-config)
(sp-pair "$" "$")
(sp-use-smartparens-bindings)
(smartparens-global-strict-mode t)
(show-smartparens-global-mode t)
(smartparens-global-mode t)

;;;;;;;;;;;;;;;; auto-complete ;;;;;;;;;;;;;;;;

(require 'auto-complete)
(setq ac-auto-show-menu   0
      ac-delay            0
      ac-quick-help-delay 1
      ac-menu-height      15
      ac-auto-start       1
      ac-use-menu-map     t)
```

use-package導入前は上記のように設定しており、ブロックを分かりやすくするために `require` を明示的に実行していました。しかしuse-package導入後は以下のようになります。

```el
(use-package smartparens :ensure t :diminish ""
  :init (use-package markdown-mode :ensure t)
  :config
  (use-package smartparens-config)
  (sp-pair "$" "$")

  (sp-use-smartparens-bindings)
  (smartparens-global-strict-mode t)
  (show-smartparens-global-mode t)
  (smartparens-global-mode t))

(use-package auto-complete :ensure t :demand t :diminish ""
  :bind (:map ac-menu-map
              ("C-n" . ac-next)
              ("C-p" . ac-previous))
  :init
  (use-package fuzzy   :ensure t)
  (use-package pos-tip :ensure t)

  :config
  (use-package auto-complete-config)
  (ac-config-default)
  (setq ac-auto-show-menu   0
        ac-delay            0
        ac-quick-help-delay 1
        ac-menu-height      15
        ac-auto-start       1
        ac-use-menu-map     t)
```

このようにコメントや `require` 文によって明示的にブロックを区切らなくても、関連する設定群をわかりやすく見ることが出来ます。

S式を折りたたむ、[hs-minor-mode](http://syohex.hatenablog.com/entry/20110706/1309965284)との親和性も最高でした。全S式を折りたたむ `hs-hide-all` を実行すれば、設定しているパッケージを一覧することが出来ます。

![use-package-1.png](https://qiita-image-store.s3.amazonaws.com/0/9567/c5bd5940-3ff2-6c8d-910c-76037685ab2c.png)



気になるパッケージを見つけたらその部分だけ表示することも可能です

![use-package-2.png](https://qiita-image-store.s3.amazonaws.com/0/9567/30d2b7b5-b16d-6892-75b5-bc09b8fd421b.png)



そしてuse-packageの中が長くなる場合は、折りたたむ階層を代えることで以下の表示にもでき、編集するべき箇所をすばやく見つけることができます。

![use-package-3.png](https://qiita-image-store.s3.amazonaws.com/0/9567/86967789-0b14-88c2-2a02-c17eee820476.png)



そしてuse-packageをuse-packageの中に書けることを知り、ブロックの定義のように使うようになりました。use-packageには `:no-require` キーワードがあり、指定されたパッケージを `require` しないことにできるので、自由な見出しとして利用できるのです。

![use-package-4.png](https://qiita-image-store.s3.amazonaws.com/0/9567/fb093e44-4c64-8abb-69cf-6cf642f35841.png)



こうすることで、 `hs-hide-all` したときに見出しを目で探して、そこだけ展開して編集する。というふうに運用していました。


## use-packageの（に付随する）問題点

このように私のinit.elはuse-packageに深く依存していて、実際その文法は大好きでした。しかし不満点は出てくるもので、それは以下のようなものです。


### :if や :disabled キーワードの直感に反した動作

`ob-ipython` や `migemo` のように外部コマンドに依存するパッケージは、use-packageに `:if` キーワードが用意してあるので 次のように書けます。

```el
(use-package migemo
  :if (executable-find "cmigemo")
  :ensure t
  :config
  ;; depend on latest cmigemo
  ;; $ brew install cmigemo --HEAD
  (setq migemo-command "cmigemo")
  (setq migemo-options '("-q" "--emacs"))
  (setq migemo-dictionary "/usr/local/share/migemo/utf-8/migemo-dict")

  (setq migemo-user-dictionary nil)
  (setq migemo-regex-dictionary nil)
  (setq migemo-coding-system 'utf-8-unix)
  (migemo-init))

(use-package ob-ipython :ensure t
  :if (executable-find "jupyter")
  :config
  (add-hook 'org-babel-after-execute-hook 'org-display-inline-images 'append))
```

use-packageの `:if` キーワードはS式を受け取り、評価結果がnilの場合、他のキーワードをすべて無視し、そのuse-package節全体を `nil` に変換するキーワードです。そのため `ob-ipyhon` の例で言えば、 `jupyter` が見つからない時、そのすべての設定は `nil` の虚空に吸い込まれると思うし、[マニュアルにもそう書いてあります](https://github.com/jwiegley/use-package#prevent-loading-if-dependencies-are-missing)。

またinit.elの設定を軽く行って、動かしてみたところ動作が不安定な時、use-packageユーザーは `:disabled` キーワードを使用すると思います。このように。

```el
(use-package elscreen-persist :ensure t :disabled t
    :config
    (elscreen-persist-mode 1)

    ;; desktop.el settings
    (setq desktop-files-not-to-save "")
    (setq desktop-restore-frames nil)
    (desktop-save-mode t))
```

(`:disabled` キーワードはそれが指定された瞬間にuse-package節を `nil` に変換します。つまり `:disabled` も `:disabled nil` も `:disabled t` もすべて `nil` になります。しかし私は統一性を重視して明示的に指定していました。)

しかしコマンドが見つからない状況であっても `migemo` や `jupyter` はなぜか読み込まれ、起動時にエラーになる他、`elscreen-persist` は当時バグっておりぐちゃぐちゃなウィンドウ構成を復元してきました。

scratchバッファで `macroexpand` してもきちんと `nil` になっており、当時Elisp初心者だった私は解決できない問題としてelpaディレクトリを全削除して対処していました。
全削除してもう一度世界をやり直すと、エラーなく起動することも理解不能でした。

（今考えると `(package-initialize)` でダウンロード済みのパッケージが全て読み込まれることが原因だと分かります。
実際、 `(package-initialize t)` とするとpackage.elの初期化だけ行って各パッケージの初期化は行わないモードになります。
しかしこのオプションを使っている人はいるのでしょうか？

またpackage.elを読むと特定のパッケージのみを初期化する変数を見つけたのですが、そのドキュメントは整備されているのでしょうか。。feather.elを作る過程でpackage.elを読んでいて気づいたので、後の祭り感がすごかったです。）

### 新しいキーワードを追加するのが困難

`use-package` はそれ自体、拡張されることをよく考えられていて、キーワードを追加することは簡単である。というのはよく語られていたと思いますが、実際そのAPIを外部から利用したものは当時[Quelpa](https://github.com/quelpa/quelpa-use-package)しかありませんでした。現在は[straight.el](https://github.com/raxod502/straight.el)もuse-package用のフロントエンドを提供していますね。

私はuse-packageに参考URLを書ける、 `:url` を追加したかったのですが、elispに親しんでなかったこともあって、1週間悩んで諦めてしまいました。（コメントは暗い文字になるので、文字列として書けたら読みやすくなるかなというアイデア）

結局 `(add-to-list 'use-package-keywords` でGitHub全体を検索して、同じことをしている人の[コード](https://github.com/0x7c48/emacs.d/blob/c3f020d2e38f0f13a95a426e819cdd0216b589c1/emacs-lisp/system/_use-package.el)を見つけることができました。


### あるパッケージだけ違うディストリビューションからダウンロード出来ない

これはuse-packageというよりpackage.elの問題です。パッケージはすべて `:ensure t` でmelpaからダウンロードしていたのですが、例えば「[{Emacs} key-chord.el を改良してキーバインドし放題になった話](https://qiita.com/zk_phi/items/e70bc4c69b5a4755edd6)」という記事を読んで、zkさんのフォーク版の `key-chord` を使いたい！と思ったとします。

package.elはGitHubからのダウンロードができない？ので `:init` 節に `el-get` を用いてダウンロードします。

```el
(use-package key-chord
  :init  (el-get-bundle zk-phi/key-chord)
  :config
  (setq key-chord-two-keys-delay 0.15
        key-chord-safety-interval-backward 0.1
        key-chord-safety-interval-forward  0.25)
  (key-chord-mode 1))
```

こんな柔軟に書けるuse-package素晴らしい！と思っても、次のパッケージの設定によって儚く壊れてしまいます。

```el
(use-package use-package-chords :ensure t)
```

これは全く問題がないと思われますが、 `use-package-chords` は `key-chord` に依存しており、package.elからはインストールしていないと判断されるので、package.elによってアップストリームの `key-chord` がダウンロードされます。

zkさんの `key-chord` を読み込んでいる場合、melpaの `key-chord` は多重ロードされませんが、次回起動時 `(package-initialize)` によってmelpaの `key-chord` が読み込まれてしまいます。。

これを防ぐには、あるパッケージを別のフォーク版に代えた場合、それに依存している全パッケージを自分でel-getにより管理しなければなりません。つらい。。

何がどんなパッケージに依存しているか意識せずインストールできるpackage.elの利点が失われてしまいました。
こういう、いろいろよしなにしてくれるパッケージは抽象化されすぎていて少し変わったことをすると破綻してしまうパターンがあります。


### use-packageに依存したinit.elをEmacs-22で読み込む（と骨抜きになる）

前段のように私のinit.elはuse-packageに深く依存していて、それは一般的には問題ないのですが、私のようにEmacs-22という化石でも動かしたいとなると難しくなってきます。

一般的な解決方法は `use-package` の読み込みに失敗したら、use-package節をすべて `nil` に変換することにすることです。（[出典](https://qiita.com/kai2nenobu/items/5dfae3767514584f5220#use-package-%25E3%2581%258C%25E5%25AD%2598%25E5%259C%25A8%25E3%2581%2597%25E3%2581%25AA%25E3%2581%2584%25E5%25A0%25B4%25E5%2590%2588)）

```el
(when (or (version< emacs-version "24.0")
          (unless (require 'use-package nil t)))
  (defmacro use-package (&rest args)))
```

これは起動しているEmacsが24より下の場合、use-packageというマクロを上書き定義し、use-package節をすべて `nil` に変換してしまうことにします。Emacs-23は `package.el` も満足に動かないし、外部パッケージの設定をすべて `nil` に変換してしまっても一般的には問題ないと思います。

しかし私はEmacs標準添付パッケージもすべて `use-package` で設定を行っており、 `use-package` をすべて `nil` に変換してしまっては`-q` オプションで起動したときとほぼ変わらないEmacsが起動してしまいます。。。

![use-package-5.png](https://qiita-image-store.s3.amazonaws.com/0/9567/9c764040-0ec0-632e-1386-6ed3c2d3b6b9.png)



なんのために同じinit.elを読み込んでいるのかわかりません。

この時代にその解決方法として、ブランチを切って標準添付パッケージについては `use-package` を使わないinit.elを用意する運用を行っていました。この運用は前段に書いたとおり、同じコードがブランチに散らばり、すぐに管理不能になりました。。


# use-packageに代わるパッケージ, leaf.el

これらの問題点を解決するべく私が開発しているのが[leaf.el](https://github.com/conao3/leaf.el)です。use-packageに心酔している私が開発しているので、基本的にはuse-packageと同様の記述を提供します。

開発が追いついていないこともあり、現在実現していないことも多々ありますが、将来的に実現する予定です。

命名は「設定の『葉っぱ』を設定できるパッケージ」に由来します。Melpaに登録する時、分かりづらいので変えてくれと言われたら変わるかもしれません。

use-packageはpackageの設定を行うことを念頭に置いているのでその命名になっていますが、私の使い方ではpackageだけにとどまりまっていません。
前述のように何か一つの目的のために多くの行を咲くようであったら、それをleafで囲みますし、また別の区切りもあるかもしれません。

現在の私のinit.elではCソース1ファイルずつにleafを割り当てて設定を行っています。

![use-package-6.png](https://qiita-image-store.s3.amazonaws.com/0/9567/bd93a453-d0eb-eec1-83d9-6e4125a0557f.png)

「一つ一つの『葉っぱ』が定義することは少ないかもしれないが、それが集まることによりEmacsがより手に馴染み、それぞれの唯一無二のエディタになる」という期待を込めています。

なお「feather.el」は「fetcher」につづりが似てるからそう命名しました。「羽のように軽快にパッケージをダウンロードするから」みたいにしておいたほうがかっこいいかもしれません。完全に後付けですが。

## Emacs-22からの動作を保証

use-packageから離れる原因となった大きな理由を解消します。実際、lispなのでEmacs-22で動くようなコードを書くことはあまり障害になりません。


## feather.elとの連携（開発中）

前段でpackage.elの不満点が出てきました。そういえばpackage.elはダウンロードするバージョンの固定ができないし、なぜか1つづつダウンロードするし、なぜかコンパイルする間、次のパッケージをダウンロードしません。

ということで新しいパッケージマネージャの開発に着手しました。tadsanさんに教えていただいたのですが、PHPでもこういう思想で作られた[ソフトがある](http://blog.tojiru.net/article/432944706.html)ようです。

feather.elは依存関係をきちんと考慮した上で、並列にパッケージをダウンロード・コンパイルします。そして[load-pathが必要以上に長くなると起動時間が遅くなる](https://qiita.com/takaxp/items/c01fb7737496af9a8fcd#%25E3%2583%25AD%25E3%2583%25BC%25E3%2583%2589%25E3%2583%2591%25E3%2582%25B9%25E3%2582%2592%25E3%2582%2580%25E3%2582%2584%25E3%2581%25BF%25E3%2581%25AB%25E5%25A2%2597%25E3%2582%2584%25E3%2581%2595%25E3%2581%25AA%25E3%2581%2584)というtakaxpさんの知見を活かし、コンパイルされたファイルは全て一つのディレクトリに保存されます。

もちろん投げっぱなしではなく、パッケージの削除を指示すると複数ファイルの管理をきちんと行ってくれます。

leaf.elはfeather.elをデフォルトで `:ensure` キーワードのバックエンドとして使用し、ユーザーとしては `use-package` を `leaf` に置換するだけでfeather.elのパワフルなパッケージマネージメントを利用できるようになる予定です。


## ユーザーによる自由なキーワード追加

use-packageはキーワードの引数をnormarizeとhandlerの2つの関数で管理していますが、それが処理が見づらい原因になっていると思います。

leaf.elはhandlerの一つだけの関数で処理を行っており、とても素直な実装になっています。
さらにhandlerは必ずリストを返し、受け取り側では必ず `,@` でリストを開いて結合するルールになっており、統一性のあるコードになっていると思います。マクロ展開なので、バッククオートとカンマが多く、マクロに慣れていないと読みづらい可能性があります。。

逆にleaf.elへのキーワード追加を通してlispのマクロに親しむきっかけにもなると思います。まだ途中で英語のみですが、分かりやすいドキュメントを書く予定です。

ほしいキーワードがあったらissueを書いていただくほうがより簡単かもしれません。本体に入れるかはさておき、レポジトリを分けたとしてもleaf.elにとっては本体のキーワードと同様に処理できます。

# まとめ

時間に追われて尻すぼみになってしまいました。興味を持っていただけたらぜひ[leaf.el](https://github.com/conao3/leaf.el)や[feather.el](https://github.com/conao3/feather.el)をウォッチしていただければと思います。