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

draw-switches function.

Browse source
This commit is contained in:
Phil Jackson 2010-09-01 19:39:58 +01:00
parent 1440328eaa
commit b67b2558d8
1 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
magit-key-mode.el
View file

@ -322,6 +322,21 @@ put it in magit-key-mode-key-maps for fast lookup."
(gethash (nth 2 argument) magit-key-mode-current-args "")
'face 'widget-field))))))
(defun magit-key-mode-draw-switches (switches)
(when switches
(magit-key-mode-draw-header "Switches\n")
(dolist (switch switches)
(let ((option (nth 2 switch)))
(insert
(format " %s: %s (%s)\n"
(car switch)
(nth 1 switch)
(if (member option magit-key-mode-current-options)
(propertize
option
'face 'font-lock-warning-face)
option)))))))
(defun magit-key-mode-draw-actions (actions)
(when actions
(let* ((action-strs (mapcar
@ -349,18 +364,7 @@ put it in magit-key-mode-key-maps for fast lookup."
(arguments (cdr (assoc 'arguments options)))
(actions (cdr (assoc 'actions options))))
(magit-key-mode-draw-actions actions)
(when switches
(magit-key-mode-draw-header "Switches\n")
(dolist (switch switches)
(let ((option (nth 2 switch)))
(insert
(format " %s: %s (%s)\n"
(car switch)
(nth 1 switch)
(if (member option magit-key-mode-current-options)
(propertize option
'face 'font-lock-warning-face)
option))))))
(magit-key-mode-draw-switches switches)
(magit-key-mode-draw-args arguments)))
(provide 'magit-key-mode)