Add command to show --help for CLI commands

1 files changed, 10 insertions, 1 deletions

diff --git a/.emacs b/.emacs
index 3c2322d..545218b 100644
--- a/.emacs
+++ b/.emacs
@@ -205,6 +205,14 @@
     (call-process-shell-command command nil t)
     (my/kill (buffer-string))))
 
+(defun my/shell-command-help (command)
+  (interactive
+   (list (read-shell-command "Show --help for: ")))
+  (let* ((command--help (concat command " --help"))
+         (help-buf (get-buffer-create (format "*%s*" command--help))))
+    (shell-command (concat command--help) help-buf)
+    (display-buffer help-buf)))
+
 (defun my/make-project-wide (f)
   "Make a function which will run F from the project's root directory."
   (lambda ()
@@ -266,7 +274,8 @@
 
 (my/define-prefix-command my/manual-map
   "Keymap for reading manuals."
-  '(("i" info-display-manual)
+  '(("h" my/shell-command-help)
+    ("i" info-display-manual)
     ("m" man)
     ("s" shortdoc-display-group)))