85 lines
2.9 KiB
EmacsLisp
85 lines
2.9 KiB
EmacsLisp
|
;;; 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
|