From 0998bf11e258914eb12e7082ae0b6f7a03c88864 Mon Sep 17 00:00:00 2001
From: Wilfred Hughes <me@wilfred.me.uk>
Date: Sat, 2 Sep 2017 21:50:11 +0100
Subject: Adding a helpful-callable command

We already have helpful-function, helpful-macro and helpful-command,
which are specific.

However, describe-function offers both macros and functions, which is
useful when reading new code. Provide a clearly named command with
this ability.

Closes #13
---
 CHANGELOG.md |  4 ++++
 helpful.el   | 10 ++++++++++
 2 files changed, 14 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d9766ea..0d10af5 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,10 @@ equivalent defun forms.
 
 We now show the value of variables too.
 
+Added a command `helpful-callable`, which offers both macros and
+functions. This should be a drop-in replacement for
+`describe-function`.
+
 # v0.1
 
 First release.
diff --git a/helpful.el b/helpful.el
index fcc1eaa..11e5387 100644
--- a/helpful.el
+++ b/helpful.el
@@ -32,6 +32,7 @@
 ;; * helpful-function
 ;; * helpful-command
 ;; * helpful-macro
+;; * helpful-callable
 ;; * helpful-variable
 ;; * helpful-at-point
 ;;
@@ -707,6 +708,15 @@ For example, \"(some-func FOO &optional BAR)\"."
   (switch-to-buffer (helpful--buffer symbol t))
   (helpful-update))
 
+(defun helpful-callable (symbol)
+  "Show help for function or macro named SYMBOL.
+
+See also `helpful-macro' and `helpful-function'."
+  (interactive
+   (list (helpful--read-symbol "Function/macro: " #'fboundp)))
+  (switch-to-buffer (helpful--buffer symbol t))
+  (helpful-update))
+
 (defun helpful--variable-p (symbol)
   "Return non-nil if SYMBOL is a variable."
   (or (get symbol 'variable-documentation)
-- 
cgit v1.0