Minor, general refactors
This commit is contained in:
parent
442bd7cfb9
commit
54d1c0dd56
8 changed files with 22 additions and 17 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue