[elpa] scratch/hook-helpers 706af98 15/19: Clean up describe-hook-helpers

[Ian Dunn]

branch: scratch/hook-helpers
commit 706af9820d78a99b41d809671b8f594ba22ecbbd
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    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."