summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-13 19:53:09 -0500
committerCase Duckworth2021-09-13 19:53:09 -0500
commitdbaaecd4541f5ade3e4567d7aadc90ff90dd02d7 (patch)
treeca7761c6e1b4493a469a14ba9510a332b7c18252
parentImprove sort-setq (diff)
parentInstall prism (diff)
downloademacs-dbaaecd4541f5ade3e4567d7aadc90ff90dd02d7.tar.gz
emacs-dbaaecd4541f5ade3e4567d7aadc90ff90dd02d7.zip
Merge branch 'main' of https://tildegit.org/acdw/emacs
-rw-r--r--TODO.org18
-rw-r--r--init.el27
2 files changed, 37 insertions, 8 deletions
diff --git a/TODO.org b/TODO.org index 0ac6720..9a3d8f9 100644 --- a/TODO.org +++ b/TODO.org
@@ -15,9 +15,12 @@
15I just have to make sure it's loading correctly in my own config… bleh 15I just have to make sure it's loading correctly in my own config… bleh
16 16
17- and add: 17- and add:
18 - [ ] ヽ(°〇°)ノ 18 - [ ] =ヽ(°〇°)ノ=
19 - [ ] ୧((#Φ益Φ#))୨ 19 - [ ] =୧((#Φ益Φ#))୨=
20 20 - [ ] =(╥﹏╥)=
21 - [ ] =Σ ◕ ◡ ◕=
22 - [ ] =╭∩╮(︶_︶)╭∩╮=
23 - [ ] =ʕ ᴖᴥᴖʔ=
21 24
22** TODO keep-acs (name?) 25** TODO keep-acs (name?)
23 26
@@ -33,6 +36,11 @@ allow more configuration of where the mouse goes:
33- '(banish . (x . y)) 36- '(banish . (x . y))
34- … 37- …
35 38
39** TODO add functionality to =electric-cursor-mode=
40
41- Enable idle cursor changing, dependent on mode
42- see [[https://www.emacswiki.org/emacs/cursor-chg.el][cursor-chg.el]]
43
36* Configuring 44* Configuring
37 45
38** TODO Install =el-patch=? 46** TODO Install =el-patch=?
@@ -62,6 +70,10 @@ from karthink (and prot)
62- call normal with =C-u C-x b= 70- call normal with =C-u C-x b=
63- look at =consult--source-buffer= and define one there 71- look at =consult--source-buffer= and define one there
64 72
73** TODO Fix =title-case= to work with “hard” spaces
74
75e.g., “A gold watch” title-cases to “A gold Watch”
76
65* Productivity 77* Productivity
66 78
67** TODO LOOK AT [[https://github.com/odeke-em/drive][DRIVE]] 79** TODO LOOK AT [[https://github.com/odeke-em/drive][DRIVE]]
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