From 0e193945a4d6dc9b0915585f375642d1eedfed49 Mon Sep 17 00:00:00 2001 From: Tristan Riehs Date: Sat, 2 Nov 2024 19:26:23 +0100 Subject: Improve documentation for publishing --- edit-config.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'edit-config.el') 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 +;; Maintainer: Tristan Riehs ;; 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 \ -- cgit v1.2.3