awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-21 13:53:38 -05:00
Code Issues Packages Projects Releases 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
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