如何elisp的

Question

创建DSL我想创建一个elisp的DSL看起来像这样：

(install 
;; do install 
) 

(uninstall 
;; do uninstall 
) 

然而，由于elisp的有一个全局命名空间，这不是一个好主意。像这样的功能前缀，是如此丑陋。

(package-install 
;; do install 
) 

(package-uninstall 
;; do uninstall 
) 

所以我想作为一种折中的所有命令可以被包裹在一个命令调用是这样的：

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

但因为我不想安装和卸载在全局命名空间，我不知何故必须在命令宏中，用例如前缀名称替换所有出现的命令，如下所示：

(defmacro commands (&rest body) 
    (mapcar 
    (lambda (exp) 
    (setcar exp (intern (concat "package-" (symbol-name (car exp))))) 
    (setcdr exp (list (cons 'progn (cdr exp))))) 
    body) 
    `(progn ,@body)) 

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

这似乎是这样的黑客攻击。另外，如果有嵌套命令，它将不起作用。

有没有什么好的解决方案，或者是黑客的路要走？

谢谢！

Answer 1

如何在本地定义install和朋友？这不会隐藏标准函数，但它看起来并不像你真的那样。

(defmacro commands (&rest body) 
    `(flet ((install (&rest args) (apply 'package-install args)) 
      (uninstall (&rest args) (apply 'package-uninstall args))) 
    ,@body)) 

当然，您想要自动生成flet参数列表。您确实需要某个地方的软件包元素列表，可能使用(feature-symbols 'package)。