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

fix(cli): add lisp/cli/profiles.el

Browse source 
I forgot to add the definitions for the 'doom profile{s,}' commands in
b914830, which causes "unrecognized command 'profiles sync'" errors on
'doom {sync,upgrade}'.

My unparalleled brilliance is 4 parallel universes ahead of me, clearly.

Amend: b914830403
This commit is contained in:
Henrik Lissner 2022-09-16 02:23:42 +02:00
parent 36d3a62f6e
commit cc0e6a61c3
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 84 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

84
lisp/cli/profiles.el Normal file
View file

@ -0,0 +1,84 @@
;;; lisp/cli/profiles.el -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
;;
;;; Variables
(defvar doom-cli-known-profiles-file
(file-name-concat doom-cache-dir "known-profiles.el")
"TODO")
;;
;;; doom profile ...
(defcli-stub! ((profile pf)) ())
(defcli-stub! (profile hash) ())
(defcli-stub! (profile new) ())
(defcli-stub! (profile archive) ())
(defcli-stub! (profile (remove rm)) ())
(defcli-stub! (profile (rename mv)) ())
(defcli-stub! (profile nuke) ())
;;
;;; doom profiles ...
(defcli! (profiles sync) ()
"Synchronize your profiles with Doom."
:benchmark t
(let* ((old-profiles (doom-profiles-read doom-cli-known-profiles-file))
(new-profiles (doom-profiles-autodetect))
(init-file doom-profiles-bootstrap-file)
(version (doom-file-read init-file :by 'read :noerror t))
(recreate? (doom-profiles-outdated-p)))
(unless (file-exists-p init-file)
(print! (warn "No profile manifest found. Generating one..."))
(print-group! (print! (start "Regenerating it...")))
(setq recreate? t))
(unless (equal (or version doom-version) doom-version)
(print! (warn "Detected version mismatch in profile manifest (%s != %s)"
version
doom-version))
(print! (start "Generating profile manifest..."))
(setq recreate? t))
(print-group!
(if (not recreate?)
(doom-log "Profiles are up-to-date!")
(let* ((pred (lambda (a b) (eq (car a) (car b))))
(added (seq-difference new-profiles old-profiles pred))
(removed (seq-difference old-profiles new-profiles pred))
(changed (cl-loop for profile in (seq-intersection new-profiles old-profiles pred)
unless (equal (cdr profile)
(alist-get (car profile) old-profiles))
collect profile)))
(when (or added removed changed recreate?)
(print! (start "Synchronizing %d known profile%s...")
(length new-profiles)
(if (/= (length new-profiles) 1) "s" ""))
(print-group!
(dolist (p added) (print! (item "Added %S") (car p)))
(dolist (p removed) (print! (item "Removed %S") (car p)))
(dolist (p changed) (print! (item "Changed %S") (car p)))
(doom-file-write doom-cli-known-profiles-file (list new-profiles) :mode #o600)
(print! (success "Regenerated profile manifest: %s")
(path doom-cli-known-profiles-file))
(doom-profiles-save new-profiles doom-profiles-bootstrap-file)
(print! (success "Regenerated profile init file: %s")
(path doom-profiles-bootstrap-file)))))))))
;;
;;; Helpers
(provide 'doom-cli-profiles)
;;; profiles.el ends here