awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor, general refactors

Browse Source
This commit is contained in:
Henrik Lissner
2019-03-09 02:42:03 -05:00
parent 442bd7cfb9
commit 54d1c0dd56
8 changed files with 22 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/ui/doom-dashboard/config.el
View File

@ -429,7 +429,11 @@ controlled by `+doom-dashboard-pwd-policy'."
(with-temp-buffer
(save-excursion (insert (key-description key)))
(while (re-search-forward "<\\([^>]+\\)>" nil t)
(replace-match (upcase (substring (match-string 1) 0 3))))
(let ((str (match-string 1)))
(replace-match
(upcase (if (< (length str) 3)
str
(substring str 0 3))))))
(propertize (buffer-string) 'face 'font-lock-constant-face)))
""))))
(if (display-graphic-p)