mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-06-14 12:21:20 +00:00
Auto add info directory
This commit is contained in:
parent
ff1fcc0cc5
commit
53501f2a2a
2 changed files with 12 additions and 0 deletions
6
init.el
6
init.el
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in a new issue