1 files changed, 72 insertions, 47 deletions

@@ -64,6 +64,13 @@
   (unless (server-running-p)
     (server-start)))
 
+(setup (:require tramp)
+  ;; thanks Irreal! https://irreal.org/blog/?p=895
+  (add-to-list 'tramp-default-proxies-alist
+               '(nil "\\`root\\'" "/ssh:%h:"))
+  (add-to-list 'tramp-default-proxies-alist
+               '((regexp-quote (system-name)) nil nil)))
+
 (setup Info
   (:hook #'variable-pitch-mode
          #'reading-mode))
@@ -673,6 +680,23 @@ specific to most general, they are these:
   ;; <anything> -> mouse-1 /always/ follows link
   (:option mouse-1-click-follows-link t))
 
+(setup mu4e
+  (:load-from "/usr/share/emacs/site-lisp/mu4e")
+  (:option mu4e-change-filenames-when-moving t
+           mu4e-update-interval (* 10 60)
+           mu4e-get-mail-command "mbsync -a"
+           mu4e-maildir "~/mail/clickhere")
+  (:option mu4e-drafts-folder "/[Gmail]/Drafts"
+           mu4e-sent-folder "/[Gmail]/Sent Mail"
+           mu4e-refile-folder "/[Gmail]/All Mail"
+           mu4e-trash-folder "/[Gmail]/Trash"
+           mu4e-maildir-shortcuts
+           `((:maildir "/Inbox" :key ?i)
+             (:maildir ,mu4e-drafts-folder :key ?d)
+             (:maildir ,mu4e-sent-folder :key ?s)
+             (:maildir ,mu4e-refile-folder :key ?a)
+             (:maildir ,mu4e-trash-folder :key ?t))))
+
 (setup page
   (:option page-delimiter
            (rx bol (or "\f" ";;;")
@@ -1231,53 +1255,54 @@ specific to most general, they are these:
 
   (crux-reopen-as-root-mode +1))
 
-(setup (:straight-when (define-repeat-map
-                                     :host nil
-                                     :repo "https://tildegit.org/acdw/define-repeat-map.el")
-         (acdw/system :home))
-
-  (require 'define-repeat-map           ; just for me
-           (acdw/dir
-            "straight/build/define-repeat-map/define-repeat-map.el"))
-
-  (defun acdw/other-window-or-switch-buffer-backward ()
-    (interactive)
-    (setq repeat-map 'other-window-repeat-map)
-    (acdw/other-window-or-switch-buffer -1))
-
-  (define-repeat-map other-window
-    ("o" acdw/other-window-or-switch-buffer
-     "O" acdw/other-window-or-switch-buffer-backward))
-
-  (define-repeat-map case
-    ("c" capitalize-word
-     "u" upcase-dwim
-     "l" downcase-dwim)
-    (:continue "f" forward-word
-               "b" backward-word)
-    (:enter capitalize-dwim
-            upcase-dwim
-            downcase-dwim))
-
-  (define-repeat-map page-navigation
-    ("]" forward-page
-     "[" backward-page))
-
-  (define-repeat-map windmove
-    (;; moving
-     "<left>" windmove-left
-     "<right>" windmove-right
-     "<up>" windmove-up
-     "<down>" windmove-down
-     ;; swapping
-     "<S-left>" windmove-swap-states-left
-     "<S-right>" windmove-swap-states-right
-     "<S-up>" windmove-swap-states-up
-     "<S-down>" windmove-swap-states-down))
-
-  (define-repeat-map winner-mode
-    ("/" winner-undo
-     "?" winner-redo)))
+;; (setup (:straight-when
+;;            (define-repeat-map
+;;                :host nil
+;;                         :repo "https://tildegit.org/acdw/define-repeat-map.el")
+;;          (acdw/system :home))
+
+;;   (require 'define-repeat-map           ; just for me
+;;            (acdw/dir
+;;             "straight/build/define-repeat-map/define-repeat-map.el"))
+
+;;   (defun acdw/other-window-or-switch-buffer-backward ()
+;;     (interactive)
+;;     (setq repeat-map 'other-window-repeat-map)
+;;     (acdw/other-window-or-switch-buffer -1))
+
+;;   (define-repeat-map other-window
+;;     ("o" acdw/other-window-or-switch-buffer
+;;      "O" acdw/other-window-or-switch-buffer-backward))
+
+;;   (define-repeat-map case
+;;     ("c" capitalize-word
+;;      "u" upcase-dwim
+;;      "l" downcase-dwim)
+;;     (:continue "f" forward-word
+;;                "b" backward-word)
+;;     (:enter capitalize-dwim
+;;             upcase-dwim
+;;             downcase-dwim))
+
+;;   (define-repeat-map page-navigation
+;;     ("]" forward-page
+;;      "[" backward-page))
+
+;;   (define-repeat-map windmove
+;;     (;; moving
+;;      "<left>" windmove-left
+;;      "<right>" windmove-right
+;;      "<up>" windmove-up
+;;      "<down>" windmove-down
+;;      ;; swapping
+;;      "<S-left>" windmove-swap-states-left
+;;      "<S-right>" windmove-swap-states-right
+;;      "<S-up>" windmove-swap-states-up
+;;      "<S-down>" windmove-swap-states-down))
+
+;;   (define-repeat-map winner-mode
+;;     ("/" winner-undo
+;;      "?" winner-redo)))
 
 (setup (:straight dictionary)
   (:option dictionary-use-single-buffer t)