summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el119
1 files changed, 72 insertions, 47 deletions
diff --git a/init.el b/init.el index 8b5265a..6467bd9 100644 --- a/init.el +++ b/init.el
@@ -64,6 +64,13 @@
64 (unless (server-running-p) 64 (unless (server-running-p)
65 (server-start))) 65 (server-start)))
66 66
67(setup (:require tramp)
68 ;; thanks Irreal! https://irreal.org/blog/?p=895
69 (add-to-list 'tramp-default-proxies-alist
70 '(nil "\\`root\\'" "/ssh:%h:"))
71 (add-to-list 'tramp-default-proxies-alist
72 '((regexp-quote (system-name)) nil nil)))
73
67(setup Info 74(setup Info
68 (:hook #'variable-pitch-mode 75 (:hook #'variable-pitch-mode
69 #'reading-mode)) 76 #'reading-mode))
@@ -673,6 +680,23 @@ specific to most general, they are these:
673 ;; <anything> -> mouse-1 /always/ follows link 680 ;; <anything> -> mouse-1 /always/ follows link
674 (:option mouse-1-click-follows-link t)) 681 (:option mouse-1-click-follows-link t))
675 682
683(setup mu4e
684 (:load-from "/usr/share/emacs/site-lisp/mu4e")
685 (:option mu4e-change-filenames-when-moving t
686 mu4e-update-interval (* 10 60)
687 mu4e-get-mail-command "mbsync -a"
688 mu4e-maildir "~/mail/clickhere")
689 (:option mu4e-drafts-folder "/[Gmail]/Drafts"
690 mu4e-sent-folder "/[Gmail]/Sent Mail"
691 mu4e-refile-folder "/[Gmail]/All Mail"
692 mu4e-trash-folder "/[Gmail]/Trash"
693 mu4e-maildir-shortcuts
694 `((:maildir "/Inbox" :key ?i)
695 (:maildir ,mu4e-drafts-folder :key ?d)
696 (:maildir ,mu4e-sent-folder :key ?s)
697 (:maildir ,mu4e-refile-folder :key ?a)
698 (:maildir ,mu4e-trash-folder :key ?t))))
699
676(setup page 700(setup page
677 (:option page-delimiter 701 (:option page-delimiter
678 (rx bol (or "\f" ";;;") 702 (rx bol (or "\f" ";;;")
@@ -1231,53 +1255,54 @@ specific to most general, they are these:
1231 1255
1232 (crux-reopen-as-root-mode +1)) 1256 (crux-reopen-as-root-mode +1))
1233 1257
1234(setup (:straight-when (define-repeat-map 1258;; (setup (:straight-when
1235 :host nil 1259;; (define-repeat-map
1236 :repo "https://tildegit.org/acdw/define-repeat-map.el") 1260;; :host nil
1237 (acdw/system :home)) 1261;; :repo "https://tildegit.org/acdw/define-repeat-map.el")
1238 1262;; (acdw/system :home))
1239 (require 'define-repeat-map ; just for me 1263
1240 (acdw/dir 1264;; (require 'define-repeat-map ; just for me
1241 "straight/build/define-repeat-map/define-repeat-map.el")) 1265;; (acdw/dir
1242 1266;; "straight/build/define-repeat-map/define-repeat-map.el"))
1243 (defun acdw/other-window-or-switch-buffer-backward () 1267
1244 (interactive) 1268;; (defun acdw/other-window-or-switch-buffer-backward ()
1245 (setq repeat-map 'other-window-repeat-map) 1269;; (interactive)
1246 (acdw/other-window-or-switch-buffer -1)) 1270;; (setq repeat-map 'other-window-repeat-map)
1247 1271;; (acdw/other-window-or-switch-buffer -1))
1248 (define-repeat-map other-window 1272
1249 ("o" acdw/other-window-or-switch-buffer 1273;; (define-repeat-map other-window
1250 "O" acdw/other-window-or-switch-buffer-backward)) 1274;; ("o" acdw/other-window-or-switch-buffer
1251 1275;; "O" acdw/other-window-or-switch-buffer-backward))
1252 (define-repeat-map case 1276
1253 ("c" capitalize-word 1277;; (define-repeat-map case
1254 "u" upcase-dwim 1278;; ("c" capitalize-word
1255 "l" downcase-dwim) 1279;; "u" upcase-dwim
1256 (:continue "f" forward-word 1280;; "l" downcase-dwim)
1257 "b" backward-word) 1281;; (:continue "f" forward-word
1258 (:enter capitalize-dwim 1282;; "b" backward-word)
1259 upcase-dwim 1283;; (:enter capitalize-dwim
1260 downcase-dwim)) 1284;; upcase-dwim
1261 1285;; downcase-dwim))
1262 (define-repeat-map page-navigation 1286
1263 ("]" forward-page 1287;; (define-repeat-map page-navigation
1264 "[" backward-page)) 1288;; ("]" forward-page
1265 1289;; "[" backward-page))
1266 (define-repeat-map windmove 1290
1267 (;; moving 1291;; (define-repeat-map windmove
1268 "<left>" windmove-left 1292;; (;; moving
1269 "<right>" windmove-right 1293;; "<left>" windmove-left
1270 "<up>" windmove-up 1294;; "<right>" windmove-right
1271 "<down>" windmove-down 1295;; "<up>" windmove-up
1272 ;; swapping 1296;; "<down>" windmove-down
1273 "<S-left>" windmove-swap-states-left 1297;; ;; swapping
1274 "<S-right>" windmove-swap-states-right 1298;; "<S-left>" windmove-swap-states-left
1275 "<S-up>" windmove-swap-states-up 1299;; "<S-right>" windmove-swap-states-right
1276 "<S-down>" windmove-swap-states-down)) 1300;; "<S-up>" windmove-swap-states-up
1277 1301;; "<S-down>" windmove-swap-states-down))
1278 (define-repeat-map winner-mode 1302
1279 ("/" winner-undo 1303;; (define-repeat-map winner-mode
1280 "?" winner-redo))) 1304;; ("/" winner-undo
1305;; "?" winner-redo)))
1281 1306
1282(setup (:straight dictionary) 1307(setup (:straight dictionary)
1283 (:option dictionary-use-single-buffer t) 1308 (:option dictionary-use-single-buffer t)