मैं अपनी init स्क्रिप्ट में एक लॉग इन फ़ंक्शन को परिभाषित करना चाहता हूं, लेकिन मैं अपने लॉगिन क्रेडेंशियल्स को हार्डकोड नहीं करना चाहता हूं। मुझे लगता है कि एक स्थानीय फ़ाइल से मेरे लॉगिन क्रेडेंशियल्स में मेरी इनइट स्क्रिप्ट पढ़ने के लिए एक अच्छा समाधान है, और इन मानों को चर के रूप में सहेजें। इस तरह, मैं फ़ाइल को अपने git इंडेक्स से बाहर कर सकता हूं, जो मेरे लॉगिन क्रेडेंशियल्स को सुरक्षित रखता है।
क्या इस दृष्टिकोण पर कोई सुझाव है, या एक फ़ाइल में परिभाषित मूल्य के लिए एक तर्क सेट करने के तरीके हैं?
उदाहरण के लिए, मैं निम्नलिखित का उपयोग करना चाहूंगा init.el:
;; Set up our login variables here:
(setq file-location "~/.emacs.d/.login")
(setq erc-username "default-name")
(setq erc-password "default-password")
(setq erc-url "default-url")
(setq erc-port "default-port")
(defun read-lines (filePath)
"Return a list of lines of a file at filePath."
(with-temp-buffer
(insert-file-contents filePath)
(split-string (buffer-string) "\n" t)))
(if (file-exists-p file-location)
(progn (setq login-credentials (read-lines file-location))
(setq erc-username (nth 0 login-credentials))
(setq erc-password (nth 1 login-credentials))
(setq erc-url (nth 2 login-credentials))
(setq erc-port (nth 3 login-credentials)))
(message "No ERC login credentials provided. Please add login credentials as '<username>\n<password>\n<url>\n<port>' in ~/.emacs.d/.login to activate ERC mode."))
;; These message the values from my file correctly.
;; Everything up to this point works as expected
(message erc-username)
(message erc-password)
(message erc-url)
(message erc-port)
;; Use our login variables here
;; This doesn't work because the 'quote' function prevents evaluation of my variables, and a 'backquote' did not resolve it either
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(markdown-command "/usr/bin/pandoc")
'(tls-program (quote ("openssl s_client -connect %h:%p -no_ssl2 -ign_eof -CAfile ~/.ssl/spi_ca.pem -cert ~/.ssl/znc.pem")))
'(znc-servers (quote ((,erc-url ,erc-port t ((irc\.freenode\.net ,erc-username ,erc-password)))))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
ध्यान दें कि मेरा उदाहरण यहांznc.el मॉड्यूल का उपयोग करता है । मैं autacenerated कोड को संशोधित कर रहा हूँ जिसके परिणामस्वरूप Emacs कॉन्फ़िगर होता है M-x customize-group RET znc RETऔर M-x customize-variable RET tls-program RET।
उपरोक्त कोड के साथ मेरा मुद्दा यह है कि चर मेरे custom-set-variablesफ़ंक्शन के अंदर लोड नहीं कर रहे हैं । फ़ाइल से उचित मान लोड करना ठीक काम करने लगता है, लेकिन मैं उनका उपयोग तर्क के रूप में नहीं कर सकता। मेरा मानना है कि यह quoteफ़ंक्शन से संबंधित है , जो इसकी सामग्री के मूल्यांकन को रोकता है। मैंने ,मूल्यांकन को बाध्य करने के लिए एक 'बैककॉट' ( ) का प्रयास किया , लेकिन यह भी काम नहीं कर रहा है। इस बग को ठीक करने या किसी अन्य दृष्टिकोण की पेशकश करने के लिए कोई सुझाव बहुत मददगार होगा।