awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(cli): defcli-obsolete!: allow arbitrary obsolescence message

Browse Source 
Ala `make-obsolete`.
This commit is contained in:
Henrik Lissner
2024-12-08 19:18:12 -05:00
parent 254a8d38a7
commit 7de9723334
1 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/doom-cli.el
View File

@ -1750,20 +1750,27 @@ TARGET is not a command specification, and should be a command list."
See `defcli!' for information about COMMANDSPEC.
TARGET is simply a command list.
WHEN specifies what version this command was rendered obsolete."
`(let ((ncommand (doom-cli-command-normalize (backquote ,target) doom-cli--group-plist)))
`(let* ((target (backquote ,target)))
(defcli! ,commandspec (&context _context &cli cli &rest args)
:docs (format "An obsolete alias for '%s'." (doom-cli-command-string ncommand))
:obsolete (cons ncommand ,when)
:docs (if (stringp target)
(format "An obsolete command: %s" target)
(format "An obsolete alias for '%s'."
(doom-cli-command-string
(doom-cli-command-normalize target doom-cli--group-plist))))
:obsolete (cons target ,when)
:hide t
(let* ((obsolete (plist-get (doom-cli-plist cli) :obsolete))
(newcmd (car obsolete))
(when (cdr obsolete)))
(print! (warn "'%s' was deprecated in %s")
(cl-destructuring-bind (target . when)
(plist-get (doom-cli-plist cli) :obsolete)
(print! (warn "'%s' was %s in %s")
(doom-cli-command-string cli)
(if (stringp target) "removed" "deprecated")
when)
(print! (warn "It will eventually be removed; use '%s' instead.")
(doom-cli-command-string newcmd))
(call! ',target args)))))
(if (stringp target)
(print! (warn "%s." target))
(setq target (doom-cli-command-normalize target doom-cli--group-plist))
(print! (warn "It will eventually be removed; use '%s' instead.")
(doom-cli-command-string target))
(call! ',target args))))))
(defmacro defcli-stub! (commandspec &optional _argspec &rest body)
"Define a stub CLI, which will throw an error if invoked.