helpful

commit eae94d82684c2b2addde75b19d564d2e4677d4ca
parent efa395ee083a648478f5e7601b183ee87e5537db
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sat, 22 Jul 2017 13:06:50 +0100

Report when functions/macros are advised

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

1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/helpful.el b/helpful.el
@@ -387,6 +387,10 @@ E.g. (x x y z y) -> ((x . 2) (y . 2) (z . 1))"
           (setcdr item-and-count (1+ (cdr item-and-count)))
         (push (cons item 1) counts)))))
 
+(defun helpful--advice (sym)
+  "A list of advice associated with SYM."
+  (advice--symbol-function sym))
+
 (defun helpful--format-reference (head ref-count position path)
   (-let* (((def name) head)
           (formatted-name
@@ -481,8 +485,15 @@ state of the current symbol."
 
      (helpful--heading "\n\nSymbol Properties\n")
      (or (helpful--format-properties helpful--sym)
-         "No properties.")
+         "No properties."))
+    
+    (when (helpful--advice helpful--sym)
+      (insert
+       (helpful--heading "\n\nAdvice\n")
+       (format
+        "This %s is advised." (if (macrop helpful--sym) "macro" "function"))))
 
+    (insert
      (helpful--heading "\n\nDebugging\n")
      (if (helpful--primitive-p helpful--sym)
          ""