在写包的时候怎么根据一个 defcustom 的值来改变变量的值？

colawithsauce · 2022 年6 月 15 日 12:37

之前我魔改了一下 pinyinlib 将拼音查词改成了五笔查词（见下）

最近用了一下ace-pinyin，看了下它的pinyinlib实现，发现它定义了一个常量来存储a-z对应的中文。于是突发奇想，只要转化一下，ace-pinyin不就可以变成ace-wubi98了嘛？于是用python写了个小工具，根据rime的输入法yaml文件，将pinyin的table转换成了五笔的table，用起来感觉还不错，现在分享一下我是怎么改的。 python脚本： #!/usr/bin/env python import string class TableTranslator(object): "Translator from py_table to wubi_table." def __init__(self, dict_name): alphas = dict(enumerate(string.ascii_lowercase)) self.char_alpha_map = {} # Single Data Example: {"工": "a"} # Single Data Example:…

然后现在我想给原repo贡献一个选择Char table的功能。

于是想要一个通过设定变量的值从而条件地改变另外一个变量的值的方法。

比如说我 defcustom 一个变量pinyinlib--char-table-type，当用户设定这个值为'wubi时，然后pinyinlib--simplified-char-table就是五笔的table，而当用户设定这个值为'pinyin的时候，pinyinlib--simplified-char-table的值就是一个拼音的table。

LdBeth · 2022 年6 月 15 日 12:45

为什么要用两个变量？在启动后用户改了 defcustom 要怎么办？为什么不同时保留两个 table，根据 defcustom 来选用的 table？为什么不直接暴露pinyinlib--simplified-char-table让用户设定用的 table (defcustom 可以 :options 用来设定这类变量?)

dcsjx · 2022 年6 月 15 日 12:51

参考

github.com

conao3/leaf.el/blob/9eb18e8c9c375aa0158fbd06ea906bfbf54408fe/leaf.el#L477


      
                                                   "\\(?:\\sw\\|\\s_\\|\\\\.\\)+"))))
                                      'nogroup))))
                       (if value
                           `(add-to-list 'lisp-imenu-generic-expression
                                         '("Leaf" ,regexp 1))
                         `(setq lisp-imenu-generic-expression
                                (delete '("Leaf" ,regexp 1)
                                        lisp-imenu-generic-expression))))))
            :group 'leaf)
          
          
(defcustom leaf-find-function-support t
            "If non-nil, enable `find-func' integrations.
          Ref: `find-function-regexp-alist'."
            :type 'boolean
            :set (lambda (sym value)
                   (set sym value)
                   (eval-after-load 'find-func
                     (if value
                         `(add-to-list 'find-function-regexp-alist '(leaf . leaf-find-regexp))
                       `(setq find-function-regexp-alist
                              (delete '(leaf . leaf-find-regexp) find-function-regexp-alist)))))

？

colawithsauce · 2022 年6 月 15 日 13:58

可能是我问题里面没有表述清楚，我确实是这样做的，因此正想问问应该如何做到根据defcustom的值来选用使用哪个table。

github.com

colawithsauce/pinyinlib.el/blob/master/pinyinlib.el

;;; pinyinlib.el --- Convert first letter of Pinyin to Simplified/Traditional Chinese characters  -*- lexical-binding: t; -*-

;; Copyright (C) 2016  Junpeng Qiu

;; Author: Junpeng Qiu <[email protected]>
;; Keywords: extensions

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

该文件已被截断。显示原文

而且我是在修改别的老哥的代码，原repo已经被别的库使用了。因此我必须考虑到兼容的问题，现在我的修改是可以跑的通的，但是却减少了 pinyinlib--{simplified,traditional}-char-table 两个变量，取在代之的是 pinyinlib--{wubi,pinyin}-{simplified,traditional}-char-table 这四个变量。如果有别的程序依赖于这个变量的话，那么就会导致不兼容。所以我就想能不能够通过defcustom的方式来使得值不相同。

我没有找到解决的办法，我当时尝试了下面这样

但是这样的话，在配置里面该如何写呢？

(use-package pinyinlib
  :custom
  (pinyinlib--simplified-char-table pinyinlib--pinyin-simplified-char-table))

这样写会在执行的时候报错，应该和 use-package 代码的加载顺序有关，在执行这条语句的时候，pinyinlib--pinyin-simplified-char-table尚未加载。

colawithsauce · 2022 年6 月 15 日 14:00

没看懂这里的作用，我去查查 Manual ……

dcsjx · 2022 年6 月 15 日 14:07

leaf-find-function-support: t

find-function-regexp-alist:

'((leaf . leaf-find-regexp)
 (flycheck-checker . flycheck-find-checker-regexp)
 (define-type . cl--typedef-regexp)
 (cl-defgeneric . cl--generic-find-defgeneric-regexp)
 (cl-defmethod . cl--generic-search-method)
 (nil . find-function-regexp)
 (defvar . find-variable-regexp)
 (defface . find-function--defface)
 (feature . find-feature-regexp)
 (defalias . find-alias-regexp)
 (ert-deftest . find-ert-deftest-regexp))

M-x customize-set-variable RET leaf-find-function-support RET n

leaf-find-function-support: nil

find-function-regexp-alist:

'((flycheck-checker . flycheck-find-checker-regexp)
 (define-type . cl--typedef-regexp)
 (cl-defgeneric . cl--generic-find-defgeneric-regexp)
 (cl-defmethod . cl--generic-search-method)
 (nil . find-function-regexp)
 (defvar . find-variable-regexp)
 (defface . find-function--defface)
 (feature . find-feature-regexp)
 (defalias . find-alias-regexp)
 (ert-deftest . find-ert-deftest-regexp))

colawithsauce · 2022 年6 月 15 日 14:11

还能这样？好神奇啊。那是不是说如果不使用customize而直接使用setq来设定这个值的话就没有办法让其正确设置变量了呢。

dcsjx · 2022 年6 月 15 日 14:21

知道是个 custom-variable 却不用 customize-set-variable 能怪谁

colawithsauce · 2022 年6 月 15 日 14:31

是这样的，我将我的 char-table 使用了 defconst 来定义，但是在加载包的时候会报 void-variable 错误，我写的代码如下

(defcustom pinyinlib--char-table-type
  'wubi
  "Which char table type to use."
  :group 'pinyinlib
  :type '(choice :tag "Which char table to use"
                 (const :tag "Pinyin" pinyin)
                 (const :tag "Wubi" wubi))
  :set (lambda (sym val)
         (set sym val)
         (cl-case val
           ('wubi (setq pinyinlib--simplified-char-table pinyinlib--wubi-simplified-char-table)
                  (setq pinyinlib--traditional-char-table pinyinlib--wubi-traditional-char-table))
           ('pinyin
            (setq pinyinlib--simplified-char-table pinyinlib--pinyin-simplified-char-table)
            (setq pinyinlib--traditional-char-table pinyinlib--pinyin-traditional-char-table)))))

我已经将这些 defconst 的变量放在前面了。

dcsjx · 2022 年6 月 15 日 14:37

建议写个完整的最小复现案例, 把 defconst 那些加进去,不然解决不了

colawithsauce · 2022 年6 月 15 日 15:10

感觉 Doom Debug 起来有点麻烦，有的时候明明写对了，但是因为有 Byte-compiled 的代码存在，所以就表现得和没有改变之前一样，需要手动将 build 目录下对应的 package 删除再 doom sync 一次才能看到效果。

今天晚上这个特性整得我有点烦了。而且现在的代码也已经能用，只是如果有人写了依赖 pinyinlib--{simplified,traditional}-char-table 的代码才会不兼容，但那本身就不是鼓励的使用方式，所以我想就到这里为止吧……

LdBeth · 2022 年6 月 15 日 16:43

你希望向他的 repo 提交代码：和作者讨论要怎么改，而不是靠自己想
你不打算提交代码：完全不用考虑兼容问题

colawithsauce · 2022 年6 月 16 日 02:21

一语惊醒梦中人了，我还真没想过跟作者讨论的选项……