elispの

Question

でDSLを作成するために、どのように私はこのような何かを探してelispの中にDSLを作成したい：elispのは、グローバルな名前空間を持っているので、しかし

(install 
;; do install 
) 

(uninstall 
;; do uninstall 
) 

を、これは良いアイデアではありません。そして、このような関数の接頭辞は、あまりにも醜いです。

(commands 
(install 
    ;; do install 
) 

(uninstall 
    ;; do uninstall 
) 

;; ... 
) 

をしかし、私はしたくないので、グローバル名前空間にとアンをインストール：

(package-install 
;; do install 
) 

(package-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)を使用して、あなたのパッケージの要素のリストがどこかに必要です。