emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/doom-dashboard: show command at point in echo-area

Browse source
This commit is contained in:
Henrik Lissner 2019-03-01 18:28:55 -05:00
parent 21e01189b9
commit 735ec58b36
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/ui/doom-dashboard/config.el
View file

@ -416,16 +416,17 @@ controlled by `+doom-dashboard-pwd-policy'."
#',action)))
'face (or face 'font-lock-keyword-face)
'follow-link t
'help-echo label)
'help-echo
(format "%s (%s)" label
(propertize (symbol-name action) 'face 'font-lock-constant-face)))
(format "%-37s" (buffer-string)))
;; Lookup command keys dynamically
(or (when-let* ((key (where-is-internal action nil t)))
(propertize (with-temp-buffer
(save-excursion (insert (key-description key)))
(while (re-search-forward "<\\([^>]+\\)>" nil t)
(replace-match (upcase (substring (match-string 1) 0 3))))
(buffer-string))
'face 'font-lock-constant-face))
(with-temp-buffer
(save-excursion (insert (key-description key)))
(while (re-search-forward "<\\([^>]+\\)>" nil t)
(replace-match (upcase (substring (match-string 1) 0 3))))
(propertize (buffer-string) 'face 'font-lock-constant-face)))
""))))
(if (display-graphic-p)
"\n\n"