Format quotes in macro calls

kljohann · Jul 22, 2017 · a18eff2 · a18eff2
1 parent 582e167
commit a18eff2
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/helpful.el b/helpful.el
@@ -387,8 +387,12 @@ E.g. (x x y z y) -> ((x . 2) (y . 2) (z . 1))"
 
 (defun helpful--format-reference (head ref-count position path)
   (-let* (((def name) head)
+          (formatted-name
+           (if (and (consp name) (eq (car name) 'quote))
+               (format "'%S" (cadr name))
+             (format "%S" name)))
           (formatted-def
-           (format "(%s %s ...)" def name))
+           (format "(%s %s ...)" def formatted-name))
           (padded-def
            (s-pad-right 30 " " formatted-def))
           (formatted-count

diff --git a/test/unit-test.el b/test/unit-test.el
@@ -70,3 +70,13 @@
   ;; But if we have a single sentence and no empy line, insert one.
   (should
    (equal (helpful--split-first-line "foo.\nbar") "foo.\n\nbar")))
+
+(ert-deftest helpful--format-reference ()
+  (should
+   (equal
+    (helpful--format-reference '(def foo) 1 123 "/foo/bar.el")
+    "(def foo ...)                  ; 1 reference"))
+  (should
+   (equal
+    (helpful--format-reference '(advice-add 'bar) 1 123 "/foo/bar.el")
+    "(advice-add 'bar ...)          ; 1 reference")))