sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

config/emacs: freaky

Browse source
This commit is contained in:
Sakooooo 2024-10-14 19:53:43 +04:00
parent 2c097b4250
commit a2f9efe1ce
Signed by: sako
GPG key ID: FE52FD65B76E4751
2 changed files with 27 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
config/emacs/.offlineimaprc
View file

@ -9,7 +9,7 @@ remoterepository = Proton-remote
[Repository Proton-local] [Repository Proton-local]
type = Maildir type = Maildir
localfolders = ~/Mail/Proton localfolders = ~/.mail/protonmail
[Repository Proton-remote] [Repository Proton-remote]
type = IMAP type = IMAP
@ -26,7 +26,7 @@ remoterepository = Outlook-remote
[Repository Outlook-local] [Repository Outlook-local]
type = Maildir type = Maildir
localfolders = ~/Mail/Outlook localfolders = ~/.mail/outlook
[Repository Outlook-remote] [Repository Outlook-remote]
ssl = yes ssl = yes
@ -50,7 +50,7 @@ remoterepository = Gmail-personal-1-remote
[Repository Gmail-personal-1-local] [Repository Gmail-personal-1-local]
type = GmailMaildir type = GmailMaildir
localfolders = ~/Mail/Gmail-Personal-1 localfolders = ~/.mail/gmail1
# Google IMAP weirdness # Google IMAP weirdness
nametrans = lambda f: '[Gmail]/' + f if f in ['Drafts', 'Starred', 'Important', 'Spam', 'Trash', 'All Mail', 'Sent Mail'] else f nametrans = lambda f: '[Gmail]/' + f if f in ['Drafts', 'Starred', 'Important', 'Spam', 'Trash', 'All Mail', 'Sent Mail'] else f
@ -74,7 +74,7 @@ remoterepository = Gmail-personal-2-remote
[Repository Gmail-personal-2-local] [Repository Gmail-personal-2-local]
type = GmailMaildir type = GmailMaildir
localfolders = ~/Mail/Gmail-Personal-2 localfolders = ~/.mail/gmail2
# Google IMAP weirdness # Google IMAP weirdness
nametrans = lambda f: '[Gmail]/' + f if f in ['Drafts', 'Starred', 'Important', 'Spam', 'Trash', 'All Mail', 'Sent Mail'] else f nametrans = lambda f: '[Gmail]/' + f if f in ['Drafts', 'Starred', 'Important', 'Spam', 'Trash', 'All Mail', 'Sent Mail'] else f
@ -99,7 +99,7 @@ proxy = SOCKS5:localhost:9050
[Repository li-local] [Repository li-local]
type = Maildir type = Maildir
localfolders = ~/Mail/li localfolders = ~/.mail/li
[Repository li-remote] [Repository li-remote]
type = IMAP type = IMAP

44
config/emacs/emacs.org
View file

@ -1210,10 +1210,10 @@ GNU patch review metho dor sometihng idk
(setq mu4e-update-interval (* 10 60)) (setq mu4e-update-interval (* 10 60))
(setq mu4e-get-mail-command (format "INSIDE_EMACS=%s offlineimap" emacs-version) (setq mu4e-get-mail-command (format "INSIDE_EMACS=%s offlineimap" emacs-version)
epa-pinentry-mode 'ask) epa-pinentry-mode 'ask)
(setq mu4e-maildir "~/Mail") (setq mu4e-maildir "~/.mail")
;; for mail accounts ;; for mail accounts
(setq sakomacs-mail-accounts (json-read-file "~/Mail/accounts.json")) (setq sakomacs-mail-accounts (json-read-file "~/.mail/accounts.json"))
;; kill message buffers ;; kill message buffers
(setq message-kill-buffer-on-exit t) (setq message-kill-buffer-on-exit t)
@ -1228,13 +1228,13 @@ GNU patch review metho dor sometihng idk
:match-func :match-func
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Outlook" (mu4e-message-field msg :maildir)))) (string-prefix-p "/outlook" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . ,(cdr (assoc 'outlook sakomacs-mail-accounts))) :vars `((user-mail-address . ,(cdr (assoc 'outlook sakomacs-mail-accounts)))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Outlook/Drafts") (mu4e-drafts-folder . "/outlook/Drafts")
(mu4e-sent-folder . "/Outlook/Sent") (mu4e-sent-folder . "/outlook/Sent")
(mu4e-refile-folder . "/Outlook/Inbox") (mu4e-refile-folder . "/outlook/Inbox")
(mu4e-trash-folder . "/Outlook/Deleted") (mu4e-trash-folder . "/outlook/Deleted")
;; todo stmpmail and compose signatures ;; todo stmpmail and compose signatures
)) ))
(make-mu4e-context (make-mu4e-context
@ -1242,13 +1242,13 @@ GNU patch review metho dor sometihng idk
:match-func :match-func
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Proton" (mu4e-message-field msg :maildir)))) (string-prefix-p "/protonmail" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . ,(cdr (assoc 'protonmail sakomacs-mail-accounts))) :vars `((user-mail-address . ,(cdr (assoc 'protonmail sakomacs-mail-accounts)))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Proton/Drafts") (mu4e-drafts-folder . "/protonmail/Drafts")
(mu4e-sent-folder . "/Proton/Sent") (mu4e-sent-folder . "/protonmail/Sent")
(mu4e-refile-folder . "/Proton/Inbox") (mu4e-refile-folder . "/protonmail/Inbox")
(mu4e-trash-folder . "/Proton/Trash")) (mu4e-trash-folder . "/protonmail/Trash"))
;; todo stmpmail and compose signatures ;; todo stmpmail and compose signatures
) )
(make-mu4e-context (make-mu4e-context
@ -1256,13 +1256,13 @@ GNU patch review metho dor sometihng idk
:match-func :match-func
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Gmail-Personal-1" (mu4e-message-field msg :maildir)))) (string-prefix-p "/gmail1" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . ,(cdr (assoc 'gmail-1 sakomacs-mail-accounts))) :vars `((user-mail-address . ,(cdr (assoc 'gmail-1 sakomacs-mail-accounts)))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Gmail-Personal-1/Drafts") (mu4e-drafts-folder . "/gmail1/Drafts")
(mu4e-sent-folder . "/Gmail-Personal-1/Sent Mail") (mu4e-sent-folder . "/gmail1/Sent Mail")
(mu4e-refile-folder . "/Gmail-Personal-1/Inbox") (mu4e-refile-folder . "/gmail1/Inbox")
(mu4e-trash-folder . "Gmail-Personal-1/Trash") (mu4e-trash-folder . "gmail1/Trash")
;; todo stmpmail and compose signatures ;; todo stmpmail and compose signatures
)) ))
(make-mu4e-context (make-mu4e-context
@ -1270,13 +1270,13 @@ GNU patch review metho dor sometihng idk
:match-func :match-func
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Gmail-Personal-2" (mu4e-message-field msg :maildir)))) (string-prefix-p "/gmail2" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . ,(cdr (assoc 'gmail-2 sakomacs-mail-accounts))) :vars `((user-mail-address . ,(cdr (assoc 'gmail-2 sakomacs-mail-accounts)))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Gmail-Personal-2/Drafts") (mu4e-drafts-folder . "/gmail2/Drafts")
(mu4e-sent-folder . "/Gmail-Personal-2/Sent Mail") (mu4e-sent-folder . "/gmail2/Sent Mail")
(mu4e-refile-folder . "/Gmail-Personal-2/Inbox") (mu4e-refile-folder . "/gmail2/Inbox")
(mu4e-trash-folder . "Gmail-Personal-2/Trash") (mu4e-trash-folder . "gmail2/Trash")
)) ))
(make-mu4e-context (make-mu4e-context
:name "li" :name "li"