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

Remove TODO colorizing in bin/doom help

Browse source 
It's unused and excessive. KISS!
This commit is contained in:
Henrik Lissner 2018-06-05 11:19:34 +02:00
parent 282e0d6653
commit f71d4634e8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
core/core-dispatcher.el
View file

@ -22,20 +22,18 @@ commands like `doom//packages-install', `doom//packages-update' and
(defconst doom--dispatch-alias-alist ()) (defconst doom--dispatch-alias-alist ())
(defun doom--dispatch-format (desc &optional short) (defun doom--dispatch-format (desc &optional short)
(if (equal desc "TODO") (with-temp-buffer
(format! (yellow "TODO")) (let ((fill-column 72))
(with-temp-buffer (insert desc)
(let ((fill-column 72)) (goto-char (point-min))
(insert desc) (while (re-search-forward "\n\n[^ \n]" nil t)
(goto-char (point-min)) (fill-paragraph)))
(while (re-search-forward "\n\n[^ \n]" nil t) (if (not short)
(fill-paragraph))) (buffer-string)
(if (not short) (goto-char (point-min))
(buffer-string) (buffer-substring-no-properties
(goto-char (point-min)) (line-beginning-position)
(buffer-substring-no-properties (line-end-position)))))
(line-beginning-position)
(line-end-position))))))
(defun doom--dispatch-help (&optional command desc &rest args) (defun doom--dispatch-help (&optional command desc &rest args)
"Display help documentation for a dispatcher command. If COMMAND and DESC are "Display help documentation for a dispatcher command. If COMMAND and DESC are