diff --git a/lisp/cli/profiles.el b/lisp/cli/profiles.el
new file mode 100644
index 000000000..e24d507a7
--- /dev/null
+++ b/lisp/cli/profiles.el
@@ -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