Cómo crear una conexión DSL en Elisp

Question

Quiero crear una conexión DSL en Elisp buscando algo como esto:

(install 
;; do install 
) 

(uninstall 
;; do uninstall 
) 

Sin embargo, desde Elisp tiene un espacio de nombres global, esto no es una buena idea. Y prefijando las funciones de esta manera, es muy feo.

(package-install 
;; do install 
) 

(package-uninstall 
;; do uninstall 
) 

Así que pensé como un compromiso de todos los comandos pueden ser envueltos en un comando de llamar así:

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

Pero ya no quiero instalar y desinstalación en el espacio de nombres global , De alguna manera tengo que en el macro de comandos, reemplazar todas las instancias de los comandos con, tal vez, por ejemplo, los nombres de prefijo, como este:

(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 
) 

;; ... 
) 

Esto parece un hack. Además, no funcionará si hay comandos anidados.

¿Hay alguna buena solución para esto o hackear el camino a seguir?

Gracias!

Answer 1

¿Qué tal la definición local de install y amigos? Esto no ocultará las funciones estándar, pero no parece que eso es lo que realmente buscas.

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

Por supuesto que te gustaría para generar esa lista de argumentos flet automáticamente. Necesitas una lista de los elementos de tu paquete en algún lugar, posiblemente usando (feature-symbols 'package).