summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el16
-rw-r--r--lisp/acdw-erc.el9
2 files changed, 21 insertions, 4 deletions
diff --git a/init.el b/init.el index 057934a..d1e81fe 100644 --- a/init.el +++ b/init.el
@@ -138,6 +138,10 @@
138(setup buffers 138(setup buffers
139 (:global "C-x k" acdw/kill-a-buffer)) 139 (:global "C-x k" acdw/kill-a-buffer))
140 140
141(setup calendar
142 (:option calendar-week-start-day 1 ; Monday
143 ))
144
141(setup completion 145(setup completion
142 (:option completion-ignore-case t 146 (:option completion-ignore-case t
143 read-buffer-completion-ignore-case t 147 read-buffer-completion-ignore-case t
@@ -335,6 +339,8 @@
335 erc-track-mode 339 erc-track-mode
336 erc-truncate-mode) 340 erc-truncate-mode)
337 341
342 (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer)
343
338 (with-eval-after-load 'erc 344 (with-eval-after-load 'erc
339 (setup (:straight erc-hl-nicks) 345 (setup (:straight erc-hl-nicks)
340 (:option (append erc-modules) 'hl-nicks 346 (:option (append erc-modules) 'hl-nicks
@@ -351,7 +357,7 @@
351 (:option (append erc-modules) 'image 357 (:option (append erc-modules) 'image
352 erc-image-inline-rescale 'window)) 358 erc-image-inline-rescale 'window))
353 359
354 (erc-update-modules))) 360 (erc-update-modules)))
355 361
356(setup eshell 362(setup eshell
357 (:also-load acdw-eshell 363 (:also-load acdw-eshell
@@ -764,8 +770,8 @@ like a dumbass."
764 "<help> h" nil ; HELLO takes a long time to load on Windows 770 "<help> h" nil ; HELLO takes a long time to load on Windows
765 ) 771 )
766 772
767 (when (display-graphic-p) 773 ;; (when (display-graphic-p)
768 (:global "<escape>" keyboard-escape-quit)) 774 ;; (:global "<escape>" keyboard-escape-quit))
769 775
770 ;; Remap C-h to DEL -- <f1> can be the "help" key 776 ;; Remap C-h to DEL -- <f1> can be the "help" key
771 (define-key key-translation-map [?\C-h] [?\C-?]) 777 (define-key key-translation-map [?\C-h] [?\C-?])
@@ -982,7 +988,9 @@ if ripgrep is installed, otherwise `consult-grep'."
982 ,(concat "https://playerservices.streamtheworld.com/" 988 ,(concat "https://playerservices.streamtheworld.com/"
983 "api/livestream-redirect/WRKFFM.mp3")) 989 "api/livestream-redirect/WRKFFM.mp3"))
984 ("tilderadio" . 990 ("tilderadio" .
985 "https://radio.tildeverse.org/radio/8000/radio.ogg"))) 991 "https://radio.tildeverse.org/radio/8000/radio.ogg")
992 ("vantaradio" .
993 "https://vantaa.black/radio")))
986 (:global "C-c r r" eradio-play ; mnemonic: radio 994 (:global "C-c r r" eradio-play ; mnemonic: radio
987 "C-c r s" eradio-stop ; mnemonic: stop 995 "C-c r s" eradio-stop ; mnemonic: stop
988 "C-c r p" eradio-toggle ; mnemonic: play/pause 996 "C-c r p" eradio-toggle ; mnemonic: play/pause
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 8cf9734..f62e731 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el
@@ -101,5 +101,14 @@ If USE-TLS is non-nil, use TLS."
101 (apply #'concat ss)) 101 (apply #'concat ss))
102 name)))) 102 name))))
103 103
104
105;;; Uh
106
107(defun acdw-erc/erc-switch-to-buffer (&optional arg)
108 "Prompt for ERC buffer to switch to.
109Reverse prefix argument from `erc-switch-to-buffer'."
110 (interactive "P")
111 (erc-switch-to-buffer (not arg)))
112
104(provide 'acdw-erc) 113(provide 'acdw-erc)
105;;; acdw-erc.el ends here 114;;; acdw-erc.el ends here