Auto add info directory

This commit is contained in:
Benson Chu 2020-09-10 09:36:25 -05:00
parent ff1fcc0cc5
commit 53501f2a2a
2 changed files with 12 additions and 0 deletions

View file

@ -44,6 +44,12 @@
(eq system-type
'windows-nt)))
(ec/load-or-ask-pred 'my/add-info-dir "Do you want an auxiliary info dir? ")
(when my/add-info-dir
(ec/load-or-ask-dir 'my/info-dir "Info Directory? ")
(add-to-list 'Info-directory-list my/info-dir))
(setq my/enable-exwm (and my/enable-exwm (eq 'x window-system)))
(require 'keymap)

View file

@ -52,6 +52,12 @@
(customize-save-variable key-key keygen)
(customize-save-variable key (char-to-string keygen))))
(defun-prompt ec/load-or-ask-file file (sym prompt)
(customize-save-variable sym (read-file-name prompt)))
(defun-prompt ec/load-or-ask-dir dir (sym prompt)
(customize-save-variable sym (read-directory-name prompt)))
(defun ec/rerun-prompt (prompt-arglist)
(apply (symbol-function (gethash (car prompt-arglist) ec/prompt-functions))
(append (cdr prompt-arglist)