helpful

commit 7ae5152faacda2a10baa2731e3a56940d25f90c0
parent 7ec9bfc110e905abdceaac9016e12aa2d849700c
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sun,  2 Apr 2017 09:26:30 +0100

Define an update command

Diffstat:
M
helpful.el
 | 
11
+++++++++++

1 file changed, 11 insertions(+), 0 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -49,7 +49,18 @@
                           nil nil nil nil
                           (symbol-name (symbol-at-point)))))
   (switch-to-buffer (helpful--buffer symbol))
+  (helpful-mode)
+  (setq-local helpful--sym symbol)
   (helpful--update symbol))
 
+(define-derived-mode helpful-mode special-mode "Helpful")
+
+(defun helpful-update ()
+  (interactive)
+  (helpful--update helpful--sym))
+
+(define-key helpful-mode-map (kbd "g") #'helpful-update)
+
+
 (provide 'helpful)
 ;;; helpful.el ends here