killall-monky-buffers

monky.el

@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'cl)
+(require 'cl-lib)
 (require 'bindat)
 
 (defgroup monky nil
@@ -2944,6 +2945,15 @@ Brings up a buffer to allow editing of commit message."
   (interactive "sBookmark name: ")
   (monky-run-hg-async "bookmark" bookmark-name))
 
+(defun killall-monky-buffers ()
+  (interactive)
+  (cl-flet ((monky-buffer-p (b) (string-match "\*monky\\(:\\|-\\).*" (buffer-name b))))
+    (let ((monky-buffers (cl-remove-if-not #'monky-buffer-p (buffer-list))))
+      (cl-loop for mb in monky-buffers
+               do
+               (kill-buffer mb)))))
+
+
 (provide 'monky)
 
 ;; Local Variables: