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

Don't add a newline if a menu item is the last.

Browse source
This commit is contained in:
Phil Jackson 2010-09-01 21:33:57 +01:00
parent e19f302976
commit fd23002268
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
magit-key-mode.el
View file

@ -341,17 +341,6 @@ put it in magit-key-mode-key-maps for fast lookup."
(magit-key-mode-draw-header "Switches\n")
(magit-key-mode-draw-in-cols switch-strs))))
(defun magit-key-mode-draw-in-cols (strings)
(let ((longest-act (apply 'max (mapcar 'length strings)))
(max-size 70))
(dolist (str strings)
(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-actions (actions)
(when actions
(let ((action-strs (mapcar
@ -365,6 +354,20 @@ put it in magit-key-mode-key-maps for fast lookup."
(magit-key-mode-draw-header "Actions\n")
(magit-key-mode-draw-in-cols action-strs))))
(defun magit-key-mode-draw-in-cols (strings)
"Given a list of strings, print in columns (using `insert')."
(let ((longest-act (apply 'max (mapcar 'length strings)))
(max-size 70))
(while strings
(let ((str (car strings)))
(let ((padding (make-string (- (+ longest-act 5) (length str)) ? )))
(insert str)
(if (and (> (+ (current-column) longest-act) max-size)
(cdr strings))
(insert "\n")
(insert padding))))
(setq strings (cdr strings))))
(insert "\n"))
(defun magit-key-mode-draw (for-group)
"Function used to draw actions, switches and parameters."