Bootstrap `straight.el`

Some magic bootstrapping code is provided by `straight.el` which is
necessary to get it installed in the first place.

1 files changed, 28 insertions, 0 deletions

diff --git a/init.el b/init.el
index ba7a20e..b344c83 100644
--- a/init.el
+++ b/init.el
@@ -5,6 +5,34 @@
 
 
 ;; ---------------------------------------------------------------------
+;;; Package Management
+;; -----------------------------------
+;; MMOSMacs uses `straight.el' for package management.
+;; ---------------------------------------------------------------------
+
+;; ---------------------------------
+;; Bootstrap `straight.el'
+;; -----------------------
+;; This is some pre-written magic
+;; provided by `straight.el'. Dont
+;; ask me what it does.
+;; ---------------------------------
+(defvar bootstrap-version)
+(let ((bootstrap-file
+       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+      (bootstrap-version 6))
+  (unless (file-exists-p bootstrap-file)
+    (with-current-buffer
+        (url-retrieve-synchronously
+         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
+         'silent 'inhibit-cookies)
+      (goto-char (point-max))
+      (eval-print-last-sexp)))
+  (load bootstrap-file nil 'nomessage))
+
+
+
+;; ---------------------------------------------------------------------
 ;;; File Management
 ;; ----------------
 ;; Everything to do with file or directory management goes here.