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 4eb05bd..93c5c1d 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) |
@@ -589,7 +593,7 @@ | |||
589 | 593 | ||
590 | (setup scratch | 594 | (setup scratch |
591 | (:require +scratch) | 595 | (:require +scratch) |
592 | (:option initial-major-mode #'lisp-interaction-mode | 596 | (:option initial-major-mode #'emacs-lisp-mode |
593 | initial-scratch-message | 597 | initial-scratch-message |
594 | ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") | 598 | ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") |
595 | (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) | 599 | (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) |
@@ -1087,7 +1091,8 @@ See also `crux-reopen-as-root-mode'." | |||
1087 | "&" #'+elfeed-show-browse-generic | 1091 | "&" #'+elfeed-show-browse-generic |
1088 | "RET" #'shr-browse-url) | 1092 | "RET" #'shr-browse-url) |
1089 | (:hook #'reading-mode) | 1093 | (:hook #'reading-mode) |
1090 | (:option +elfeed--update-first-time 60) | 1094 | (:option +elfeed--update-repeat (* 60 60) ; 1 hour |
1095 | +elfeed--update-first-time 60) | ||
1091 | (+elfeed-update-async-mode +1))) | 1096 | (+elfeed-update-async-mode +1))) |
1092 | 1097 | ||
1093 | (setup (:straight elfeed-org) | 1098 | (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 |