mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
abedb71f96
- Replace 'doom profiles sync' with 'doom profile sync --all'. - Move lisp/cli/profiles.el to lisp/cli/profile.el. - Move obsolete alias to bin/doom.
72 lines
2.8 KiB
EmacsLisp
72 lines
2.8 KiB
EmacsLisp
;;; lisp/cli/profile.el -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(doom-require 'doom-lib 'profiles)
|
|
|
|
|
|
;;
|
|
;;; doom profile ...
|
|
|
|
(defcli! ((profile pf)) ()
|
|
"Emacs profile management commands."
|
|
:partial t)
|
|
|
|
(defcli! (profile sync)
|
|
((all? ("--all") "Synchronize all known profiles")
|
|
(reload? ("--reload") "Forcibly reload profile load file, even if its up-to-date"))
|
|
"Synchronize your profiles with Doom."
|
|
:benchmark t
|
|
(if (not all?)
|
|
(user-error "Individual profile syncing isn't implemented yet")
|
|
(let* ((old-profiles (doom-profiles-read doom-profile-cache-file))
|
|
(new-profiles (doom-profiles-autodetect))
|
|
(load-file doom-profile-load-file)
|
|
(version (doom-file-read load-file :by 'read :noerror t))
|
|
(recreate? (or (not reload?) (doom-profiles-outdated-p))))
|
|
(unless (file-exists-p load-file)
|
|
(print! (warn "No profile loader 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 loader (%s != %s)"
|
|
version doom-version))
|
|
(print! (start "Generating profile manifest..."))
|
|
(setq recreate? t))
|
|
(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-profile-cache-file (list new-profiles) :mode #o600)
|
|
(doom-profiles-write-load-file new-profiles load-file)
|
|
(print! (success "Regenerated profile loader: %s")
|
|
(path load-file)))))))))
|
|
|
|
(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) ())
|
|
|
|
(provide 'doom-cli-profile)
|
|
;;; profile.el ends here
|