nix-doom-emacs-unstraightened/build-helpers/build-profile-loader

#!/usr/bin/env doomscript
;; -*- lexical-binding: t; -*-

;; Copyright 2024 Google LLC
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(defcli! build-profile-loader
  ((profile-name ("-n" form) "Profile name.")
   (base-directory ("-b" dir) "Base directory (for profile and straight).")
   (unset-profile ("-u") "Unset DOOMPROFILE at startup."))
  "Write Doom's profile loader."
  (let* ((profile-directory (expand-file-name "profile/" base-directory))
         (new-profiles `((,profile-name
                          (user-emacs-directory . ,doom-emacs-dir)
                          (doom-profile-data-dir . ,profile-directory)
                          ,@(when unset-profile '(("DOOMPROFILE" . nil)))))))
    (doom-profiles-save new-profiles)))

(run! "build-profile-loader" (cdr (member "--" argv)))