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

All actions fontified.

Browse source
This commit is contained in:
Phil Jackson 2010-09-01 19:35:12 +01:00
parent 4ab9bab7c5
commit 880b98d60e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
magit-key-mode.el
View file

@ -309,11 +309,15 @@ put it in magit-key-mode-key-maps for fast lookup."
(defun magit-key-mode-draw-actions (actions) (defun magit-key-mode-draw-actions (actions)
(when actions (when actions
(let* ((action-strs (mapcar (lambda (a) (let* ((action-strs (mapcar
(format " %s: %s" (car a) (nth 1 a))) (lambda (a)
actions)) (format
" %s: %s"
(propertize (car a) 'face 'font-lock-builtin-face)
(nth 1 a)))
actions))
(longest-act (apply 'max (mapcar 'length action-strs))) (longest-act (apply 'max (mapcar 'length action-strs)))
(max-size 70)) (max-size 60))
(magit-key-mode-draw-header "Actions\n") (magit-key-mode-draw-header "Actions\n")
(dolist (str action-strs) (dolist (str action-strs)
(let ((padding (make-string (- (+ longest-act 5) (length str)) ? ))) (let ((padding (make-string (- (+ longest-act 5) (length str)) ? )))