| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\306\316\317\320\310\305&\210\314\321\322\323\317\324\310\305&\210\314\325\326\327\317\324\310\305&\210\314\330\331\332\317\333\310\305&\210\314\334\306\335\317\336\310\305&\210\314\337\306\340\317\341\310\305&\210\314\342\343\344\317\345\310\305&\210\314\346\347\350\317\324\310\305&\210\314\351\306\352\317\341\310\305&\210\353\354\355\356\310\305%\210\353\357\360\361\310\305%\210\353\362\363\364\310\305%\207" [require dash popwin s custom-declare-group guide-key nil "Guide key bidings." :group help :prefix "guide-key/" custom-declare-variable guide-key/guide-key-sequence "*Key sequences to guide in `guide-key-mode'.\nThis variable is a list of string representation.\nBoth representations, like \"C-x r\" and \"\\C-xr\",\nare allowed.\n\nIn addition, an element of this list can be a list whose car is\nthe symbol for a certain mode, and whose cdr is a list of key\nsequences to consider only if that mode is active.\n\nSet this variable to `t' to enable for any key sequence." :type (repeat (choice (string :tag "Prefix key sequence") (cons :tag "Mode specific sequence" (symbol :tag "Symbol for mode") (repeat (string :tag "Prefix key sequence"))))) guide-key/polling-time 0.1 "*Polling time to check an input key sequence." float guide-key/idle-delay 1.0 "*Delay in seconds before guide buffer is displayed." guide-key/highlight-prefix-regexp "prefix" "*Regexp for prefix commands." regexp guide-key/highlight-command-regexp "*Regexp for commands to highlight.\nIf a command name matches this regexp, it is highlighted with\n`guide-key/highlight-command-face'.\n\nThis variable can be a list and its element is either a regexp or\na cons cell, its car is a regexp and its cdr is face symbol or\ncolor name string. If regexp, commands which match the regexp\nare highlighted with `guide-key/highlight-command-face'. If cons\ncell, commands which match the car regexp are highlighted with\nthe cdr face or color." (choice (regexp :tag "Regexp to highlight") (repeat (choice (regexp :tag "Regexp to highlight") (cons (regexp :tag "Regexp to highlight") (choice (face :tag "Face on command") (string :tag "Color name string")))))) guide-key/align-command-by-space-flag "*If non-nil, align guide buffer by space." boolean guide-key/popup-window-position 'right "*Position where guide buffer is popped up.\nThis variable must be one of `right', `bottom', `left' and `top'." (radio (const right) (const bottom) (const left) (const top)) guide-key/text-scale-amount 0 "*Amount of scaling text in guide buffer.\n\nIf positive number, the text becomes larger. If negative number,\nthe text becomes smaller. Scale of the text is detemined by the\nvalue of variable `text-scale-mode-step'." guide-key/recursive-key-sequence-flag "*If non-nil, check an input key sequence recursively.\nFor example, if `guide-key/guide-key-sequence' includes \"C-x\",\nguide buffer is popped up when you input \"C-x r\", \"C-x 4\" and\nany other prefixes following \"C-x\"." custom-declare-face guide-key/prefix-command-face ((((class color) (background dark)) (:foreground "cyan")) (((class color) (background light)) (:foreground "blue"))) "Face for prefix commands to highlight" guide-key/highlight-command-face ((((class color) (background dark)) (:foreground "yellow")) (((class color) (background light)) (:foreground "orange red"))) "Face for commands to highlight" guide-key/key-face ((((class color) (background dark)) (:foreground "red")) (((class color) (background light)) (:foreground "dark green"))) "Face for keys following to a key sequence"] 8) | |
| 16 | #@47 Polling timer to check an input key sequence. | |
| 17 | (defvar guide-key/polling-timer nil (#$ . 4062)) | |
| 18 | #@52 Idle timer to wait before popping up guide buffer. | |
| 19 | (defvar guide-key/idle-timer nil (#$ . 4163)) | |
| 20 | #@30 Buffer name of guide buffer. | |
| 21 | (defvar guide-key/guide-buffer-name " *guide-key*" (#$ . 4266)) | |
| 22 | #@51 Key sequence input at the last polling operation. | |
| 23 | (defvar guide-key/last-key-sequence-vector nil (#$ . 4365)) | |
| 24 | #@263 Non-nil if Guide-Key mode is enabled. | |
| 25 | See the `guide-key-mode' command | |
| 26 | for a description of this minor mode. | |
| 27 | Setting this variable directly does not take effect; | |
| 28 | either customize it (see the info node `Easy Customization') | |
| 29 | or call the function `guide-key-mode'. | |
| 30 | (custom-declare-variable 'guide-key-mode nil '(#$ . 4482) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'guide-key :type 'boolean) | |
| 31 | #@210 Toggle guide key mode. | |
| 32 | ||
| 33 | In guide key mode, Guide following keys to an input key sequence | |
| 34 | automatically and dynamically. | |
| 35 | With a prefix argument ARG, enable guide key mode if ARG is | |
| 36 | positive, otherwise disable. | |
| 37 | (defalias 'guide-key-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203! \312\202\" \313 \210\314\315\307\302!\2030 \316\2021 \317\"\210\320\321!\203\\ \322\302!\210\304 \203I \304 \232\203\\ \323\324\325\307\302!\203W \326\202X \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg guide-key-mode local current-message set-default toggle default-value prefix-numeric-value 0 guide-key/turn-on-timer guide-key/turn-off-timer run-hooks guide-key-mode-hook guide-key-mode-on-hook guide-key-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Guide-Key mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 4910) (list (or current-prefix-arg 'toggle))]) | |
| 38 | (defvar guide-key-mode-hook nil) | |
| 39 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [guide-key-mode-map guide-key-mode-hook variable-documentation put "Hook run after entering or leaving `guide-key-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode guide-key-mode " Guide" boundp nil] 6) | |
| 40 | #@69 Popup function called after delay of `guide-key/idle-delay' second. | |
| 41 | (defalias 'guide-key/popup-function #[(&optional input) "\206 \306 p\307 r\310!q\210\204 \311\203$ \312\312\313!\210\314 \210\315 \"\210\316 \n\"\307V\205B \317 \210\320 -\207" [input guide-key/highlight-command-regexp regexp key-seq max-width dsc-buf this-single-command-keys 0 get-buffer-create t nil text-scale-set erase-buffer describe-buffer-bindings guide-key/format-guide-buffer guide-key/close-guide-buffer guide-key/popup-guide-buffer guide-key/guide-buffer-name truncate-lines indent-tabs-mode mode-line-format guide-key/text-scale-amount] 3 (#$ . 6278)]) | |
| 42 | #@66 Polling function executed every `guide-key/polling-time' second. | |
| 43 | (defalias 'guide-key/polling-function #[nil "\302 \303!\203 \304!\203 \305 \210\202 \306 \210\211)\207" [key-seq guide-key/last-key-sequence-vector this-single-command-keys guide-key/popup-guide-buffer-p guide-key/update-guide-buffer-p guide-key/turn-on-idle-timer guide-key/close-guide-buffer] 2 (#$ . 6940)]) | |
| 44 | #@59 Pop up guide buffer at `guide-key/popup-window-position'. | |
| 45 | (defalias 'guide-key/popup-guide-buffer #[nil "\304\305\306\n!\307 \310\311\312 !\203 \313\314\315!D\202# \316 !\205# \317\314 D&\210 \211)\207" [popwin:popup-last-config last-config guide-key/guide-buffer-name guide-key/popup-window-position apply popwin:popup-buffer get-buffer :position :noselect t popwin:position-horizontal-p :width guide-key/popup-window-size horizontal popwin:position-vertical-p :height] 10 (#$ . 7330)]) | |
| 46 | #@209 Return an enough height or width of popup window to display | |
| 47 | all key bindings in guide buffer. | |
| 48 | ||
| 49 | If HORIZONTAL is omitted or nil, return the height of popup | |
| 50 | window. Otherwise, return the width of popup window | |
| 51 | (defalias 'guide-key/popup-window-size #[(&optional horizontal) "r\306!q\210 \203 \307\202 \310\311\n \" \203$ \312\f\313 \\_!\202. \312\f\314ed\" \\_!+\207" [guide-key/guide-buffer-name horizontal text-scale-mode-step text-scale-mode-amount scale margin get-buffer 5 1 expt ceiling guide-key/buffer-max-width count-lines] 5 (#$ . 7830)]) | |
| 52 | #@21 Close guide buffer. | |
| 53 | (defalias 'guide-key/close-guide-buffer #[nil "\302 !=\203 \303 \210\304 \207" [popwin:popup-buffer guide-key/guide-buffer-name get-buffer popwin:close-popup-window guide-key/turn-off-idle-timer] 3 (#$ . 8389)]) | |
| 54 | (add-hook 'pre-command-hook 'guide-key/close-guide-buffer) | |
| 55 | #@45 Return t if guide buffer should be updated. | |
| 56 | (defalias 'guide-key/update-guide-buffer-p #[(key-seq) " \232?\207" [guide-key/last-key-sequence-vector key-seq] 2 (#$ . 8688)]) | |
| 57 | #@47 Return t if guide buffer should be popped up. | |
| 58 | (defalias 'guide-key/popup-guide-buffer-p #[(key-seq) "G\303V\205 \304=\206 \305 \235\206 \n\205 \306\307!!\207" [key-seq guide-key/guide-key-sequence guide-key/recursive-key-sequence-flag 0 t guide-key/buffer-key-sequences guide-key/popup-guide-buffer-p guide-key/vbutlast] 3 (#$ . 8868)]) | |
| 59 | #@75 Return a list of key sequences (vector representation) in current buffer. | |
| 60 | (defalias 'guide-key/buffer-key-sequences #[nil "\306 \306\211\203 @\211;\203 \nB A\211\204\n *\307\310\f \"\" \306 \f\211\203P @\f\311\f!\203I \fJ\203I \307\310\f \"\" A\211\204/ *\312\313\")\207" [lst guide-key/guide-key-sequence ks --dolist-tail-- major-mode minor-mode-list nil append assoc-default boundp mapcar guide-key/convert-key-sequence-to-vector mmode] 5 (#$ . 9219)]) | |
| 61 | #@63 Return a copy of vector VEC with the last N elements removed. | |
| 62 | (defalias 'guide-key/vbutlast #[(vec &optional n) "\302\303\304\305\" \"!\207" [vec n vconcat butlast append nil] 5 (#$ . 9702)]) | |
| 63 | #@120 Convert key sequence KEY-SEQ to vector representation. | |
| 64 | For example, both "C-x r" and "\C-xr" are converted to [24 114] | |
| 65 | (defalias 'guide-key/convert-key-sequence-to-vector #[(key-seq) "\301\302!!\207" [key-seq vconcat read-kbd-macro] 3 (#$ . 9902)]) | |
| 66 | #@52 Turn on an idle timer for popping up guide buffer. | |
| 67 | (defalias 'guide-key/turn-on-idle-timer #[nil "?\205\f \302 \303\304#\211\207" [guide-key/idle-timer guide-key/idle-delay run-with-idle-timer t guide-key/popup-function] 4 (#$ . 10158)]) | |
| 68 | #@26 Turn off the idle timer. | |
| 69 | (defalias 'guide-key/turn-off-idle-timer #[nil "\203 \301!\210\302\211\207" [guide-key/idle-timer cancel-timer nil] 2 (#$ . 10404)]) | |
| 70 | #@26 Turn on a polling timer. | |
| 71 | (defalias 'guide-key/turn-on-timer #[nil "?\205\f \302\303 \304#\211\207" [guide-key/polling-timer guide-key/polling-time run-at-time t guide-key/polling-function] 4 (#$ . 10572)]) | |
| 72 | #@27 Turn off a polling timer. | |
| 73 | (defalias 'guide-key/turn-off-timer #[nil "\301!\210\302\211\207" [guide-key/polling-timer cancel-timer nil] 2 (#$ . 10786)]) | |
| 74 | #@74 Format guide buffer. This function returns the number of following keys. | |
| 75 | (defalias 'guide-key/format-guide-buffer #[(key-seq &optional regexp) "\306\211\307\310! \311ed\"\210eb\210\312\313\314\315 !\"\306\316#\203? \317\320!\317\321!\317\322!E\211 \f\235\2035 \f\210\202; \323\f C\")\202 \324 \210\fG\211\307V\203\247 \f \306\211 \306\211 \306 :\203\226 @\211 \211A \242 \211A \242 @\325 $ B A\211\202_ \237.\326 \327 !\"\210eb\210\n,\207" [key-seq key-dsc fkey-list-len fkey-str-list fkey-list #1=#:x nil 0 key-description untabify re-search-forward format "^%s \\([^ ]+\\)\\([ ]+\\)\\(\\(?:[^ \n]+ ?\\)+\\)$" regexp-quote t match-string 1 2 3 append erase-buffer guide-key/fontified-string guide-key/insert-following-key popwin:position-horizontal-p #2=#:--cl-var-- key space command #3=#:--cl-var-- #4=#:--cl-var-- regexp guide-key/popup-window-position] 6 (#$ . 10946)]) | |
| 76 | #@196 Insert a few following keys per line. | |
| 77 | ||
| 78 | If HORIZONTAL is omitted or nil, assume that guide buffer is | |
| 79 | popped up at top or bottom. Otherwise, assume that guide buffer | |
| 80 | is popped up at left or right. | |
| 81 | (defalias 'guide-key/insert-following-key #[(fkey-str-list horizontal) "\306 \" \203* \307\fG\n_\310\311 \203 \312\202 \313\203# \314\202$ \313#\245!\2028 \315\316 \317\320\321\322\f\"\"\n_\245! \f \323 \314 :\203o @\211 \324 \"\313U\203^ \325\202_ \326\261\210 A T \202C +\327ed\330\314\211\331&*\207" [text-scale-mode-step text-scale-mode-amount scale horizontal fkey-str-list tool-bar-mode expt ceiling - frame-height 2 0 1 floor frame-width apply max mapcar length nil mod "\n" " " align-regexp "\\(\\s-*\\) \\[" t menu-bar-mode columns #1=#:--cl-var-- fkey-str column] 8 (#$ . 11879)]) | |
| 82 | #@42 Return fontified string of following key | |
| 83 | (defalias 'guide-key/fontified-string #[(key space command &optional regexp) "\306 \"\307\310\311\312#\n\203 \307 \311\n#\202 \307\313\311\312#\f\203$ \202% \314\n\2031 \307\311\n#\2022 \260)\207" [command regexp highlight-face key guide-key/align-command-by-space-flag space guide-key/get-highlight-face propertize "[" face guide-key/key-face "]" " "] 8 (#$ . 12697)]) | |
| 84 | #@191 Return an appropriate face for highlighting STRING according | |
| 85 | to `guide-key/highlight-prefix-regexp' and | |
| 86 | `guide-key/highlight-command-regexp'. Return nil if an | |
| 87 | appropriate face is not found. | |
| 88 | (defalias 'guide-key/get-highlight-face #[(string &optional regexp) "\206 \306\n \"\203 \307\202\204 ;\203! \306 \"\205\204 \310\202\204 <\205\204 \311 \312 \f\311 \f:\203\201 \f@\211;\203H \306 \"\205d \310\202d :\205d \306 @ \"\205d A;\203b \313 AD\202d A\211 \203u \311\211\f\202v \312)\203\201 \fA\211\2021 ,)\207" [regexp guide-key/highlight-command-regexp guide-key/highlight-prefix-regexp string #1=#:--cl-var-- elm string-match guide-key/prefix-command-face guide-key/highlight-command-face nil t :foreground #2=#:--cl-var-- #3=#:--cl-var-- it] 4 (#$ . 13124)]) | |
| 89 | #@37 Return max width in current buffer. | |
| 90 | (defalias 'guide-key/buffer-max-width #[nil "\301ed\"\302\303\304\305\306\307\"\"\")\207" [buf-str buffer-substring-no-properties apply max mapcar length split-string "\n"] 7 (#$ . 13915)]) | |
| 91 | (defalias 'guide-key/add-local-guide-key-sequence #[(key) "\301\302\303!\"\207" [key add-to-list make-local-variable guide-key/guide-key-sequence] 3]) | |
| 92 | (defalias 'guide-key/add-local-highlight-command-regexp #[(regexp) "\302\300!\210;\203 D\211\207<\205! \235\203 \207 B\211\207" [guide-key/highlight-command-regexp regexp make-local-variable] 2]) | |
| 93 | (byte-code "\300\301\302\303\304$\210\300\305\306\303\304$\207" [ad-add-advice this-command-keys (key-chord-hack nil nil (advice lambda nil "Add key chord to the key sequence returned by `this-command-keys'.\n\nOriginal `this-command-keys' returns \"[key-chord]\" when you\ntype any of key chords, so it is difficult to know which key\nchord is pressed. This advice enables to distinguish pressed key\nchord." (condition-case nil (if (equal ad-return-value [key-chord]) (let ((rkeys (recent-keys))) (setq ad-return-value (vector 'key-chord (aref rkeys (- (length rkeys) 2)) (aref rkeys (- (length rkeys) 1)))))) (error "")))) after nil this-command-keys-vector (key-chord-hack nil nil (advice lambda nil "Add key chord to the key sequence returned by `this-command-keys-vector'.\n\nOriginal `this-command-keys-vector' returns \"[key-chord]\" when you\ntype any of key chords, so it is difficult to know which key\nchord is pressed. This advice enables to distinguish pressed key\nchord." (condition-case nil (if (equal ad-return-value [key-chord]) (let ((rkeys (recent-keys))) (setq ad-return-value (vector 'key-chord (aref rkeys (- (length rkeys) 2)) (aref rkeys (- (length rkeys) 1)))))) (error []))))] 5) | |
| 94 | #@156 Turn on key-chord hack of guide-key. | |
| 95 | ||
| 96 | This hack *may be dangerous* because it advices primitive | |
| 97 | functions; this-command-keys and this-command-keys-vector. | |
| 98 | (defalias 'guide-key/key-chord-hack-on #[nil "\302\303\211\203 @\304\305\306#\210\307!\210 A\211\204 *\310\311!\207" [fn --dolist-tail-- (this-command-keys this-command-keys-vector) nil ad-enable-advice after key-chord-hack ad-activate message "Turn on key-chord hack of guide-key"] 5 (#$ . 15720) nil]) | |
| 99 | #@39 Turn off key-chord hack of guide-key. | |
| 100 | (defalias 'guide-key/key-chord-hack-off #[nil "\302\303\211\203 @\304\305\306#\210\307!\210 A\211\204 *\310\311!\207" [fn --dolist-tail-- (this-command-keys this-command-keys-vector) nil ad-disable-advice after key-chord-hack ad-activate message "Turn off key-chord hack of guide-key"] 5 (#$ . 16194) nil]) | |
| 101 | #@2 | |
| 102 | (defalias 'guide-key/message-events #[nil "\303\304\305\306 \307 \310 \n&!\207" [last-command-event last-input-event unread-command-events message format "lce:%S tck:%S tckv:%S tsck:%S lie:%S uce:%S" this-command-keys this-command-keys-vector this-single-command-keys] 9 (#$ . 16553)]) | |
| 103 | (provide 'guide-key) | |
