diff --git a/core/cli/help.el b/core/cli/help.el index 39e136b54..11bc2e77f 100644 --- a/core/cli/help.el +++ b/core/cli/help.el @@ -74,7 +74,7 @@ :bare t (if command (doom--cli-print (doom-cli-get (intern command))) - (doom--cli-print (doom-cli-get :main)) + (doom--cli-print (doom-cli-get :doom)) (terpri) (print! (bold "Commands:")) (print-group! diff --git a/core/core-cli.el b/core/core-cli.el index 5e6ab5711..caa1a2bb8 100644 --- a/core/core-cli.el +++ b/core/core-cli.el @@ -164,6 +164,10 @@ purpose.") (command)) doom--cli-commands))))) +(defun doom-cli-internal-p (cli) + "Return non-nil if CLI is an internal (non-public) command." + (string-prefix-p ":" (doom-cli-name cli))) + (defun doom-cli-execute (command &rest args) "Execute COMMAND (string) with ARGS (list of strings).