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

Pretty layout of actions.

Browse source
This commit is contained in:
Phil Jackson 2010-09-01 19:27:49 +01:00
parent ee332fdf4f
commit 02600a8e47
1 changed files with 17 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
magit-key-mode.el
View file

@ -324,16 +324,29 @@ put it in magit-key-mode-key-maps for fast lookup."
(setq buffer-read-only t)
(fit-window-to-buffer))
(defun magit-key-mode-draw-actions (actions)
(when actions
(let* ((action-strs (mapcar (lambda (a)
(format " %s: %s" (car a) (nth 1 a)))
actions))
(longest-act (apply 'max (mapcar 'length action-strs)))
(max-size 70))
(insert "Actions:\n")
(dolist (str action-strs)
(let ((padding (make-string (- (+ longest-act 5) (length str)) ? )))
(insert str)
(if (> (+ (current-column) longest-act) max-size)
(insert "\n")
(insert padding))))
(insert "\n"))))
(defun magit-key-mode-draw (for-group)
"Function used to draw actions, switches and parameters."
(let* ((options (magit-key-mode-options-for-group for-group))
(switches (cdr (assoc 'switches options)))
(arguments (cdr (assoc 'arguments options)))
(actions (cdr (assoc 'actions options))))
(insert "Actions:\n")
(dolist (action actions)
(insert
(format " %s: %s\n" (car action) (nth 1 action))))
(magit-key-mode-draw-actions actions)
(when switches
(insert "Switches:\n")
(dolist (switch switches)