branch: scratch/hook-helpers commit 706af9820d78a99b41d809671b8f594ba22ecbbd Author: Ian Dunn <du...@gnu.org> Commit: Ian Dunn <du...@gnu.org>
Clean up describe-hook-helpers * hook-helpers.el (hkhlp--pp): Use correct indenting and add an extra newline. --- hook-helpers.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/hook-helpers.el b/hook-helpers.el index f15b15d..336cf7c 100644 --- a/hook-helpers.el +++ b/hook-helpers.el @@ -200,7 +200,9 @@ each one." (let* ((func (hook-helper-function helper)) (pp-string (pp-to-string func)) (id (hook-helper-id helper)) - (indent-first (min (- indent (length (symbol-name id))) 1)) + (id-name (symbol-name id)) + (indent (max (+ (length id-name) 1) indent)) + (indent-first (- indent (length id-name))) (pp-lines (split-string pp-string "\n" t))) (concat (symbol-name id) (make-string indent-first ?\ ) (car pp-lines) "\n" (mapconcat @@ -209,7 +211,7 @@ each one." str)) (cdr pp-lines) "\n") - "\n"))) + "\n\n"))) (defun describe-hook-helpers () "Describe the currently defined hook helpers."