diff options
author | Joe <bousset.rudy@gmail.com> | 2023-04-10 02:36:10 +0200 |
---|---|---|
committer | Joe <bousset.rudy@gmail.com> | 2023-04-10 02:36:10 +0200 |
commit | 7702a4ffe7d0834a644fdd9801c6e409789f508e (patch) | |
tree | b79ecceec014b0de8e35adac671981ab2b404a9b /.config | |
parent | up (diff) | |
download | dotfiles-bsd-7702a4ffe7d0834a644fdd9801c6e409789f508e.tar.gz dotfiles-bsd-7702a4ffe7d0834a644fdd9801c6e409789f508e.tar.bz2 dotfiles-bsd-7702a4ffe7d0834a644fdd9801c6e409789f508e.tar.xz dotfiles-bsd-7702a4ffe7d0834a644fdd9801c6e409789f508e.tar.zst dotfiles-bsd-7702a4ffe7d0834a644fdd9801c6e409789f508e.zip |
up
Diffstat (limited to '')
-rw-r--r-- | .config/emacs/org/config.org | 192 |
1 files changed, 96 insertions, 96 deletions
diff --git a/.config/emacs/org/config.org b/.config/emacs/org/config.org index 5d79b63..cc1ab5f 100644 --- a/.config/emacs/org/config.org +++ b/.config/emacs/org/config.org @@ -235,7 +235,7 @@ (evil-collection-init 'magit) (evil-collection-init 'flymake) (evil-collection-init 'neotree) - (evil-collection-init 'mu4e) + ;; (evil-collection-init 'mu4e) (setq evil-emacs-state-cursor '("#b16286" box)) @@ -769,101 +769,101 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer." *** mu4e #+BEGIN_SRC emacs-lisp - (require 'mu4e) - (require 'org-mu4e) - (require 'mu4e-contrib) - (require 'smtpmail) - - (auth-source-pass-enable) - (setq auth-source-debug t) - (setq auth-source-do-cache nil) - (setq auth-sources '(password-store)) - (setq message-kill-buffer-on-exit t) - (setq message-send-mail-function 'smtpmail-send-it) - (setq mu4e-attachment-dir "~/dl") - (setq mu4e-change-filenames-when-moving t) - (setq mu4e-completing-read-function 'completing-read) - (setq mu4e-compose-complete-addresses t) - (setq mu4e-compose-context-policy nil) - (setq mu4e-compose-dont-reply-to-self t) - (setq mu4e-compose-keep-self-cc nil) - (setq mu4e-context-policy 'pick-first) - (setq mu4e-get-mail-command "mbsync -a -c ~/.config/mbsync/mbsyncrc") - (setq mu4e-headers-date-format "%d-%m-%Y %H:%M") - (setq mu4e-headers-fields '((:human-date . 20) - (:flags . 6) - (:mailing-list . 10) - (:from . 22) - (:subject))) - (setq mu4e-headers-include-related t) - (setq mu4e-sent-messages-behavior 'delete) - (setq mu4e-view-show-addresses t) - (setq mu4e-view-show-images t) - (setq smtpmail-debug-info t) - (setq smtpmail-stream-type 'starttls) - (setq mm-sign-option 'guided) - - (when (fboundp 'imagemagick-register-types) - (imagemagick-register-types)) - - (defun sign-or-encrypt-message () - (let ((answer (read-from-minibuffer "Sign or encrypt?\nEmpty to do nothing.\n[s/e]: "))) - (cond - ((string-equal answer "s") (progn - (message "Signing message.") - (mml-secure-message-sign-pgpmime))) - ((string-equal answer "e") (progn - (message "Encrypt and signing message.") - (mml-secure-message-encrypt-pgpmime))) - (t (progn - (message "Dont signing or encrypting message.") - nil))))) - - (add-hook 'message-send-hook 'sign-or-encrypt-message) - - (setq mu4e-contexts - `( ,(make-mu4e-context - :name "gmail" - :enter-func (lambda () - (mu4e-message "Entering gmail context") - (when (string-match-p (buffer-name (current-buffer)) "mu4e-main") - (revert-buffer))) - :leave-func (lambda () - (mu4e-message "Leaving gmail context") - (when (string-match-p (buffer-name (current-buffer)) "mu4e-main") - (revert-buffer))) - :match-func (lambda (msg) - (when msg - (or (mu4e-message-contact-field-matches msg :to "Rudy Bousset <bousset.rudy@gmail.com>") - (mu4e-message-contact-field-matches msg :from "Rudy Bousset <bousset.rudy@gmail.com>") - (mu4e-message-contact-field-matches msg :cc "Rudy Bousset <bousset.rudy@gmail.com>") - (mu4e-message-contact-field-matches msg :bcc "Rudy Bousset <bousset.rudy@gmail.com>") - (string-match-p "^/bousset.rudy@gmail.com/INBOX" (mu4e-message-field msg :maildir))))) - :vars '( ( user-mail-address . "bousset.rudy@gmail.com" ) - ( smtpmail-smtp-user . "bousset.rudy@gmail.com" ) - ( mu4e-compose-signature . "Rudy Bousset" ) - ( smtpmail-smtp-server . "smtp.gmail.com" ) - ( smtpmail-smtp-service . 587 ) - ( mu4e-maildir-shortcuts . ((:maildir "/bousset.rudy@gmail.com/INBOX" :key ?i))) - ( mu4e-bookmarks - . - (( :name "Unread messages" - :query "maildir:/bousset.rudy@gmail.com/INBOX AND flag:unread AND NOT flag:trashed AND NOT outdoorexperten" - :key ?u) - ( :name "Today's messages" - :query "maildir:/bousset.rudy@gmail.com/INBOX AND date:today..now" - :key ?t) - ( :name "Last 7 days" - :query "maildir:/bousset.rudy@gmail.com/INBOX AND date:7d..now" - :hide-unread t - :key ?w) - ( :name "Deleted" - :query "flag:trashed" - :key ?d) - ( :name "Possibly garbage" - :query "bokio OR outdoorexperten" - :key ?g))))) - )) +;; (require 'mu4e) +;; (require 'org-mu4e) +;; (require 'mu4e-contrib) +;; (require 'smtpmail) +;; +;; (auth-source-pass-enable) +;; (setq auth-source-debug t) +;; (setq auth-source-do-cache nil) +;; (setq auth-sources '(password-store)) +;; (setq message-kill-buffer-on-exit t) +;; (setq message-send-mail-function 'smtpmail-send-it) +;; (setq mu4e-attachment-dir "~/dl") +;; (setq mu4e-change-filenames-when-moving t) +;; (setq mu4e-completing-read-function 'completing-read) +;; (setq mu4e-compose-complete-addresses t) +;; (setq mu4e-compose-context-policy nil) +;; (setq mu4e-compose-dont-reply-to-self t) +;; (setq mu4e-compose-keep-self-cc nil) +;; (setq mu4e-context-policy 'pick-first) +;; (setq mu4e-get-mail-command "mbsync -a -c ~/.config/mbsync/mbsyncrc") +;; (setq mu4e-headers-date-format "%d-%m-%Y %H:%M") +;; (setq mu4e-headers-fields '((:human-date . 20) +;; (:flags . 6) +;; (:mailing-list . 10) +;; (:from . 22) +;; (:subject))) +;; (setq mu4e-headers-include-related t) +;; (setq mu4e-sent-messages-behavior 'delete) +;; (setq mu4e-view-show-addresses t) +;; (setq mu4e-view-show-images t) +;; (setq smtpmail-debug-info t) +;; (setq smtpmail-stream-type 'starttls) +;; (setq mm-sign-option 'guided) +;; +;; (when (fboundp 'imagemagick-register-types) +;; (imagemagick-register-types)) +;; +;; (defun sign-or-encrypt-message () +;; (let ((answer (read-from-minibuffer "Sign or encrypt?\nEmpty to do nothing.\n[s/e]: "))) +;; (cond +;; ((string-equal answer "s") (progn +;; (message "Signing message.") +;; (mml-secure-message-sign-pgpmime))) +;; ((string-equal answer "e") (progn +;; (message "Encrypt and signing message.") +;; (mml-secure-message-encrypt-pgpmime))) +;; (t (progn +;; (message "Dont signing or encrypting message.") +;; nil))))) +;; +;; (add-hook 'message-send-hook 'sign-or-encrypt-message) +;; +;; (setq mu4e-contexts +;; `( ,(make-mu4e-context +;; :name "gmail" +;; :enter-func (lambda () +;; (mu4e-message "Entering gmail context") +;; (when (string-match-p (buffer-name (current-buffer)) "mu4e-main") +;; (revert-buffer))) +;; :leave-func (lambda () +;; (mu4e-message "Leaving gmail context") +;; (when (string-match-p (buffer-name (current-buffer)) "mu4e-main") +;; (revert-buffer))) +;; :match-func (lambda (msg) +;; (when msg +;; (or (mu4e-message-contact-field-matches msg :to "Rudy Bousset <bousset.rudy@gmail.com>") +;; (mu4e-message-contact-field-matches msg :from "Rudy Bousset <bousset.rudy@gmail.com>") +;; (mu4e-message-contact-field-matches msg :cc "Rudy Bousset <bousset.rudy@gmail.com>") +;; (mu4e-message-contact-field-matches msg :bcc "Rudy Bousset <bousset.rudy@gmail.com>") +;; (string-match-p "^/bousset.rudy@gmail.com/INBOX" (mu4e-message-field msg :maildir))))) +;; :vars '( ( user-mail-address . "bousset.rudy@gmail.com" ) +;; ( smtpmail-smtp-user . "bousset.rudy@gmail.com" ) +;; ( mu4e-compose-signature . "Rudy Bousset" ) +;; ( smtpmail-smtp-server . "smtp.gmail.com" ) +;; ( smtpmail-smtp-service . 587 ) +;; ( mu4e-maildir-shortcuts . ((:maildir "/bousset.rudy@gmail.com/INBOX" :key ?i))) +;; ( mu4e-bookmarks +;; . +;; (( :name "Unread messages" +;; :query "maildir:/bousset.rudy@gmail.com/INBOX AND flag:unread AND NOT flag:trashed AND NOT outdoorexperten" +;; :key ?u) +;; ( :name "Today's messages" +;; :query "maildir:/bousset.rudy@gmail.com/INBOX AND date:today..now" +;; :key ?t) +;; ( :name "Last 7 days" +;; :query "maildir:/bousset.rudy@gmail.com/INBOX AND date:7d..now" +;; :hide-unread t +;; :key ?w) +;; ( :name "Deleted" +;; :query "flag:trashed" +;; :key ?d) +;; ( :name "Possibly garbage" +;; :query "bokio OR outdoorexperten" +;; :key ?g))))) +;; )) #+END_SRC ** Custom funcs |