Come creare un DSL in Elisp

Question

Voglio creare un DSL in Elisp cercando qualcosa di simile:

(install 
;; do install 
) 

(uninstall 
;; do uninstall 
) 

Tuttavia, dal momento che Elisp hanno un namespace globale, questa non è una buona idea. E prefiggendo le funzioni come questa, è così dannatamente brutto.

(package-install 
;; do install 
) 

(package-uninstall 
;; do uninstall 
) 

così ho pensato come un compromesso tutti i comandi potrebbero essere avvolto in un comandi chiamare in questo modo:

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

Ma dal momento che io non voglio installare e disinstallazione nel namespace globale , in qualche modo devo nella macro comandi, sostituire tutte le occorrenze dei comandi con forse ad esempio i nomi di prefisso, in questo modo:

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

;; ... 
) 

Questo sembra un simile trucco. Inoltre, non funzionerà se ci sono comandi nidificati.

C'è qualche buona soluzione per questo o è hackerare la strada da percorrere?

Grazie!

Answer 1

Come definire localmente install e gli amici? Questo non nasconderà le funzioni standard, ma non sembra che sia quello che cerchi davvero.

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

Certo che ci si vuole generare quella lista di argomenti flet automaticamente. Hai bisogno di un elenco degli elementi del tuo pacchetto da qualche parte, possibilmente usando (feature-symbols 'package).