#!/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).")
   (profile-doom-dir ("-d" dir) "DOOMDIR"))
  "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)
                          (unstraightened--straight-base-dir . ,base-directory)
                          ("DOOMDIR" . ,profile-doom-dir)))))
    (doom-profiles-save new-profiles)))

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