diff options
-rw-r--r-- | early-init.el | 8 | ||||
-rw-r--r-- | init.el | 12 |
2 files changed, 11 insertions, 9 deletions
diff --git a/early-init.el b/early-init.el index c7d4985..b020c52 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -191,15 +191,19 @@ say, `tool-bar-mode' once to toggle the tool bar back on." | |||
191 | before-init-time))) | 191 | before-init-time))) |
192 | gcs-done)) | 192 | gcs-done)) |
193 | 193 | ||
194 | ;;; `setup' | 194 | ;;; Early-loaded packages |
195 | ;; These packages are here because they need to be loaded /before/ | ||
196 | ;; everything else in init.el. | ||
197 | |||
195 | (straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup")) | 198 | (straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup")) |
196 | (require 'setup) | 199 | (require 'setup) |
197 | (require 'acdw-setup) | 200 | (require 'acdw-setup) |
198 | 201 | ||
199 | ;;; `no-littering' | ||
200 | (setup (:straight no-littering) | 202 | (setup (:straight no-littering) |
201 | (:option no-littering-etc-directory (acdw/dir) | 203 | (:option no-littering-etc-directory (acdw/dir) |
202 | no-littering-var-directory (acdw/dir)) | 204 | no-littering-var-directory (acdw/dir)) |
203 | (require 'no-littering)) | 205 | (require 'no-littering)) |
204 | 206 | ||
207 | (setup (:straight el-patch)) | ||
208 | |||
205 | ;;; early-init.el ends here | 209 | ;;; early-init.el ends here |
diff --git a/init.el b/init.el index 67b0969..b0d9d77 100644 --- a/init.el +++ b/init.el | |||
@@ -502,8 +502,6 @@ In short, DO NOT USE THIS FUNCTION!!!" | |||
502 | (defun edit-server@set-a-variable (&rest _) | 502 | (defun edit-server@set-a-variable (&rest _) |
503 | (setq-local edit-server-frame-p t)))) | 503 | (setq-local edit-server-frame-p t)))) |
504 | 504 | ||
505 | (setup (:straight el-patch)) | ||
506 | |||
507 | (setup eldoc | 505 | (setup eldoc |
508 | (:option eldoc-idle-delay 0.1 | 506 | (:option eldoc-idle-delay 0.1 |
509 | eldoc-echo-area-use-multiline-p nil)) | 507 | eldoc-echo-area-use-multiline-p nil)) |
@@ -1417,8 +1415,8 @@ specific to most general, they are these: | |||
1417 | (crux-reopen-as-root-mode +1)) | 1415 | (crux-reopen-as-root-mode +1)) |
1418 | 1416 | ||
1419 | (setup (:straight-if (define-repeat-map | 1417 | (setup (:straight-if (define-repeat-map |
1420 | :host nil | 1418 | :host nil |
1421 | :repo "https://tildegit.org/acdw/define-repeat-map.el") | 1419 | :repo "https://tildegit.org/acdw/define-repeat-map.el") |
1422 | (acdw/system :home)) | 1420 | (acdw/system :home)) |
1423 | 1421 | ||
1424 | (defun acdw/other-window-or-switch-buffer-backward () | 1422 | (defun acdw/other-window-or-switch-buffer-backward () |
@@ -1798,7 +1796,7 @@ specific to most general, they are these: | |||
1798 | w3m-message-link)) | 1796 | w3m-message-link)) |
1799 | (link-hint-define-type type | 1797 | (link-hint-define-type type |
1800 | :open-secondary browse-url-secondary-browser-function | 1798 | :open-secondary browse-url-secondary-browser-function |
1801 | :open-secondary-multiple t)) | 1799 | :open-secondary-multiple t)) |
1802 | 1800 | ||
1803 | (defun acdw/link-hint-open-all-links (prefix) | 1801 | (defun acdw/link-hint-open-all-links (prefix) |
1804 | "Open all visible links. | 1802 | "Open all visible links. |
@@ -1806,7 +1804,7 @@ When PREFIX is non-nil, open links with | |||
1806 | `browse-url-secondary-browser-function'." | 1804 | `browse-url-secondary-browser-function'." |
1807 | (interactive "P") | 1805 | (interactive "P") |
1808 | (avy-with link-hint-open-all-links | 1806 | (avy-with link-hint-open-all-links |
1809 | (link-hint--all (if prefix :open-secondary :open)))) | 1807 | (link-hint--all (if prefix :open-secondary :open)))) |
1810 | 1808 | ||
1811 | (defun acdw/link-hint-open-multiple-links (prefix) | 1809 | (defun acdw/link-hint-open-multiple-links (prefix) |
1812 | "Use `avy' to open multiple visible links at once. | 1810 | "Use `avy' to open multiple visible links at once. |
@@ -1814,7 +1812,7 @@ When PREFIX is non-nil, open links with | |||
1814 | `browse-url-secondary-browser-function'." | 1812 | `browse-url-secondary-browser-function'." |
1815 | (interactive "P") | 1813 | (interactive "P") |
1816 | (avy-with link-hint-open-multiple-links | 1814 | (avy-with link-hint-open-multiple-links |
1817 | (link-hint--multiple (if prefix :open-secondary :open)))) | 1815 | (link-hint--multiple (if prefix :open-secondary :open)))) |
1818 | 1816 | ||
1819 | (:option link-hint-avy-style 'post) | 1817 | (:option link-hint-avy-style 'post) |
1820 | (:global "C-;" | 1818 | (:global "C-;" |