请问关于 defmacro 、 backquote 的正确写法 🤪

blove · 2023 年8 月 13 日 14:23

想用 macro 写一个模版，希望实现的功能是:
对已经存在的变量 line-thr 根据判断改变其值。
如果把 if 判断加进去，好像是需要 backquote ？但我对 backquote 真的是很犯晕
所以想请问 ~ 以下代码要如何加 backquote ?

(setq line-thr 5)
(defmacro add-value-temp (var min max thr)
  (if (< var max)
	  (list 'setq var (list '+ var thr))
	(list 'setq var min)
	)
  )

(add-value-temp line-thr 5 30 5)

manateelazycat · 2023 年8 月 13 日 14:28

github.com

manateelazycat/lsp-bridge/blob/4045030476f98dab86ae239f0e5c1d05e9a2200f/lsp-bridge.el#L635


      
              ;; For {{}}
              (yaml-mode .          "\{\{"))
            "Open characters for string interpolation. The elements are cons cell (major-mode . open-char-regexp)"
            :type 'cons)
          
          
(defun lsp-bridge--get-indent-width (mode)
            "Get indentation offset for MODE."
            (or (alist-get mode lsp-bridge-formatting-indent-alist)
                (lsp-bridge--get-indent-width (or (get mode 'derived-mode-parent) 'default))))
          
          
(cl-defmacro lsp-bridge--with-file-buffer (filename filehost &rest body)
            "Evaluate BODY in buffer with FILEPATH."
            (declare (indent 1))
            `(when-let ((buffer (pcase filehost
                                  ("" (lsp-bridge-get-match-buffer-by-filepath ,filename))
                                  (_ (lsp-bridge-get-match-buffer-by-remote-file ,filehost ,filename)))))
               (with-current-buffer buffer
                 ,@body)))
          
          
(cl-defmacro lsp-bridge-save-position (&rest body)
            "`save-excursion' not enough for LSP code format.

在最外面的括号用 ` ，然后里面变量引用用 ,var, 如果要实现代码包裹就用 ,@body

看我上面的例子吧。

blove · 2023 年8 月 13 日 14:52

感谢大佬速度解答！
学习了大佬给出的例子，改写了自己的代码，现在已经实现了希望的功能！！！

(setq line-thr 5)
(defmacro add-value-temp (var min max thr)
  `(if (< ,var ,max)
	  ,(list 'setq var (list '+ var thr))
	,(list 'setq var min)
	)
  )
;; (macroexpand (add-value-temp line-thr 5 30 5))
(add-value-temp line-thr 5 30 5)

LdBeth · 2023 年8 月 13 日 16:16

应该这么写

(setq line-thr 5)
(defmacro add-value-temp (var min max thr)
  `(if (< ,var ,max)
	  (setq ,var (+ ,var ,thr))
	(setq ,var ,min)))
;; (macroexpand (add-value-temp line-thr 5 30 5))
(add-value-temp line-thr 5 30 5)

blove · 2023 年8 月 14 日 00:00

收到!谢谢!我就感觉我自己写的那个有点别扭!是我看猫大的例子还不够仔细，没转过弯来!这下明白啦！非常感谢!