helpful

commit d231f4a733083ec33a1e3e1605a2c598b4a4f8be
parent 408acb9872b80bc6f16dcca031f4ceb74a9acb5e
Author: Nick Drozd <nicholasdrozd@gmail.com>
Date:   Thu, 16 Aug 2018 12:13:44 -0500

Sort callees into (compound) functions and primitives

Addresses #150 (at least partially)

Diffstat:
M
helpful.el
 | 
20
++++++++++++++++++--

1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -603,7 +603,9 @@ overrides that to include previously opened buffers."
           (if (stringp raw-source)
               (read raw-source)
             raw-source))
-         (syms (helpful--sort-symbols (helpful--callees source))))
+         (syms (helpful--sort-symbols (helpful--callees source)))
+         (primitives (-filter (lambda (sym) (helpful--primitive-p sym t)) syms))
+         (compounds (-remove (lambda (sym) (helpful--primitive-p sym t)) syms)))
 
     (pop-to-buffer buf)
     (let ((inhibit-read-only t))
@@ -611,7 +613,7 @@ overrides that to include previously opened buffers."
       (insert
        ;; TODO: Macros used, special forms used, global vars used.
        (format "Functions called by %s:\n\n" sym))
-      (dolist (sym syms)
+      (dolist (sym compounds)
         (insert "  "
                 (helpful--button
                  (symbol-name sym)
@@ -619,7 +621,21 @@ overrides that to include previously opened buffers."
                  'symbol sym
                  'callable-p t)
                 "\n"))
+
+      (insert "\n")
+
+      (insert (format "Primitives called by %s:\n\n" sym))
+      (dolist (sym primitives)
+        (insert "  "
+                (helpful--button
+                 (symbol-name sym)
+                 'helpful-describe-exactly-button
+                 'symbol sym
+                 'callable-p t)
+                "\n"))
+
       (goto-char (point-min))
+
       ;; TODO: define our own mode, so we can move between links
       ;; conveniently.
       (special-mode))))