Emacs, namespaces ve defuns

Question

Emacs hakkında sevmediğim tek şey isim alanlarının eksikliğidir, bu yüzden onları kendi başıma uygulayıp uygulayamayacağımı merak ediyorum.

This benim ilk denememdir, ve öntanımlı bir sürümü olan bir adın her eşlemesini değiştiremediğim açıktır, ancak ne kontrol etmeliyim? Tüm alt ağacı işaretleyin (izin ver) ile bağlayıcıları kontrol edebilirim, ama ne olursa olsun kullanan bir (my-let) işlevi oluşturursa? Çabalarım başarısız olmaya mahkum mu? :(

Ayrıca

, neden benim defuns işlevini tanımlamak için başarısız oluyor? Her yeni belirteci üzerinde stajyer-sembole benzer bir şey çalıştırmak zorunda mıyım?

teşekkürler!

Answer 1

ekleme ad daha alacak Tanımlayıcıların ad alan adları ile ön eklenmesi Tercümanların ad alanlarını anlatabilmeleri gerekir.Konuşmanın bir kısmı da yorumlayıcıya gitmelidir.Onun gnu.emacs.sources ve/veya #emacs adresinden kapsamlı bir tartışmaya girmesi gerekebilir.

Answer 2

Bu ilk 0 sonuçtan beri, elisp namespaces ...

Temel kapsülleme olan elpa'da alabileceğiniz fakespace ad alanlarının minimalist bir uygulaması vardır. Ben kendimi iddialı bir şey üzerinde çalışıyorum, here kontrol edebilirsiniz.

Answer 3

my-let veya my-defun gibi şeyleri işlemek için, bu tanımları makro olarak çoğaltmanız gerekir, ör. macroexpand-all ile. işlevleri tanımlamak için başarısızlık için

, siz ( make-symbol her zaman yeni bir ayrı taze uninterned işareti oluşturuyor çünkü) intern yerine make-symbol kullanmak gerekir.

Answer 4

Bu, ad alanı desteği sağlamak için @ vpit3833 kodunun sabit bir sürümüdür (@Stefan öğesinden ipucu kullanarak). Yarı-sabit kalması çok iyidir :)

;; Simple namespace definitions for easier elisp writing and clean 
;; access from outside. Pythonesque elisp :) 
;; 
;; thanks to vpit3833 → http://6e5e5ae9206fa093.paste.se/ 

(defmacro namespace (prefix &rest sexps) 
    (let* ((naive-dfs-map 
      (lambda (fun tree) 
      (mapcar (lambda (n) (if (listp n) (funcall naive-dfs-map fun n) 
            (funcall fun n))) tree))) 
     (to-rewrite (loop for sexp in sexps 
          when (member (car sexp) 
             '(defvar defmacro defun)) 
          collect (cadr sexp))) 
     (fixed-sexps (funcall naive-dfs-map 
           (lambda (n) (if (member n to-rewrite) 
               (intern 
               (format "%s-%s" prefix n)) n)) 
           sexps))) 
    `(progn ,@fixed-sexps))) 

;; (namespace test 
;;   (defun three() 3) 
;;   (defun four() (let ((three 4)) three)) 
;;   (defun + (&rest args) (apply #'- args))) 

;; (test-+ 1 2 3) 

(provide 'namespace)