about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-06-07 14:09:48 -0500
committerCase Duckworth2021-06-07 14:09:48 -0500
commitbb7924a4b640b98e17a876011e1a49c40528bc0b (patch)
tree8d534b4874f6d3e29f5d0fb54771789835b89bd6
parentAdd unfill-region (diff)
downloademacs-bb7924a4b640b98e17a876011e1a49c40528bc0b.tar.gz
emacs-bb7924a4b640b98e17a876011e1a49c40528bc0b.zip
Make Emacs work at work
-rw-r--r--init.el42
1 files changed, 35 insertions, 7 deletions
diff --git a/init.el b/init.el index ac830c2..aaddba6 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
@@ -274,7 +271,9 @@
274 erc-nick "acdw" 271 erc-nick "acdw"
275 erc-prompt (lambda () (concat (buffer-name) ">")) 272 erc-prompt (lambda () (concat (buffer-name) ">"))
276 erc-prompt-for-password nil ; use ~/.authinfo 273 erc-prompt-for-password nil ; use ~/.authinfo
277 erc/servers (mapcar #'car erc-autojoin-channels-alist) 274 erc/servers
275 (when (boundp 'erc-autojoin-channels-alist)
276 (mapcar #'car erc-autojoin-channels-alist))
278 erc-server-coding-system '(utf-8 . utf-8) 277 erc-server-coding-system '(utf-8 . utf-8)
279 erc-track-exclude-types erc-hide-list 278 erc-track-exclude-types erc-hide-list
280 erc-track-position-in-mode-line 'before-modes) 279 erc-track-position-in-mode-line 'before-modes)
@@ -900,8 +899,32 @@ if ripgrep is installed, otherwise `consult-grep'."
900 (:needs "mpv") 899 (:needs "mpv")
901 (:option 900 (:option
902 eradio-player '("mpv" "--no-video" "--no-terminal") 901 eradio-player '("mpv" "--no-video" "--no-terminal")
903 eradio-channels '(("tilderadio" . 902 eradio-channels `(("KLSU" .
904 "https://radio.tildeverse.org/radio/8000/radio.ogg")))) 903 "http://130.39.238.143:8010/stream.mp3")
904 ("Soma FM Synphaera" .
905 "https://somafm.com/synphaera256.pls")
906 ("SomaFM BAGel Radio" .
907 "https://somafm.com/bagel.pls")
908 ("SomaFM Boot Liquor" .
909 "https://somafm.com/bootliquor320.pls")
910 ("SomaFM Deep Space One" .
911 "https://somafm.com/deepspaceone.pls")
912 ("SomaFM Fluid" .
913 "https://somafm.com/fluid.pls")
914 ("SomaFM Underground 80s" .
915 "https://somafm.com/u80s256.pls")
916 ("WRKF HD-2" .
917 ,(concat "https://playerservices.streamtheworld.com/"
918 "api/livestream-redirect/WRKFHD2.mp3"))
919 ("WRKF" .
920 ,(concat "https://playerservices.streamtheworld.com/"
921 "api/livestream-redirect/WRKFFM.mp3"))
922 ("tilderadio" .
923 "https://radio.tildeverse.org/radio/8000/radio.ogg")))
924 (:global "C-c r r" eradio-play ; mnemonic: radio
925 "C-c r s" eradio-stop ; mnemonic: stop
926 "C-c r p" eradio-toggle ; mnemonic: play/pause
927 ))
905 928
906(setup (:straight expand-region) 929(setup (:straight expand-region)
907 (:global "C-=" er/expand-region)) 930 (:global "C-=" er/expand-region))
@@ -1119,7 +1142,8 @@ if ripgrep is installed, otherwise `consult-grep'."
1119 1142
1120(setup (:straight sly) 1143(setup (:straight sly)
1121 (defvar acdw/lisp-bin (or (executable-find "sbcl") 1144 (defvar acdw/lisp-bin (or (executable-find "sbcl")
1122 (executable-find "clisp"))) 1145 (executable-find "clisp")
1146 ""))
1123 (:needs acdw/lisp-bin) 1147 (:needs acdw/lisp-bin)
1124 (:option inferior-lisp-program acdw/lisp-bin 1148 (:option inferior-lisp-program acdw/lisp-bin
1125 sly-kill-without-query-p t) 1149 sly-kill-without-query-p t)
@@ -1259,3 +1283,7 @@ call `zzz-to-char'."
1259 (pdf-loader-install)) 1283 (pdf-loader-install))
1260 1284
1261 (setup (:straight vterm))) 1285 (setup (:straight vterm)))
1286
1287;;;; Work
1288(when (acdw/system :work)
1289 (setup (:straight ahk-mode)))