masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add variable column width

Browse source
This commit is contained in:
Matus Goljer 2014-02-18 13:52:25 +01:00
parent aec1268960
commit 38d4d2e2da
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/use-package/bind-key.el
View file

@ -88,6 +88,11 @@
"A simple way to manage personal keybindings" "A simple way to manage personal keybindings"
:group 'emacs) :group 'emacs)
(defcustom bind-key-column-widths '(18 . 40)
"Width of columns in `describe-personal-keybindings'."
:type '(cons integer integer)
:group 'bind-key)
(defcustom bind-key-segregation-regexp (defcustom bind-key-segregation-regexp
"\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)" "\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)"
"Regular expression used to divide key sets in the output from "Regular expression used to divide key sets in the output from
@ -229,9 +234,11 @@ function symbol (unquoted)."
"Display all the personal keybindings defined by `bind-key'." "Display all the personal keybindings defined by `bind-key'."
(interactive) (interactive)
(with-output-to-temp-buffer "*Personal Keybindings*" (with-output-to-temp-buffer "*Personal Keybindings*"
(princ "Key name Command Comments (princ (format "Key name%s Command%s Comments\n%s %s ---------------------\n"
----------------- --------------------------------------- --------------------- (make-string (- (car bind-key-column-widths) 9) ? )
") (make-string (- (cdr bind-key-column-widths) 8) ? )
(make-string (1- (car bind-key-column-widths)) ?-)
(make-string (1- (cdr bind-key-column-widths)) ?-)))
(let (last-binding) (let (last-binding)
(dolist (binding (dolist (binding
(setq personal-keybindings (setq personal-keybindings
@ -242,7 +249,7 @@ function symbol (unquoted)."
(if (not (eq (cdar last-binding) (cdar binding))) (if (not (eq (cdar last-binding) (cdar binding)))
(princ (format "\n\n%s\n%s\n\n" (princ (format "\n\n%s\n%s\n\n"
(cdar binding) (cdar binding)
(make-string 79 ?-))) (make-string (+ 21 (car bind-key-column-widths) (cdr bind-key-column-widths)) ?-)))
(if (and last-binding (if (and last-binding
(cdr (compare-keybindings last-binding binding))) (cdr (compare-keybindings last-binding binding)))
(princ "\n"))) (princ "\n")))
@ -260,7 +267,7 @@ function symbol (unquoted)."
) )
(let ((line (let ((line
(format (format
"%-18s%-40s%s\n" (format "%%-%ds%%-%ds%%s\n" (car bind-key-column-widths) (cdr bind-key-column-widths))
key-name (format "`%s\'" command-desc) key-name (format "`%s\'" command-desc)
(if (string= command-desc at-present-desc) (if (string= command-desc at-present-desc)
(if (or (null was-command) (if (or (null was-command)