diff options
Diffstat (limited to 'edit-config.el')
| -rw-r--r-- | edit-config.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/edit-config.el b/edit-config.el index 7f54d99..ab45b39 100644 --- a/edit-config.el +++ b/edit-config.el @@ -3,6 +3,7 @@ ;; Copyright (C) 2024 Tristan Riehs ;; Author: Tristan Riehs <tristan.riehs@bordeaux-inp.fr> +;; Maintainer: Tristan Riehs <tristan.riehs@bordeaux-inp.fr> ;; Keywords: convenience ;; This program is free software; you can redistribute it and/or modify @@ -20,9 +21,11 @@ ;;; Commentary: -;; This package aims at providing a convenient way of editing the various -;; configuration files you have on your system. The main thins you should -;; be interested in are `edit-config-files' and `edit-config'. +;; This package aims at providing a convenient way of editing the +;; various configuration files you have on your system. + +;; You should first customize `edit-config-files', and then use M-x +;; `edit-config'. ;;; Code: (defgroup edit-config nil @@ -65,16 +68,15 @@ Used when prompting only when `edit-config-missing' is non-nil. See (defun edit-config (label) "Edit the config file associated to LABEL." (interactive - (list (if edit-config-files - (completing-read "Config: " - edit-config-files - (if edit-config-missing - 'edit-config--completing-read-predicate - nil) - t - nil - 'edit-config--hist) - nil))) + (list (when edit-config-files + (completing-read "Config: " + edit-config-files + (if edit-config-missing + 'edit-config--completing-read-predicate + nil) + t + nil + 'edit-config--hist)))) (if label (find-file (alist-get label edit-config-files nil nil 'string-equal)) (message "No config file to propose, have you you customized \ |