Skip to content

Commit

Permalink
undo commit-msg, add prefix to killall buffers
Browse files Browse the repository at this point in the history
  • Loading branch information
juszczakn committed Oct 27, 2016
1 parent 7735734 commit 966ad3d
Showing 1 changed file with 1 addition and 9 deletions.
10 changes: 1 addition & 9 deletions monky.el
Expand Up @@ -281,9 +281,6 @@ Many Monky faces inherit from this one by default."

;;; User facing configuration

(defvar monky-default-commit-msg ""
"Default text inserted by monky on new commit")

(put 'monky-mode 'mode-class 'special)

;;; Compatibilities
Expand Down Expand Up @@ -2916,10 +2913,6 @@ With a non numeric prefix ARG, show all entries"
(pop-to-buffer buf)
(setq default-directory dir)
(monky-log-edit-mode)
;; don't insert if not a new commit
(if (and (eq operation 'commit)
(= (point-min) (point-max)))
(insert monky-default-commit-msg))
(message "Type C-c C-c to %s (C-c C-k to cancel)." monky-log-edit-operation)))

(defun monky-log-edit ()
Expand All @@ -2945,15 +2938,14 @@ Brings up a buffer to allow editing of commit message."
(interactive "sBookmark name: ")
(monky-run-hg-async "bookmark" bookmark-name))

(defun killall-monky-buffers ()
(defun monky-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:
Expand Down

0 comments on commit 966ad3d

Please sign in to comment.