关于 use-package 的 :custom

eusr · 2024 年4 月 3 日 15:08

背景：use-package 除了提供 :preface、:init、:config 外，还提供了 :bind、:hook、:config。

:custom 是否可以与 :config + setq 混用？比如：在配置 SLIME 时，需要指定 LISP 程序的位置：

(setq inferior-lisp-program "/opt/sbcl/bin/sbcl")

如果写成：

(use-package slime
  :ensure t
  :custom (inferior-lisp-program "/opt/sbcl/bin/sbcl"))

是不行的，SLIME 启动的时候依旧无法找到 sbcl 的位置，这里必须写成：

(use-package slime
  :ensure t
  :config
  (setq inferior-lisp-program "/opt/sbcl/bin/sbcl"))

xinyifly · 2024 年4 月 3 日 16:21

:custom 只能修改用 defcustom 声明的变量

github.com

slime/slime/blob/7e8e754f0eec45beeb7294b1c2d28257fa24ad29/slime.el#L964


      
          
          ;;;; Starting SLIME
          ;;;
          ;;; This section covers starting an inferior-lisp, compiling and
          ;;; starting the server, initiating a network connection.
          
          ;;;;; Entry points
          
          ;; We no longer load inf-lisp, but we use this variable for backward
          ;; compatibility.
          (defvar inferior-lisp-program "lisp"
            "*Program name for invoking an inferior Lisp with for Inferior Lisp mode.")
          
          (defvar slime-lisp-implementations nil
            "*A list of known Lisp implementations.
          The list should have the form:
            ((NAME (PROGRAM PROGRAM-ARGS...) &key KEYWORD-ARGS) ...)
          
          NAME is a symbol for the implementation.
          PROGRAM and PROGRAM-ARGS are strings used to start the Lisp process.
          For KEYWORD-ARGS see `slime-start'.

include-yy · 2024 年4 月 3 日 16:23

我的建议是直接用 setopt ，不用管 use-package ：

(setopt inferior-lisp-program "/opt/sbcl/bin/sbcl")

只在配置中使用这个代码设定 LISP 程序位置，然后另外加载 slime

eusr · 2024 年4 月 3 日 16:42

我又重新看了一下，这个变量的前缀是 inferior-lisp，对应 Emacs 内置的 Inferior Lisp mode（即注释里提到的 inf-lisp），SLIME 和 SLY 都利用了这个 mode。

这个 mode 在 Emacs 本体程序的 lisp/progmodes/inf-lisp.el 中，这个文件里 inferior-lisp-program 是 defcustom 了的。

https://cvs.savannah.gnu.org/viewvc/emacs/emacs/lisp/progmodes/inf-lisp.el?revision=1.31.4.19&view=markup#l144

(defcustom inferior-lisp-program ; ......

eusr · 2024 年4 月 3 日 17:41

是 :config + setopt 么？

include-yy · 2024 年4 月 3 日 17:55

这样写也可以…

不过由于这个变量内置了，我更习惯单独写出来，不必放在 slime 里面

LdBeth · 2024 年4 月 3 日 18:08

错了，它们都早就不用 inf-lisp 了。

区別就是 :custom 用的 custom-theme-set-variables 设的变量只会在对应的 defcustom 执行后才生效，slime 不加載 inf-lisp，只 defvar 了变量，就不会生效，setopt 则是檢查有没有对应的 custom-set property，没有就 fallback 到 set-default

github.com

slime/slime/blob/7e8e754f0eec45beeb7294b1c2d28257fa24ad29/slime.el#L962


      
            (funcall slime-from-lisp-filename-function filename))
          
          
          ;;;; Starting SLIME
          ;;;
          ;;; This section covers starting an inferior-lisp, compiling and
          ;;; starting the server, initiating a network connection.
          
          ;;;;; Entry points
          
          ;; We no longer load inf-lisp, but we use this variable for backward
          ;; compatibility.
          (defvar inferior-lisp-program "lisp"
            "*Program name for invoking an inferior Lisp with for Inferior Lisp mode.")
          
          (defvar slime-lisp-implementations nil
            "*A list of known Lisp implementations.
          The list should have the form:
            ((NAME (PROGRAM PROGRAM-ARGS...) &key KEYWORD-ARGS) ...)
          
          NAME is a symbol for the implementation.

设定 user option 应该用 setq, setopt, custom-set-default, customize-set-value, 还是 customize-set-variable? Emacs-general

custom-set-default 不是给用户用来手动调用的，而是给 defcustom 用的 :set 选项的默认值。 customize-set-value 和 customize-set-variable 是用来 M-x 调用的，后者会用 custom-set，前者不会。 setopt 才是设计用在配置代码里做少量修改的。 setq 现在有编译时对变量是否定义的檢查，不在意的话无所谓，在意就用 setq-default。setq 在 byte code 里有专门的指令，而 setq-default 只会展开成对 set-default 的 funcall。 custom-set-variables 才是用来让用户批量设置 defcustom 的，等价于 (custom-theme-set-variables 'user ...)，后者顾名思意是给 theme 用的。和 setopt 区別是只有在对应的 defcustom 加載时才会执行。 use-package 如果 :config 和 :defer t 一起用，那就等于 eval-after-load，:ensur…