gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add magit-wazzup-head and magit-wazzup-all-p variables for wazzup buffers.

Browse source
This commit is contained in:
Nathan Weizenbaum 2010-06-24 18:14:13 -07:00
parent cb5ca4ce40
commit 5c5ba412b9
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
magit.el
View file

@ -3741,6 +3741,16 @@ This is only non-nil in reflog buffers.")
;;; Wazzup ;;; Wazzup
(defvar magit-wazzup-head nil
"The integration head for the current wazzup buffer.
This is only non-nil in wazzup buffers.")
(make-variable-buffer-local 'magit-wazzup-head)
(defvar magit-wazzup-all-p nil
"Non-nil if the current wazzup buffer displays excluded branches.
This is only meaningful in wazzup buffers.")
(make-variable-buffer-local 'magit-wazzup-all-p)
(defun magit-wazzup-toggle-ignore (branch edit) (defun magit-wazzup-toggle-ignore (branch edit)
(let ((ignore-file ".git/info/wazzup-exclude")) (let ((ignore-file ".git/info/wazzup-exclude"))
(if edit (if edit
@ -3756,6 +3766,8 @@ This is only non-nil in reflog buffers.")
(magit-need-refresh)))) (magit-need-refresh))))
(defun magit-refresh-wazzup-buffer (head all) (defun magit-refresh-wazzup-buffer (head all)
(setq magit-wazzup-head head)
(setq magit-wazzup-all-p all)
(let ((branch-desc (or head "(detached) HEAD"))) (let ((branch-desc (or head "(detached) HEAD")))
(unless head (setq head "HEAD")) (unless head (setq head "HEAD"))
(magit-create-buffer-sections (magit-create-buffer-sections