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

fix(cli): print-group-if! -> print-group! + :if

Browse source 
Remove some vestigial references to the former, which was replaced with
the latter in b7bd27d.

Amend: b7bd27d22b
This commit is contained in:
Henrik Lissner 2022-09-16 02:41:39 +02:00
parent 7b1ac7cdc1
commit 00ff149ebe
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/cli/help.el
View file

@ -67,8 +67,7 @@ OPTIONS:
(signal 'doom-cli-command-not-found-error command) (signal 'doom-cli-command-not-found-error command)
(doom-cli-help--print cli context manpage? localonly?) (doom-cli-help--print cli context manpage? localonly?)
(exit! :pager?))) (exit! :pager?)))
(t ((dolist (section sections)
(dolist (section sections)
(unless (equal section (car sections)) (terpri)) (unless (equal section (car sections)) (terpri))
(pcase section (pcase section
("--synopsis" ("--synopsis"
@ -239,7 +238,7 @@ OPTIONS:
(when (and contents (not (string-blank-p contents))) (when (and contents (not (string-blank-p contents)))
(when label (when label
(print! (bold "%s%s") label (if manpage? "" ":"))) (print! (bold "%s%s") label (if manpage? "" ":")))
(print-group-if! label (printsection contents)))) (print-group! :if label (printsection contents))))
(pcase-dolist (`(,label . ,contents) .sections) (pcase-dolist (`(,label . ,contents) .sections)
(when (and contents (not (assoc label alist))) (when (and contents (not (assoc label alist)))
(print! (bold "%s:") label) (print! (bold "%s:") label)
@ -323,7 +322,7 @@ OPTIONS:
(let ((label (if (car-safe group) (cdr commands)))) (let ((label (if (car-safe group) (cdr commands))))
(when label (when label
(insert! ((bold "%s:") (car group)) "\n")) (insert! ((bold "%s:") (car group)) "\n"))
(print-group-if! label (print-group! :if label
(dolist (command (cdr group)) (dolist (command (cdr group))
(let* ((cli (doom-cli-get command t)) (let* ((cli (doom-cli-get command t))
(rcli (doom-cli-get command)) (rcli (doom-cli-get command))