Commit 094d79bb0be1

Vincent Demeester <vincent@sbr.pm>
2018-09-13 17:19:16
Add git-commit history binded to `M-r'
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent f117937
Changed files (1)
lisp
vde-vcs.el
lisp/vde-vcs.el
@@ -72,6 +72,16 @@
   :defer 2
   :init (global-git-commit-mode)
   :config
+  (defun ar/git-commit-search-message-history ()
+    "Search and insert commit message from history."
+    (interactive)
+    (insert (completing-read "History: "
+                             ;; Remove unnecessary newlines from beginning and end.
+                             (mapcar (lambda (text)
+                                       (string-trim text))
+                                     (ring-elements log-edit-comment-ring)))))
+  (bind-key "M-r" #'ar/git-commit-search-message-history git-commit-mode-map)
+  (add-to-list 'savehist-additional-variables log-edit-comment-ring)
   (remove-hook 'git-commit-finish-query-functions
                #'git-commit-check-style-conventions))