diff options
| author | Matus Goljer <dota.keys@gmail.com> | 2014-02-18 13:52:25 +0100 |
|---|---|---|
| committer | Matus Goljer <dota.keys@gmail.com> | 2014-02-18 13:52:25 +0100 |
| commit | 38d4d2e2dac995a086af5060f42ba823aab7c039 (patch) | |
| tree | b4e88e8f5c6f9f8bc45c14754a716618069243a4 /lisp/use-package | |
| parent | aec1268960ff1161d7339139ba6b88175bc6fd70 (diff) | |
| download | emacs-38d4d2e2dac995a086af5060f42ba823aab7c039.tar.gz emacs-38d4d2e2dac995a086af5060f42ba823aab7c039.tar.bz2 emacs-38d4d2e2dac995a086af5060f42ba823aab7c039.zip | |
Add variable column width
Diffstat (limited to 'lisp/use-package')
| -rw-r--r-- | lisp/use-package/bind-key.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index c15a4321ef9..bf80140344f 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -88,6 +88,11 @@ "A simple way to manage personal keybindings" :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 "\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)" "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'." (interactive) (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) (dolist (binding (setq personal-keybindings @@ -242,7 +249,7 @@ function symbol (unquoted)." (if (not (eq (cdar last-binding) (cdar binding))) (princ (format "\n\n%s\n%s\n\n" (cdar binding) - (make-string 79 ?-))) + (make-string (+ 21 (car bind-key-column-widths) (cdr bind-key-column-widths)) ?-))) (if (and last-binding (cdr (compare-keybindings last-binding binding))) (princ "\n"))) @@ -260,7 +267,7 @@ function symbol (unquoted)." ) (let ((line (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) (if (string= command-desc at-present-desc) (if (or (null was-command) |