blob: 397bfcb27e8209c335a7d4f8fb10fe821030bd3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
#+title: Miscellaneous config bits that i don't use anymore
* enwc (network monitor)
#+BEGIN_SRC emacs-lisp
(use-package enwc
:ensure t
:init (setq enwc-default-backend 'nm
enwc-backend 'nm
enwc-display-mode-line nil
enwc-wired-device "enp3s0f0"
enwc-wireless-device "wlp1s0"))
#+END_SRC
* frm
#+begin_src emacs-lisp
(use-package jao-frm
:init (setq jao-frm-mail-command 'jao-open-gnus-frame))
(defun jao-frm--formatter (mbox n)
(apply #'format "%s/%s: %s" `(,@(last (split-string mbox "/") 2) ,n)))
(defun jao-frm--show ()
(interactive)
(jao-frm-show-mail-numbers #'jao-frm--formatter))
(global-set-key [(f12)] 'jao-frm--show)
(global-set-key [(f8)] 'jao-frm)
#+end_src
* mu4e
#+begin_src emacs-lisp
(jao-load-path "mu4e")
(use-package mu4e
:init
(setq mu4e-attachment-dir (expand-file-name "~/var/download/attachments")
mu4e-change-filenames-when-moving nil
mu4e-completing-read-function 'completing-read
mu4e-display-update-status-in-modeline nil
mu4e-get-mail-command "true" ;; "run-mb.sh || [ $? -eq 1 ]"
mu4e-headers-show-threads t
mu4e-headers-sort-direction 'ascending
mu4e-headers-visible-columns 100
mu4e-headers-visible-lines 12
mu4e-hide-index-messages t
mu4e-index-cleanup t ;; don't do a full cleanup check
mu4e-index-lazy-check t ;; don't consider up-to-date dirs
mu4e-maildir "~/var/mail/"
mu4e-split-view 'horizontal ;; 'vertical
mu4e-update-interval 300
mu4e-use-fancy-chars nil
mu4e-user-mail-address-list jao-mails
mu4e-view-show-addresses t
mu4e-view-show-images t
jao-mu4e-uninteresting-mail-query
(concat
"flag:unread AND NOT flag:trashed"
" AND NOT (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
" maildir:/bigml/support OR maildir:/jao/inbox)")
jao-mu4e-interesting-mail-query
(concat
"flag:unread AND NOT flag:trashed"
" AND (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
" maildir:/bigml/support OR maildir:/jao/inbox)")
mu4e-bookmarks
`((:name "Inbox" :query ,jao-mu4e-interesting-mail-query :key ?i)
(:name "Other messages"
:query ,jao-mu4e-uninteresting-mail-query
:key 117)
(:name "Today's messages" :query "date:today..now"
:key 116)
(:name "Last 7 days" :query "date:7d..now" :hide-unread t
:key 119)
(:name "Messages with PDFs"
:query "mime:application/pdf OR mime:x-application/pdf"
:key 112)))
:config
(defun jao-mu4e--maildir (msg)
(when msg
(let ((md (mu4e-message-field msg :maildir)))
(when (string-match "/\\([^/]+\\)/.*" md)
(match-string 1 md)))))
(defun jao-mu4e--refile-folder (msg)
(let ((md (jao-mu4e--maildir msg)))
(if (string= md "trove")
"/trove/jao"
(format "/trove/%" md))))
(setq mu4e-sent-folder #'jao-mu4e--refile-folder)
(setq mu4e-drafts-folder "/trove/drafts")
(setq mu4e-trash-folder "/trash")
(setq mu4e-refile-folder 'jao-mu4e--refile-folder)
(setq mu4e-contexts nil)
(setq mu4e-view-show-images t)
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(define-key mu4e-view-mode-map [remap mu4e-view-verify-msg-popup]
'epa-mail-verify)
;; View html message in browser (type aV)
(add-to-list 'mu4e-view-actions
'("ViewInBrowser" . mu4e-action-view-in-browser) t))
#+end_src
* company
#+begin_src emacs-lisp
(use-package company
:ensure t
:custom ((company-backends '(company-capf
company-bbdb
company-files
company-dabbrev
company-keywords))
(company-global-modes '(not slack-message-buffer-mode
circe-channel-mode
telega-chat-mode))
(company-format-margin-function nil) ;; #'company-text-icons-margin
(company-idle-delay 0.2)
(company-lighter "")
(company-lighter-base "")
(company-show-numbers nil)
(company-selection-wrap-around t)
(company-tooltip-limit 15)
(company-tooltip-align-annotations t)
(company-tooltip-offset-display 'lines)) ;; 'scrollbar
:config
(defun jao-complete-at-point ()
"Complete using company unless we're in the minibuffer."
(interactive)
(if (or (not company-mode) (window-minibuffer-p))
(completion-at-point)
(company-manual-begin)))
(defun jao-company-use-in-tab ()
(global-set-key [remap completion-at-point] #'jao-complete-at-point)
(global-set-key [remap completion-symbol] #'jao-complete-at-point)
(global-set-key (kbd "M-TAB") #'jao-complete-at-point))
(jao-company-use-in-tab)
:bind (:map company-active-map
("<tab>" . #'company-complete-common-or-cycle)
("TAB" . #'company-complete-common-or-cycle)
("C-h" . #'company-show-doc-buffer)
("M-." . #'company-show-location)
:filter (or (not (derived-mode-p 'eshell-mode))
(company-explicit-action-p))
("<return>" . #'company-complete-selection)
("RET" . #'company-complete-selection))
:diminish)
(global-company-mode 1)
#+end_src
|
