;;; lisp/cli/sync.el --- synchronize config command -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:

(load! "packages")


;;
;;; Variables

(defvar doom-after-sync-hook ()
  "Hooks run after 'doom sync' synchronizes the user's config with Doom.")

(defvar doom-before-sync-hook ()
  "Hooks run before 'doom sync' synchronizes the user's config with Doom.")


;;
;;; Commands

(defcli-alias! (:before (sync s)) (:before build))

(defcli! ((sync s))
    ((noenvvar? ("-e") "Don't regenerate the envvar file")
     (noelc?    ("-c") "Don't recompile config")
     (update?   ("-u") "Update installed packages after syncing")
     (purge?    ("-p") "Purge orphaned package repos & regraft them")
     (jobs      ("-j" "--jobs" num) "How many CPUs to use for native compilation"))
  "Synchronize your config with Doom Emacs.

This is the equivalent of running autoremove, install, autoloads, then
recompile. Run this whenever you:

  1. Modify your `doom!' block,
  2. Add or remove `package!' blocks to your config,
  3. Add or remove autoloaded functions in module autoloaded files.
  4. Update Doom outside of Doom (e.g. with git)

It will ensure that unneeded packages are removed, all needed packages are
installed, autoloads files are up-to-date and no byte-compiled files have gone
stale.

OPTIONS:
  -j, --jobs
    Defaults to the maximum number of threads (or 1, if your CPU's threadcount
    can't be determined)."
  :benchmark t
  (call! '(profiles sync "--reload"))
  (run-hooks 'doom-before-sync-hook)
  (add-hook 'kill-emacs-hook #'doom-sync--abort-warning-h)
  (when jobs
    (setq native-comp-async-jobs-number (truncate jobs)))
  (print! (start "Synchronizing %S profile..." )
          (if doom-profile
              (car (split-string doom-profile "@"))
            "default"))
  (unwind-protect
      (print-group!
       (when (and (not noenvvar?)
                  (file-exists-p doom-env-file))
         (call! '(env)))
       (doom-packages-install)
       (doom-packages-build)
       (when update?
         (doom-packages-update))
       (doom-packages-purge purge? 'builds-p purge? purge? purge?)
       (when (doom-profile-generate)
         (print! (item "Restart Emacs or use 'M-x doom/reload' for changes to take effect"))
         (run-hooks 'doom-after-sync-hook))
       t)
    (remove-hook 'kill-emacs-hook #'doom-sync--abort-warning-h)))


;;
;;; Helpers

(defun doom-sync--abort-warning-h ()
  (print! (warn "Script was abruptly aborted, leaving Doom in an incomplete state!"))
  (print! (item "Run 'doom sync' to repair it.")))

(provide 'doom-cli-sync)
;;; sync.el ends here