27 lines
967 B
EmacsLisp
27 lines
967 B
EmacsLisp
;;; init-straight.el -*- lexical-binding: t; -*-
|
|
|
|
;; Bootstrap Straight.el
|
|
(defun syd-initialise-straight ()
|
|
(defvar bootstrap-version)
|
|
|
|
(setq straight-base-dir
|
|
(or (getenv "EMACS_STRAIGHT_BASE_DIR")
|
|
(error "Cannot initialise straight: $EMACS_STRAIGHT_BASE_DIR is undefined!")))
|
|
|
|
(let ((bootstrap-file
|
|
(file-name-concat straight-base-dir
|
|
"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")
|
|
(url-buffer (url-retrieve-synchronously
|
|
url 'silent 'inhibit-cookies)))
|
|
(with-current-buffer url-buffer
|
|
(goto-char (point-max))
|
|
(eval-print-last-sexp))))
|
|
(load-file bootstrap-file)
|
|
;; (load bootstrap-file nil 'nomessage)
|
|
)
|
|
|
|
(setq straight-use-package-by-default t))
|