|
|
@ -9,7 +9,7 @@ |
|
|
|
;; ----------------------------------------- |
|
|
|
;; ----------------------------------------- |
|
|
|
|
|
|
|
|
|
|
|
;; Elpaca bootstrap |
|
|
|
;; Elpaca bootstrap |
|
|
|
(defvar elpaca-installer-version 0.3) |
|
|
|
(defvar elpaca-installer-version 0.5) |
|
|
|
(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory)) |
|
|
|
(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory)) |
|
|
|
(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory)) |
|
|
|
(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory)) |
|
|
|
(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory)) |
|
|
|
(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory)) |
|
|
@ -24,6 +24,7 @@ |
|
|
|
(add-to-list 'load-path (if (file-exists-p build) build repo)) |
|
|
|
(add-to-list 'load-path (if (file-exists-p build) build repo)) |
|
|
|
(unless (file-exists-p repo) |
|
|
|
(unless (file-exists-p repo) |
|
|
|
(make-directory repo t) |
|
|
|
(make-directory repo t) |
|
|
|
|
|
|
|
(when (< emacs-major-version 28) (require 'subr-x)) |
|
|
|
(condition-case-unless-debug err |
|
|
|
(condition-case-unless-debug err |
|
|
|
(if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*")) |
|
|
|
(if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*")) |
|
|
|
((zerop (call-process "git" nil buffer t "clone" |
|
|
|
((zerop (call-process "git" nil buffer t "clone" |
|
|
@ -35,7 +36,7 @@ |
|
|
|
"--eval" "(byte-recompile-directory \".\" 0 'force)"))) |
|
|
|
"--eval" "(byte-recompile-directory \".\" 0 'force)"))) |
|
|
|
((require 'elpaca)) |
|
|
|
((require 'elpaca)) |
|
|
|
((elpaca-generate-autoloads "elpaca" repo))) |
|
|
|
((elpaca-generate-autoloads "elpaca" repo))) |
|
|
|
(kill-buffer buffer) |
|
|
|
(progn (message "%s" (buffer-string)) (kill-buffer buffer)) |
|
|
|
(error "%s" (with-current-buffer buffer (buffer-string)))) |
|
|
|
(error "%s" (with-current-buffer buffer (buffer-string)))) |
|
|
|
((error) (warn "%s" err) (delete-directory repo 'recursive)))) |
|
|
|
((error) (warn "%s" err) (delete-directory repo 'recursive)))) |
|
|
|
(unless (require 'elpaca-autoloads nil t) |
|
|
|
(unless (require 'elpaca-autoloads nil t) |
|
|
|