mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues Projects Releases Wiki Activity

feat(doom-cli): shows diff in terminal

Browse source 
if gh is found
This commit is contained in:
Ag Ibragimov 2025-04-30 16:39:18 -05:00
parent ca7e226e13
commit 117cc5702c
No known key found for this signature in database
GPG key ID: CFE12444AF47BD1D
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/cli/upgrade.el
View file

@ -134,11 +134,18 @@ libraries. It is the equivalent of the following shell commands:
this-rev
new-rev)))
(print! "Link to diff: %s" diff-url)
(when (and (not auto-accept-p)
(y-or-n-p "View the comparison diff in your browser?"))
(print! (item "Opened github in your browser."))
(browse-url diff-url)))
(if-let* ((gh (executable-find "gh"))
(cmd (format "%s api repos/doomemacs/doomemacs/compare/%s...%s"
gh this-rev new-rev)))
(progn
(when-let* ((delta (executable-find "delta")))
(setq cmd (format "%s | %s --paging=never" cmd delta)))
(print! "Comparison diff: %s" diff-url)
(sh! cmd))
(when (and (not auto-accept-p)
(y-or-n-p "View the comparison diff in your browser?"))
(print! (item "Opened github in your browser."))
(browse-url diff-url))))
(if (not (or auto-accept-p
(y-or-n-p "Proceed with upgrade?")))
(ignore (print! (error "Aborted")))