tarao / el-get-lock Goto Github PK

Hi,

If I initialize like the below:

(el-get-bundle tarao/el-get-lock (el-get-lock))

I get an error on the 2nd and subsequent loads of emacs:

error: El-get can not find a recipe for package "auth-source-xoauth2"

However if I change only this single line to the below keeping everything else identical:

(el-get-bundle tarao/el-get-lock) 
(el-get-lock)

This works fine.

I know the instructions recommend the later way - just wondering why the doing the initialization inside the el-get-bundle call doesn't work?

Also can you confirm if the order of el-get-lock-package-versions in the el-get.lock file is expected to make any difference when loading?

Thanks - and great package by the way :-)

概要

el-get-bundle と el-get-lock を組み合わせて導入すると、二回目移行の起動時に初期化が行われない場合があります。

詳細

el-get.lock が生成されていない状態で、 (el-get-lock) をした上で (el-get-bundle) を使ってパッケージのインストールを行うと、
el-get-status-file には :checksum が無く :after は nil の状態で保存されます。

この状態で再起動すると、初期化の際に https://github.com/dimitri/el-get/blob/master/el-get.el#L381 が呼ばれ、これは el-get-status-file から読み込まれます。
直前の https://github.com/dimitri/el-get/blob/master/el-get.el#L377-L378 この部分で el-get-status-file が更新されていれば問題ないのですが、 el-get-bundle のスコープで定義された el-get-sources ( :after と :checksum つき)と el-get-status-file の内容をマージするとき https://github.com/dimitri/el-get/blob/master/el-get-status.el#L364-L373 に、 :checksum の有無が異なるために更新が行われず、
結果として :after nil で :checksum が無い source を元に初期化が行われてしまいます。

対応案

el-get-read-package-status-recipe に :checksum をつけるようアドバイスする:

(defun el-get-lock-ad-read-package-status-recipe (orig-func &rest args)
  (let* ((recipe (apply orig-func args))
         (package (first args))
         (checksum (el-get-checksum package)))
    (if (plist-get recipe :checksum)
        recipe
      (plist-put recipe :checksum checksum))))
(advice-add #'el-get-read-package-status-recipe :around #'el-get-lock-ad-read-package-status-recipe)

もしくは、el-get-status-file に checksum も記録するように hook を仕込む:

(defun el-get-lock-save-installed-version-to-status (package)
  (let* ((name (if (stringp package) package (el-get-source-name package)))
         (checksum (ignore-errors (el-get-checksum name)))
         (version (and checksum (list :checksum checksum)))
         (recipe (el-get-package-def name)))
    (when (and version (not (plist-get recipe :checksum)))
      (el-get-save-package-status name "installed" (append version recipe)))))
(add-hook 'el-get-post-install-hooks #'el-get-lock-save-installed-version-to-status)

どちらかで対応できそうでした。