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 refactors & reformatting

Browse Source
This commit is contained in:
Henrik Lissner
2019-12-05 14:56:16 -05:00
parent 96e0ccab21
commit c13b8df5df
4 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/autoload/help.el
View File

@ -306,14 +306,14 @@ without needing to check if they are available."
(defun doom--help-modules-list ()
(cl-loop for path in (cdr (doom-module-load-path 'all))
for (cat . mod) = (doom-module-from-path path)
for path = (or (doom-module-locate-path cat mod "README.org")
(doom-module-locate-path cat mod))
for readme-path = (or (doom-module-locate-path cat mod "README.org")
(doom-module-locate-path cat mod))
for format = (format "%s %s" cat mod)
if (doom-module-p cat mod)
collect (list format path)
collect (list format readme-path)
else if (and cat mod)
collect (list (propertize format 'face 'font-lock-comment-face)
path)))
readme-path)))
(defun doom--help-current-module-str ()
(cond ((and buffer-file-name