diff options
author | Case Duckworth | 2021-09-13 19:53:09 -0500 |
---|---|---|
committer | Case Duckworth | 2021-09-13 19:53:09 -0500 |
commit | dbaaecd4541f5ade3e4567d7aadc90ff90dd02d7 (patch) | |
tree | ca7761c6e1b4493a469a14ba9510a332b7c18252 /init.el | |
parent | Improve sort-setq (diff) | |
parent | Install prism (diff) | |
download | emacs-dbaaecd4541f5ade3e4567d7aadc90ff90dd02d7.tar.gz emacs-dbaaecd4541f5ade3e4567d7aadc90ff90dd02d7.zip |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/init.el b/init.el index 13121e7..0b973e5 100644 --- a/init.el +++ b/init.el | |||
@@ -170,7 +170,8 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
170 | (cons (rx (or "google.com" ; websites that don't work with eww | 170 | (cons (rx (or "google.com" ; websites that don't work with eww |
171 | "reddit.com" | 171 | "reddit.com" |
172 | "twitter.com" | 172 | "twitter.com" |
173 | "imgur.com")) | 173 | "imgur.com" |
174 | "pixelfed")) | ||
174 | browse-url-secondary-browser-function) | 175 | browse-url-secondary-browser-function) |
175 | (cons "." ; everything else | 176 | (cons "." ; everything else |
176 | #'eww-browse-url))) | 177 | #'eww-browse-url))) |
@@ -233,6 +234,11 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
233 | :sasl-username ,circe-default-nick | 234 | :sasl-username ,circe-default-nick |
234 | :sasl-password ,(acdw/make-password-fetcher | 235 | :sasl-password ,(acdw/make-password-fetcher |
235 | :host "m455.casa")) | 236 | :host "m455.casa")) |
237 | ("Pissnet" :host "piss.hmm.st" :port 6697 :use-tls t | ||
238 | :channels ("#i-just-peed") | ||
239 | :sasl-username ,circe-default-nick | ||
240 | :sasl-password ,(acdw/make-password-fetcher | ||
241 | :host "piss.hmm.st")) | ||
236 | ;; TODO: irc.chat.twitch.tv | 242 | ;; TODO: irc.chat.twitch.tv |
237 | ) | 243 | ) |
238 | circe-reduce-lurker-spam t | 244 | circe-reduce-lurker-spam t |
@@ -265,6 +271,7 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
265 | (defun circe-command-SHORTEN (url) | 271 | (defun circe-command-SHORTEN (url) |
266 | "Shorten URL using `0x0-shorten-uri'." | 272 | "Shorten URL using `0x0-shorten-uri'." |
267 | (interactive "sURL to shorten: ") | 273 | (interactive "sURL to shorten: ") |
274 | ;; TODO: enable /shorten URL comment syntax | ||
268 | (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) | 275 | (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) |
269 | (circe-command-SAY short-url))) | 276 | (circe-command-SAY short-url))) |
270 | 277 | ||
@@ -380,6 +387,7 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
380 | consult-project-root-function #'vc-root-dir | 387 | consult-project-root-function #'vc-root-dir |
381 | completion-in-region-function #'acdw-consult/complete-in-region | 388 | completion-in-region-function #'acdw-consult/complete-in-region |
382 | completion-cycle-threshold 3 | 389 | completion-cycle-threshold 3 |
390 | consult-preview-key (kbd "M-.") | ||
383 | tab-always-indent 'complete) | 391 | tab-always-indent 'complete) |
384 | 392 | ||
385 | (:advise register-preview :override #'consult-register-window) | 393 | (:advise register-preview :override #'consult-register-window) |
@@ -461,8 +469,8 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
461 | (:hook visual-line-mode)) | 469 | (:hook visual-line-mode)) |
462 | 470 | ||
463 | (setup (:straight-if (define-repeat-map | 471 | (setup (:straight-if (define-repeat-map |
464 | :host nil | 472 | :host nil |
465 | :repo "https://tildegit.org/acdw/define-repeat-map.el") | 473 | :repo "https://tildegit.org/acdw/define-repeat-map.el") |
466 | (acdw/system :home)) | 474 | (acdw/system :home)) |
467 | 475 | ||
468 | (defun acdw/other-window-or-switch-buffer-backward () | 476 | (defun acdw/other-window-or-switch-buffer-backward () |
@@ -865,7 +873,7 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
865 | ("BadRadio: 24/7 PHONK" . | 873 | ("BadRadio: 24/7 PHONK" . |
866 | "https://s2.radio.co/s2b2b68744/listen") | 874 | "https://s2.radio.co/s2b2b68744/listen") |
867 | ("tilderadio" . | 875 | ("tilderadio" . |
868 | "https://radio.tildeverse.org/radio/8000/radio.ogg") | 876 | "https://azuracast.tilderadio.org/radio/8000/radio.ogg") |
869 | ("vantaradio" . | 877 | ("vantaradio" . |
870 | "https://vantaa.black/radio"))) | 878 | "https://vantaa.black/radio"))) |
871 | (:global "C-c r r" #'eradio-play ; mnemonic: radio | 879 | (:global "C-c r r" #'eradio-play ; mnemonic: radio |
@@ -1024,12 +1032,15 @@ specific to most general, they are these: | |||
1024 | (:hook-into text-mode)) | 1032 | (:hook-into text-mode)) |
1025 | 1033 | ||
1026 | (setup (:straight flyspell-correct) | 1034 | (setup (:straight flyspell-correct) |
1035 | (:option flyspell-correct-interface #'flyspell-correct-completing-read | ||
1036 | flyspell-correct--cr-key "`") | ||
1027 | (:with-feature flyspell | 1037 | (:with-feature flyspell |
1028 | (:hook (defun flyspell@correct () | 1038 | (:hook (defun flyspell@correct () |
1029 | (:bind "C-;" #'flyspell-correct-wrapper) | 1039 | (:bind "C-;" #'flyspell-correct-wrapper) |
1030 | (:unbind "C-," "C-." "C-M-i"))))) | 1040 | (:unbind "C-," "C-." "C-M-i"))))) |
1031 | 1041 | ||
1032 | (setup (:straight forge) | 1042 | (setup (:straight-if forge |
1043 | (acdw/system :home)) | ||
1033 | ;; make sure to read Info manual with Forge (and Ghub) for setup | 1044 | ;; make sure to read Info manual with Forge (and Ghub) for setup |
1034 | ;; instructions. | 1045 | ;; instructions. |
1035 | (with-eval-after-load 'magit | 1046 | (with-eval-after-load 'magit |
@@ -1496,6 +1507,8 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1496 | "C-c C-n" #'acdw/org-next-heading-widen | 1507 | "C-c C-n" #'acdw/org-next-heading-widen |
1497 | "C-c C-p" #'acdw/org-previous-heading-widen) | 1508 | "C-c C-p" #'acdw/org-previous-heading-widen) |
1498 | 1509 | ||
1510 | (:unbind "C-'") | ||
1511 | |||
1499 | (with-eval-after-load 'org-export | 1512 | (with-eval-after-load 'org-export |
1500 | (:option (append org-export-filter-final-output-functions) | 1513 | (:option (append org-export-filter-final-output-functions) |
1501 | #'org-export-remove-zero-width-spaces)) | 1514 | #'org-export-remove-zero-width-spaces)) |
@@ -1607,6 +1620,10 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1607 | (setup (:straight powerthesaurus) | 1620 | (setup (:straight powerthesaurus) |
1608 | (:global "C-c l t" #'powerthesaurus-lookup-word-dwim)) | 1621 | (:global "C-c l t" #'powerthesaurus-lookup-word-dwim)) |
1609 | 1622 | ||
1623 | (setup (:straight prism) | ||
1624 | (:hook-into lisp-mode | ||
1625 | c-mode)) | ||
1626 | |||
1610 | (setup prog | 1627 | (setup prog |
1611 | (:option show-paren-delay 0 | 1628 | (:option show-paren-delay 0 |
1612 | show-paren-style 'mixed | 1629 | show-paren-style 'mixed |