summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el30
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