diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/init.el b/init.el index 151bc69..53a8a81 100644 --- a/init.el +++ b/init.el | |||
@@ -143,6 +143,10 @@ | |||
143 | '("firefox" | 143 | '("firefox" |
144 | "chromium" | 144 | "chromium" |
145 | "chrome")) | 145 | "chrome")) |
146 | browse-url-chrome-program (seq-some #'executable-find | ||
147 | '("chromium" | ||
148 | "chrome" | ||
149 | "google-chrome-stable")) | ||
146 | browse-url-generic-args (seq-some (lambda (e) | 150 | browse-url-generic-args (seq-some (lambda (e) |
147 | (when (equal (executable-find (car e)) | 151 | (when (equal (executable-find (car e)) |
148 | browse-url-generic-program) | 152 | browse-url-generic-program) |
@@ -595,7 +599,7 @@ | |||
595 | 599 | ||
596 | (setup scratch | 600 | (setup scratch |
597 | (:require +scratch) | 601 | (:require +scratch) |
598 | (:option initial-major-mode #'lisp-interaction-mode | 602 | (:option initial-major-mode #'emacs-lisp-mode |
599 | initial-scratch-message | 603 | initial-scratch-message |
600 | ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") | 604 | ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") |
601 | (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) | 605 | (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) |
@@ -1093,7 +1097,8 @@ See also `crux-reopen-as-root-mode'." | |||
1093 | "&" #'+elfeed-show-browse-generic | 1097 | "&" #'+elfeed-show-browse-generic |
1094 | "RET" #'shr-browse-url) | 1098 | "RET" #'shr-browse-url) |
1095 | (:hook #'reading-mode) | 1099 | (:hook #'reading-mode) |
1096 | (:option +elfeed--update-first-time 60) | 1100 | (:option +elfeed--update-repeat (* 60 60) ; 1 hour |
1101 | +elfeed--update-first-time 60) | ||
1097 | (+elfeed-update-async-mode +1))) | 1102 | (+elfeed-update-async-mode +1))) |
1098 | 1103 | ||
1099 | (setup (:straight elfeed-org) | 1104 | (setup (:straight elfeed-org) |
@@ -1355,6 +1360,14 @@ See also `crux-reopen-as-root-mode'." | |||
1355 | #'hl-line-mode | 1360 | #'hl-line-mode |
1356 | #'lin-mode)) | 1361 | #'lin-mode)) |
1357 | 1362 | ||
1363 | (setup (:straight md4rd) | ||
1364 | ;; `md4rd' is ... a bit janky, tbh. But I'm including this here so I have it. | ||
1365 | ;; TODO: enable opening Reddit links in md4rd | ||
1366 | (:also-load _md4rd) | ||
1367 | (defalias 'reddit 'md4rd "Browse Reddit.") | ||
1368 | (with-eval-after-load 'md4rd | ||
1369 | (run-with-timer 0 (* 60 59) 'md4rd-refresh-login))) | ||
1370 | |||
1358 | (setup (:straight minions) | 1371 | (setup (:straight minions) |
1359 | (minions-mode +1)) | 1372 | (minions-mode +1)) |
1360 | 1373 | ||
@@ -1369,11 +1382,12 @@ See also `crux-reopen-as-root-mode'." | |||
1369 | :host gitlab | 1382 | :host gitlab |
1370 | :repo "protesilaos/modus-themes")) | 1383 | :repo "protesilaos/modus-themes")) |
1371 | (require 'modus-themes (.etc "straight/build/modus-themes/modus-themes")) | 1384 | (require 'modus-themes (.etc "straight/build/modus-themes/modus-themes")) |
1385 | (:also-load dawn) | ||
1372 | (:option modus-themes-mixed-fonts t | 1386 | (:option modus-themes-mixed-fonts t |
1373 | modus-themes-bold-constructs t | 1387 | modus-themes-bold-constructs t |
1374 | modus-themes-italic-constructs t | 1388 | modus-themes-italic-constructs t |
1375 | modus-themes-headings '((t . (background)))) | 1389 | modus-themes-headings '((t . (background)))) |
1376 | (+sunrise-sunset 'modus-themes-load-operandi 'modus-themes-load-vivendi)) | 1390 | (dawn-schedule #'modus-themes-load-operandi #'modus-themes-load-vivendi)) |
1377 | 1391 | ||
1378 | (setup (:straight mwim) | 1392 | (setup (:straight mwim) |
1379 | (:require +mwim) | 1393 | (:require +mwim) |
@@ -1384,7 +1398,7 @@ See also `crux-reopen-as-root-mode'." | |||
1384 | "C-e" #'+mwim-end-maybe)) | 1398 | "C-e" #'+mwim-end-maybe)) |
1385 | 1399 | ||
1386 | (setup (:straight orderless) | 1400 | (setup (:straight orderless) |
1387 | (:also-load +orderless) | 1401 | (:require +orderless) |
1388 | (:option completion-styles '(substring orderless basic) | 1402 | (:option completion-styles '(substring orderless basic) |
1389 | completion-category-defaults nil | 1403 | completion-category-defaults nil |
1390 | completion-category-overrides | 1404 | completion-category-overrides |
@@ -1452,6 +1466,8 @@ See also `crux-reopen-as-root-mode'." | |||
1452 | ;; Ensure we can build `pdf-tools' | 1466 | ;; Ensure we can build `pdf-tools' |
1453 | (or (executable-find "gcc") | 1467 | (or (executable-find "gcc") |
1454 | (executable-find "g++"))) | 1468 | (executable-find "g++"))) |
1469 | (setf (alist-get "\\.pdf\\'" auto-mode-alist nil nil #'equal) | ||
1470 | #'pdf-view-modei) | ||
1455 | (pdf-tools-install t)) | 1471 | (pdf-tools-install t)) |
1456 | 1472 | ||
1457 | (setup (:straight (shell-command+ | 1473 | (setup (:straight (shell-command+ |
@@ -1595,6 +1611,11 @@ See also `crux-reopen-as-root-mode'." | |||
1595 | undo-fu-session-compression (executable-find "gzip")) | 1611 | undo-fu-session-compression (executable-find "gzip")) |
1596 | (global-undo-fu-session-mode +1)) | 1612 | (global-undo-fu-session-mode +1)) |
1597 | 1613 | ||
1614 | (setup (:straight valign) | ||
1615 | (:option valign-fancy-bar t) | ||
1616 | (:hook-into org-mode | ||
1617 | markdown-mode)) | ||
1618 | |||
1598 | (setup (:straight (vertico | 1619 | (setup (:straight (vertico |
1599 | :host github | 1620 | :host github |
1600 | :repo "minad/vertico" | 1621 | :repo "minad/vertico" |
@@ -1629,6 +1650,7 @@ See also `crux-reopen-as-root-mode'." | |||
1629 | ;; This is applied /after/ the above, so default is at the end of | 1650 | ;; This is applied /after/ the above, so default is at the end of |
1630 | ;; this alist. | 1651 | ;; this alist. |
1631 | vertico-multiform-categories '((file buffer grid) | 1652 | vertico-multiform-categories '((file buffer grid) |
1653 | (bookmark) | ||
1632 | (t flat))) | 1654 | (t flat))) |
1633 | (dolist (buf-cmd '(consult-find | 1655 | (dolist (buf-cmd '(consult-find |
1634 | consult-yank-pop | 1656 | consult-yank-pop |