1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
;;; init-packages.el --- Package Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Elpaca installer block
(defvar elpaca-installer-version 0.8)
(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
:ref nil :depth 1
:files (:defaults "elpaca-test.el" (:exclude "extensions"))
:build (:not elpaca--activate-package)))
(let* ((repo (expand-file-name "elpaca/" elpaca-repos-directory))
(build (expand-file-name "elpaca/" elpaca-builds-directory))
(order (cdr elpaca-order))
(default-directory repo))
(add-to-list 'load-path (if (file-exists-p build) build repo))
(unless (file-exists-p repo)
(make-directory repo t)
(when (< emacs-major-version 28) (require 'subr-x))
(condition-case-unless-debug err
(if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
((zerop (apply #'call-process `("git" nil ,buffer t "clone"
,@(when-let* ((depth (plist-get order :depth)))
(list (format "--depth=%d" depth) "--no-single-branch"))
,(plist-get order :repo) ,repo))))
((zerop (call-process "git" nil buffer t "checkout"
(or (plist-get order :ref) "--"))))
(emacs (concat invocation-directory invocation-name))
((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
"--eval" "(byte-recompile-directory \".\" 0 'force)")))
((require 'elpaca))
((elpaca-generate-autoloads "elpaca" repo)))
(progn (message "%s" (buffer-string)) (kill-buffer buffer))
(error "%s" (with-current-buffer buffer (buffer-string))))
((error) (warn "%s" err) (delete-directory repo 'recursive))))
(unless (require 'elpaca-autoloads nil t)
(require 'elpaca)
(elpaca-generate-autoloads "elpaca" repo)
(load "./elpaca-autoloads")))
(add-hook 'after-init-hook #'elpaca-process-queues)
(elpaca `(,@elpaca-order))
;; End of elpaca installer block
;; Install use-package support
(elpaca elpaca-use-package
;; Enable use-package :ensure support for Elpaca.
(elpaca-use-package-mode)
(setq use-package-always-ensure t
use-package-always-defer t
package-native-compile t
elpaca-queue-limit 10)
(setq use-package-verbose init-file-debug
use-package-expand-minimally (not init-file-debug)
use-package-compute-statistics nil
debug-on-error init-file-debug)
(bind-key "C-c e u" 'elpaca-fetch-all)
(bind-key "C-c e m" 'elpaca-manager)
(bind-key "C-c e r" 'elpaca-update-menus)
(bind-key "C-c e t" 'elpaca-try)
(bind-key "C-c e b" 'elpaca-rebuild)
(bind-key "C-c e d" 'elpaca-delete))
(elpaca diminish)
;; Temporary workaround for packages needing newer version of seq (https://github.com/progfolio/elpaca/issues/216#issuecomment-1868444883))
(defun +elpaca-unload-seq (e)
(and (featurep 'seq) (unload-feature 'seq t))
(elpaca--continue-build e))
(defun +elpaca-seq-build-steps ()
(append (butlast (if (file-exists-p (expand-file-name "seq" elpaca-builds-directory))
elpaca--pre-built-steps elpaca-build-steps))
(list '+elpaca-unload-seq 'elpaca--activate-package)))
(elpaca `(seq :build ,(+elpaca-seq-build-steps)))
(defun +elpaca-unload-transient (e)
(and (featurep 'transient) (unload-feature 'transient t))
(elpaca--continue-build e))
(defun +elpaca-transient-build-steps ()
(append (butlast (if (file-exists-p (expand-file-name "transient" elpaca-builds-directory))
elpaca--pre-built-steps elpaca-build-steps))
(list '+elpaca-unload-transient 'elpaca--activate-package)))
(elpaca `(transient :build ,(+elpaca-transient-build-steps)))
;; Block until current queue processed.
(elpaca-wait)
(add-to-list 'elpaca-ignored-dependencies 'project)
(add-to-list 'elpaca-ignored-dependencies 'xref)
;; https://github.com/progfolio/elpaca/wiki/Logging#auto-hiding-the-elpaca-log-buffer
(defvar +elpaca-hide-log-commands '(eval-buffer eval-region eval-defun eval-last-sexp org-ctrl-c-ctrl-c eros-eval-defun eros-eval-last-sexp elisp-eval-region-or-buffer)
"List of commands for which a successfully processed log is auto hidden.")
(defun +elpaca-hide-successful-log ()
"Hide Elpaca log buffer if queues processed successfully."
(message "this: %S last: %S" this-command last-command)
(if-let ((incomplete (cl-find 'incomplete elpaca--queues :key #'elpaca-q<-status))
((elpaca-q<-elpacas incomplete)))
nil
(when-let ((log (bound-and-true-p elpaca-log-buffer))
(window (get-buffer-window log t)) ;; log buffer visible
((or (member last-command +elpaca-hide-log-commands)
(member this-command +elpaca-hide-log-commands))))
(with-selected-window window (quit-window 'kill window)))))
(add-hook 'elpaca-post-queue-hook #'+elpaca-hide-successful-log)
;; https://github.com/progfolio/elpaca/wiki/Logging#how-to-change-a-commands-log-query
(with-eval-after-load 'elpaca-log
(setf (alist-get +elpaca-hide-log-commands
elpaca-log-command-queries nil nil #'equal)
"#unique | !finished"))
;; https://github.com/progfolio/elpaca/wiki/Logging#customizing-the-position-of-the-elpaca-log-buffer
(add-to-list 'display-buffer-alist '("\\*elpaca-log\\*" (display-buffer-reuse-window display-buffer-at-bottom)))
;; https://github.com/progfolio/elpaca/wiki/Reloading-a-package%E2%80%99s-features-after-updating-a-package
(defun +elpaca-reload-package (package &optional allp)
"Reload PACKAGE's features.
If ALLP is non-nil (interactively, with prefix), load all of its
features; otherwise only load ones that were already loaded.
This is useful to reload a package after upgrading it. Since a
package may provide multiple features, to reload it properly
would require either restarting Emacs or manually unloading and
reloading each loaded feature. This automates that process.
Note that this unloads all of the package's symbols before
reloading. Any data stored in those symbols will be lost, so if
the package would normally save that data, e.g. when a mode is
deactivated or when Emacs exits, the user should do so before
using this command."
(interactive
(list (let ((elpaca-overriding-prompt "Reload package: "))
(elpaca--read-queued))
current-prefix-arg))
;; This finds features in the currently installed version of PACKAGE, so if
;; it provided other features in an older version, those are not unloaded.
(when (yes-or-no-p (format "Unload all of %s's symbols and reload its features? " package))
(let* ((package-name (symbol-name package))
(package-dir (file-name-directory
(locate-file package-name load-path (get-load-suffixes))))
(package-files (directory-files package-dir 'full (rx ".el" eos)))
(package-features
(cl-loop for file in package-files
when (with-temp-buffer
(insert-file-contents file)
(when (re-search-forward (rx bol "(provide" (1+ space)) nil t)
(goto-char (match-beginning 0))
(cadadr (read (current-buffer)))))
collect it)))
(unless allp
(setf package-features (seq-intersection package-features features)))
(dolist (feature package-features)
(ignore-errors
;; Ignore error in case it's not loaded.
(unload-feature feature 'force)))
(dolist (feature package-features)
(require feature))
(when package-features
(message "Reloaded: %s" (mapconcat #'symbol-name package-features " "))))))
(define-advice elpaca-merge (:after (id &optional _fetch _interactive) elpaca-merge-reload)
"Automically reload packages after they have been updated."
(cl-letf (((symbol-function 'yes-or-no-p) (cl-constantly t)))
(when (not (or (memq id elpaca-ignored-dependencies)
;; TODO why aren't xref and project already in the list?
(memq id '(xref project perspective elpaca))))
(+elpaca-reload-package id))))
;; https://github.com/radian-software/radian/blob/e3aad124c8e0cc870ed09da8b3a4905d01e49769/emacs/radian.el#L352
(defmacro use-feature (name &rest args)
"Like `use-package', but without elpaca integration.
`NAME' and `ARGS' are as with `use-package'"
(declare (indent defun))
`(use-package ,name
:ensure nil
,@args))
;; useful for corfu and vertico extensions
(defmacro use-extension (pkg name &rest args)
"Like `use-package', but for a package extension.
`PKG' is the name of the package, `NAME' and `ARGS' are as with `use-package'"
(declare (indent defun))
`(use-package ,name
:ensure nil
:after ,pkg
:demand t
,@args))
(defun add-to-list* (list-var &rest elts)
"Add `ELTS' to `LIST-VAR'."
(dolist (elt elts)
(add-to-list list-var elt)))
(defun append-to-list* (list-var &rest elts)
"Append `ELTS' to `LIST-VAR'."
(dolist (elt elts)
(add-to-list list-var elt t)))
(provide 'init-packages)
;;; init-packages.el ends here
|