elisp

Question

bir DSL oluşturmak için nasıl böyle bir şey arayan elisp bir DSL oluşturmak istiyorum: elisp genel bir ad alanı beri, Ancak

(install 
;; do install 
) 

(uninstall 
;; do uninstall 
) 

, bu iyi bir fikir değildir. Ve bu gibi işlevlerin öneki, çok çirkin.

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

Ama istemiyorum çünkü genel ad ve kaldırma yükleyin:

(package-install 
;; do install 
) 

(package-uninstall 
;; do uninstall 
) 

Yani böyle diyoruz tüm komutlar bir komutlar sarılmış edilebilecek bir uzlaşma olarak düşünülen

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

;; ... 
) 

: ben bir şekilde bu gibi belki için örnek önek adları komutları tüm tekrarlarını değiştirmek, komutlar makro zorunda

Bu böyle bir kesmek gibi görünüyor. Ayrıca iç içe komutlar varsa işe yaramaz.

Bunun için iyi bir çözüm var mıdır, yoksa gitmek için bir yol var mı?

Teşekkürler!

Answer 1

Yerel olarak install'u ve arkadaşlarını tanımlamaya ne dersiniz? Bu, standart fonksiyonları gizlemez, ama gerçekten peşinde olduğunuza benzemez.

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

Elbette otomatik flet bağımsız değişkenlerin o listeyi oluşturmak istersiniz. Paketinizin öğelerinin bir listesini, muhtemelen (feature-symbols 'package) kullanarak bir yere ihtiyacınız var.