summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el58
1 files changed, 51 insertions, 7 deletions
diff --git a/init.el b/init.el index fbf5296..edbc99c 100644 --- a/init.el +++ b/init.el
@@ -979,11 +979,16 @@ like a dumbass."
979 (setq read-extended-command-predicate 979 (setq read-extended-command-predicate
980 #'command-completion-default-include-p)) 980 #'command-completion-default-include-p))
981 981
982 (defvar case-map (make-sparse-keymap)
983 "A keymap for setting case in various ways.")
984 (global-set-key (kbd "C-c c") case-map)
985
982 (:global "M-=" count-words 986 (:global "M-=" count-words
983 "C-w" kill-region-or-backward-word 987 "C-w" kill-region-or-backward-word
984 "C-c c" capitalize-dwim 988 "C-c c c" capitalize-dwim
985 "C-c u" upcase-dwim 989 "C-c c t" titlecase-dwim
986 "C-c l" downcase-dwim 990 "C-c c u" upcase-dwim
991 "C-c c l" downcase-dwim
987 "C-c d" acdw/insert-iso-date 992 "C-c d" acdw/insert-iso-date
988 "M-`" nil) 993 "M-`" nil)
989 994
@@ -1002,6 +1007,7 @@ like a dumbass."
1002 (defalias 'backward-word-with-case 'backward-word 1007 (defalias 'backward-word-with-case 'backward-word
1003 "Alias for `backward-word for use in `case-repeat-map'.") 1008 "Alias for `backward-word for use in `case-repeat-map'.")
1004 1009
1010 ;; XXX: this isn't repeating correctly ...
1005 (defvar case-repeat-map 1011 (defvar case-repeat-map
1006 (let ((map (make-sparse-keymap))) 1012 (let ((map (make-sparse-keymap)))
1007 (define-key map "c" #'capitalize-word) 1013 (define-key map "c" #'capitalize-word)
@@ -1048,7 +1054,9 @@ like a dumbass."
1048 (indent-region (point-min) (point-max)))))) 1054 (indent-region (point-min) (point-max))))))
1049 1055
1050(setup (:straight-if affe 1056(setup (:straight-if affe
1051 (executable-find "rg")) 1057 (and (or (executable-find "fd")
1058 (executable-find "find"))
1059 (executable-find "rg")))
1052 ;; Keys are bound in `acdw/sensible-grep' and `acdw/sensible-find' 1060 ;; Keys are bound in `acdw/sensible-grep' and `acdw/sensible-find'
1053 (defun affe-orderless-regexp-compiler (input _type) 1061 (defun affe-orderless-regexp-compiler (input _type)
1054 (setq input (orderless-pattern-compiler input)) 1062 (setq input (orderless-pattern-compiler input))
@@ -1058,7 +1066,11 @@ like a dumbass."
1058 1066
1059(setup (:straight async) 1067(setup (:straight async)
1060 (autoload 'dired-async-mode "dired-async.el" nil t) 1068 (autoload 'dired-async-mode "dired-async.el" nil t)
1061 (dired-async-mode +1)) 1069 (dired-async-mode +1)
1070 (add-hook 'dired-mode
1071 (defun dired@disable-dired-async-mode-line ()
1072 (autoload 'dired-async--modeline-mode "dired-async.el" nil t)
1073 (dired-async--modeline-mode -1))))
1062 1074
1063(setup (:straight alert) 1075(setup (:straight alert)
1064 (:option alert-default-style (acdw/system 1076 (:option alert-default-style (acdw/system
@@ -1083,9 +1095,24 @@ like a dumbass."
1083 1095
1084 (setq acdw-irc/post-my-nick "-> ") 1096 (setq acdw-irc/post-my-nick "-> ")
1085 1097
1086 (setq circe-default-part-message "See You, Space Cowpokes . . ." 1098 (setq circe-default-nick "acdw"
1099 circe-default-part-message "See You, Space Cowpokes . . ."
1087 circe-highlight-nick-type 'all 1100 circe-highlight-nick-type 'all
1088 ;; circe-network-options in private.el 1101 circe-network-options
1102 (("Libera Chat"
1103 :channels ("#emacs" "#systemcrafters" "##webpals")
1104 :sasl-username "acdw"
1105 :sasl-password ,(acdw/fetch-password :host "libera.chat"))
1106 ("Tilde Chat"
1107 :channels ("#meta" "#bread" "#dadjokes" "#team")
1108 :host "irc.tilde.chat" :port 6697 :use-tls t
1109 :sasl-username "acdw"
1110 :sasl-password ,(acdw/fetch-password :host "tilde.chat"))
1111 ("Casa"
1112 :channels ("#basement")
1113 :host "m455.casa" :port 6697 :use-tls t
1114 :sasl-username "acdw"
1115 :sasl-password ,(acdw/fetch-password :host "m455.casa")))
1089 circe-reduce-lurker-spam t 1116 circe-reduce-lurker-spam t
1090 circe-server-auto-join-default-type :after-auth) 1117 circe-server-auto-join-default-type :after-auth)
1091 1118
@@ -1336,6 +1363,23 @@ already been connected to."
1336 :repo "duckwork/electric-cursor")) 1363 :repo "duckwork/electric-cursor"))
1337 (electric-cursor-mode +1)) 1364 (electric-cursor-mode +1))
1338 1365
1366(setup (:straight elfeed
1367 elfeed-protocol)
1368 (:option elfeed-use-curl t
1369 elfeed-feeds `(("fever+https://acdw@mf.acdw.net"
1370 :api-url "https://mf.acdw.net/fever/"
1371 :password ,(acdw/fetch-password
1372 :host "mf.acdw.net"))))
1373
1374 (elfeed-protocol-enable)
1375
1376 (add-hook 'elfeed-show-mode-hook
1377 (defun elfeed-show@setup ()
1378 (olivetti-mode +1)))
1379
1380 ;; see https://irreal.org/blog/?p=8885
1381 )
1382
1339(setup (:straight (elpher :host nil 1383(setup (:straight (elpher :host nil
1340 :repo "git://thelambdalab.xyz/elpher.git")) 1384 :repo "git://thelambdalab.xyz/elpher.git"))
1341 (:option elpher-ipv4-always t 1385 (:option elpher-ipv4-always t