61839cf1ab
Both approaches are about equivalent, but since I'm trying to make the profile loader optional and there's no way I can make the wrapper optional, let's move this around...
30 lines
1.3 KiB
Text
Executable file
30 lines
1.3 KiB
Text
Executable file
#!/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)))
|