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

feat(cli): allow docs to use %c/%p format specs

Browse source 
And replace magic section SYNOPSIS with EXAMPLES.
This commit is contained in:
Henrik Lissner 2022-06-21 02:08:19 +02:00
parent 0511445339
commit b0b727824a
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 27 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/cli/help.el
View file

@ -207,7 +207,7 @@ OPTIONS:
;; FIXME Who am I fooling?
(format (format "%%-%ds%%s%%%ds" width width)
"DOOM(1)" title "DOOM(1)")))
("NAME" . ,(concat (doom-cli-command-string cli) " - " .summary))
("NAME" . ,(concat .command " - " .summary))
("SYNOPSIS" . ,(doom-cli-help--render-synopsis .synopsis nil t))
("DESCRIPTION" . ,.description))
`((nil . ,(doom-cli-help--render-synopsis .synopsis "Usage: "))
@ -222,9 +222,17 @@ OPTIONS:
(if (or (not (doom-cli-fn cli)) noglobal?)
`(,(assq 'local .options))
.options)
cli)))))
cli))))
(command (doom-cli-command cli)))
(letf! (defun printsection (section)
(print! "%s\n" (if section (markup section) (dark "TODO"))))
(print! "%s\n"
(if (null section)
(dark "TODO")
(markup
(format-spec
section `((?p . ,(car command))
(?c . ,(doom-cli-command-string (cdr command))))
'ignore)))))
(pcase-dolist (`(,label . ,contents) alist)
(when (and contents (not (string-blank-p contents)))
(when label