wip: fix: Fix and refactor emacs-wrapper and Straight.el things

users/crumb/programs/emacs/init-straight.el

@@ -10,7 +10,7 @@
 
   (let ((bootstrap-file
          (file-name-concat straight-base-dir
-                           "repos/straight.el/bootstrap.el"))
+                           "straight/repos/straight.el/bootstrap.el"))
         (bootstrap-version 7))
     (unless (file-exists-p bootstrap-file)
       (let* ((url "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el")
@@ -19,6 +19,8 @@
         (with-current-buffer url-buffer
           (goto-char (point-max))
           (eval-print-last-sexp))))
-    (load bootstrap-file nil 'nomessage))
+    (load-file bootstrap-file)
+    ;; (load bootstrap-file nil 'nomessage)
+    )
 
   (setq straight-use-package-by-default t))

users/crumb/programs/emacs/lib/syd-prelude.el

@@ -2,4 +2,13 @@
 
 ;; (eval-when-compile (require 'cl-lib))
 
+(defvar syd-data-dir
+  (or (getenv "EMACS_DATA_DIR")
+      (error "Need $EMACS_DATA_DIR"))
+  "Directory analogous to XDG_DATA_HOME for miscellaneous Emacs things.")
+
+(defvar syd-cache-dir
+  (or (getenv "EMACS_CACHE_DIR")
+      (error "Need $EMACS_CACHE_DIR")))
+
 (provide 'syd-prelude)