代码之家 › 专栏 › 技术社区 › seth

使用带引号的符号调用defmacro

elisp

seth · 技术社区 · 15 年前

我有这个数据结构(基本上):

(setq ssm-list '(tasklist
  ((id . "10525295")
   (name . "Inbox")
   (sort_order . "0"))))

这适用于获取名称:

(defun ssm-list-get-prop (list prop)
  (cdr (assoc prop (car (cdr list)))))

(ssm-list-get-prop slack-one-list 'name)

我想创建一个宏,该宏将用名称创建一个defun ssm-list-name (或) ssm-list-id )因为列表中实际上有更多的属性。

所以我试了一下:

(defmacro ssm-list-prop-defun (field)
  `(defun ,(intern (concat "ssm-list-" field))
      (one-list)
      (cdr (assoc ,field (car (cdr one-list))))))

(ssm-list-prop-defun 'name)
(ssm-list-prop-defun 'id)

但是最后两个电话都失败了 (wrong-type-argument characterp quote) 我试着把 symbol-name 在宏中,但这没有帮助。

有办法做到这一点吗?

2 回复 | 直到 15 年前

Trey Jackson 15 年前

你非常接近,小的编辑会给你一个有效的解决方案。问题是你在混合符号和字符串。这将起作用:

(defmacro ssm-list-prop-defun (field)
                   ;; note that concat operates on strings
  `(defun ,(intern (concat "ssm-list-" field))
     (one-list)
          ;; note that you need a symbol here, so quote the 
          ;; result of the call to intern
          ;; and, if you're always using symbols, 
          ;; might as well use assq
     (cdr (assq ',(intern field) (car (cdr one-list))))))

;; pass in a string
(ssm-list-prop-defun "name")

下面是使用符号的变体:

;; variant that works off a symbol
(defmacro ssm-list-prop-defun (field)
  `(defun ,(intern (concat "ssm-list-" (symbol-name field)))
     (one-list)
     (cdr (assq ',field (car (cdr one-list))))))

(ssm-list-prop-defun name)

offby1 15 年前

我想你想看看 defstruct 在CL包中: (info "(cl) Structures") (或) http://www.gnu.org/software/emacs/manual/html_node/cl/Structures.html#Structures )

推荐文章

Mahavir · pcase无法识别字符串匹配

2 年前

Community wiki · 进程。退出(0):输出消失?

2 年前

Rorschach · cl循环破坏性修改cons单元

8 年前

Rorschach · 宏在定义时将关键帧视为true

8 年前

Chetna Shah · emacs中给定主模式的加载后评估与挂钩的执行顺序

8 年前

Manoel Vilela · 有没有办法检查是否引用了符号?

8 年前

hw9527 · Elisp变量绑定到自身

8 年前

Aquaactress · 在视觉模式下自动输入Beg End参数

8 年前

Color · emacs解释器如何计算表达式?

9 年前

David S. · 如何在elisp的表达式中传递运算符?

9 年前