伊莉斯:如何缩短这个功能？

Question

我正在实现一个插件，很多项目类型都被记住了。例如:角，流星，余烬，铁轨.

并且使用了关键的参数。该函数使用提供的键和值创建哈希表，并将哈希表分配给另一个哈希表。

代码如下：

    (defun jst-remember-project-type (type &rest args)
      "Let JST remember another project type."
      (let (label value testing-framework spec-dir config-file source-dir
                  command-ci command-browser spec-to-target target-to-spec
                  dominating-files browser-url table)
        (while (not (= 0 (length args)))
          (setq label (pop args))
          (setq value (pop args))
          (and (equal :testing-framework label) (setq testing-framework value))
          (and (equal :spec-dir label) (setq spec-dir value))
          (and (equal :source-dir label) (setq source-dir value))
          (and (equal :config-file label) (setq config-file value))
          (and (equal :command-ci label) (setq command-ci value))
          (and (equal :command-browser label) (setq command-browser value))
          (and (equal :browser-url label) (setq browser-url value))
          (and (equal :spec-to-target label) (setq spec-to-target value))
          (and (equal :target-to-spec label) (setq target-to-spec value))
          (and (equal :dominating-files label) (setq dominating-files value)))
        (if (gethash type jst-known-project-types)
            (error "Redefined JST project type.")
          (setq table (make-hash-table :test 'equal))
          (puthash :testing-framework testing-framework table)
          (puthash :spec-dir spec-dir table)
          (puthash :config-file config-file table)
          (puthash :source-dir spec-dir table)
          (puthash :command-ci command-ci table)
          (puthash :command-browser command-browser table)
          (puthash :spec-to-target spec-to-target table)
          (puthash :target-to-spec target-to-spec table)
          (puthash :dominating-files dominating-files table)
          (puthash :browser-url browser-url table)
          (puthash type table jst-known-project-types))) nil)

我有很多这样的多余功能。我希望这些函数由宏自动生成。

实际上，只需要一个键和表的列表。其他的一切都可以产生。但是我不知道怎么写这个宏。

    (defmacro jst-remember-keyed (keys table)
      "This macro helps with jst-remember functions."
      (let (label value QUESTION HERE keys)))

如何轻松地将变量从:符号转换为:符号和从变量转换:符号？

    (make-symbol "fuck")
    fuck ;; Error occurs

    (let (((make-symbol "fuck") "Diao"))
      (message fuck)
      ) ;; Error occurs

非常感谢!

Answer 1

未经测试：

(require 'cl)
(defun jst-remember-project-type (type &rest args)
  "Let JST remember another project type."
  (if (gethash type jst-known-project-types)
      (error "Redefined JST project type.""")
    (let ((table (make-hash-table :test #'equal)))
      (loop for (label value) on args by #'cddr
            do (puthash label value table))
      (puthash type table jst-known-project-types))))