Emacs: उस फ़ंक्शन को परिभाषित करें जो फ़ाइल को लोड करता है जहां फ़ंक्शन स्वयं परिभाषित किया गया है

Question

मैं अपने एमैक्स सेट अप में थोड़ा सा रिफैक्टरिंग कर रहा हूं और निष्कर्ष पर आया हूं कि मैं डिफ़ॉल्ट से एक अलग init फ़ाइल का उपयोग करना चाहता हूं। तो बुनियादी तौर पर, मेरे ~/.emacs फ़ाइल में, मैं इस है:

(load "/some/directory/init.el") 

अब तक, कि बस ठीक काम कर रहा गया है।

(defun conf() 
    "Open a buffer with the user init file." 
    (interactive) 
    (find-file user-init-file)) 

आप देख सकते हैं, इस ~/.emacs कोई फर्क नहीं पड़ता कि मुझे क्या करना खुल जाएगा: हालांकि, अब मैं एक पुराने आदेश है कि मैं उम्र के लिए उपयोग किया है, जो मेरे init फ़ाइल को खोलता है फिर से परिभाषित करना चाहते हैं। मैं इसे /some/directory/init.el खोलना चाहता हूं, या जहां भी conf कमांड स्वयं परिभाषित किया गया है।

मैं यह कैसे करूँगा?

Answer 1

आप इस के लिए find-function उपयोग कर सकते हैं:

(defun conf() 
    "Open a buffer with the user init file." 
    (interactive) 
    (find-function this-command)) 

Answer 2

तुम भी एक sneakier तरीके से उपयोग कर सकते हैं:

(defun conf() "blabla" (सहभागी) (लगता है फ़ाइल # $))

क्योंकि # $ सी में __FILE__ की तरह एक सा काम करता है: यह फ़ाइल नाम के द्वारा बदल दिया है, जब फ़ाइल पढ़ा जाता है।

Answer 3

यह मेरे लिए काम करता है।

;;; mymodule.el --- does my thing 

(defvar mymodule--load-path nil "load path of the module") 

    ... 

(defun mymodule-load-datafile() 
    "load a data file from the directory in which the .el resides" 
    (let* ((dir-name (concat 
         (file-name-directory mymodule--load-path))) 
     (data-file-name (concat dir-name "datafile.csv"))) 
    (if (file-exists-p data-file-name) 
     ...))) 

;; remember load time path 
(setq mymodule--load-path load-file-name) 

(provide 'mymodule)