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 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