summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el42
1 files changed, 35 insertions, 7 deletions
diff --git a/init.el b/init.el index 712c7dc..057934a 100644 --- a/init.el +++ b/init.el
@@ -78,9 +78,6 @@
78 (global-auto-revert-mode +1)) 78 (global-auto-revert-mode +1))
79 79
80(setup browse-url 80(setup browse-url
81 (when (acdw/system :work)
82 (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox"))
83
84 (setq-default browse-url-secondary-browser-function 81 (setq-default browse-url-secondary-browser-function
85 (if (executable-find "firefox") ; prefer Firefox 82 (if (executable-find "firefox") ; prefer Firefox
86 'browse-url-firefox 83 'browse-url-firefox
@@ -317,7 +314,9 @@
317 erc-nick "acdw" 314 erc-nick "acdw"
318 erc-prompt (lambda () (acdw-erc/prompt)) 315 erc-prompt (lambda () (acdw-erc/prompt))
319 erc-prompt-for-password nil ; use ~/.authinfo 316 erc-prompt-for-password nil ; use ~/.authinfo
320 erc/servers (mapcar #'car erc-autojoin-channels-alist) 317 erc/servers
318 (when (boundp 'erc-autojoin-channels-alist)
319 (mapcar #'car erc-autojoin-channels-alist))
321 erc-server-coding-system '(utf-8 . utf-8) 320 erc-server-coding-system '(utf-8 . utf-8)
322 erc-track-exclude-types erc-hide-list 321 erc-track-exclude-types erc-hide-list
323 erc-track-exclude-server-buffer t 322 erc-track-exclude-server-buffer t
@@ -962,8 +961,32 @@ if ripgrep is installed, otherwise `consult-grep'."
962 (:needs "mpv") 961 (:needs "mpv")
963 (:option 962 (:option
964 eradio-player '("mpv" "--no-video" "--no-terminal") 963 eradio-player '("mpv" "--no-video" "--no-terminal")
965 eradio-channels '(("tilderadio" . 964 eradio-channels `(("KLSU" .
966 "https://radio.tildeverse.org/radio/8000/radio.ogg")))) 965 "http://130.39.238.143:8010/stream.mp3")
966 ("Soma FM Synphaera" .
967 "https://somafm.com/synphaera256.pls")
968 ("SomaFM BAGel Radio" .
969 "https://somafm.com/bagel.pls")
970 ("SomaFM Boot Liquor" .
971 "https://somafm.com/bootliquor320.pls")
972 ("SomaFM Deep Space One" .
973 "https://somafm.com/deepspaceone.pls")
974 ("SomaFM Fluid" .
975 "https://somafm.com/fluid.pls")
976 ("SomaFM Underground 80s" .
977 "https://somafm.com/u80s256.pls")
978 ("WRKF HD-2" .
979 ,(concat "https://playerservices.streamtheworld.com/"
980 "api/livestream-redirect/WRKFHD2.mp3"))
981 ("WRKF" .
982 ,(concat "https://playerservices.streamtheworld.com/"
983 "api/livestream-redirect/WRKFFM.mp3"))
984 ("tilderadio" .
985 "https://radio.tildeverse.org/radio/8000/radio.ogg")))
986 (:global "C-c r r" eradio-play ; mnemonic: radio
987 "C-c r s" eradio-stop ; mnemonic: stop
988 "C-c r p" eradio-toggle ; mnemonic: play/pause
989 ))
967 990
968(setup (:straight expand-region) 991(setup (:straight expand-region)
969 (:global "C-=" er/expand-region)) 992 (:global "C-=" er/expand-region))
@@ -1181,7 +1204,8 @@ if ripgrep is installed, otherwise `consult-grep'."
1181 1204
1182(setup (:straight sly) 1205(setup (:straight sly)
1183 (defvar acdw/lisp-bin (or (executable-find "sbcl") 1206 (defvar acdw/lisp-bin (or (executable-find "sbcl")
1184 (executable-find "clisp"))) 1207 (executable-find "clisp")
1208 ""))
1185 (:needs acdw/lisp-bin) 1209 (:needs acdw/lisp-bin)
1186 (:option inferior-lisp-program acdw/lisp-bin 1210 (:option inferior-lisp-program acdw/lisp-bin
1187 sly-kill-without-query-p t) 1211 sly-kill-without-query-p t)
@@ -1321,3 +1345,7 @@ call `zzz-to-char'."
1321 (pdf-loader-install)) 1345 (pdf-loader-install))
1322 1346
1323 (setup (:straight vterm))) 1347 (setup (:straight vterm)))
1348
1349;;;; Work
1350(when (acdw/system :work)
1351 (setup (:straight ahk-mode)))