|
|
@@ -1555,10 +1555,6 @@ Shows hex colors inline. |
|
|
|
:init |
|
|
|
(use-package smex) |
|
|
|
(use-package counsel) |
|
|
|
(use-package doom-todo-ivy |
|
|
|
:ensure nil |
|
|
|
:config |
|
|
|
(evil-ex-define-cmd "todo" 'doom/ivy-tasks)) |
|
|
|
:config |
|
|
|
(setq ivy-re-builders-alist |
|
|
|
'((t . ivy--regex-ignore-order))) |
|
|
@@ -1572,6 +1568,15 @@ Shows hex colors inline. |
|
|
|
(ivy-call) |
|
|
|
(ivy-shrink-after-dispatching))) |
|
|
|
|
|
|
|
(use-package doom-todo-ivy |
|
|
|
:ensure nil |
|
|
|
:config |
|
|
|
(evil-define-command doom/ivy-tasks-ex (&optional bang) |
|
|
|
"An ex wrapper around `doom/ivy-tasks'." |
|
|
|
(interactive "<!>") |
|
|
|
(doom/ivy-tasks bang)) |
|
|
|
(evil-ex-define-cmd "todo" 'doom/ivy-tasks-ex)) |
|
|
|
|
|
|
|
(eval-after-load "hydra" (use-package ivy-hydra))) |
|
|
|
#+END_SRC |
|
|
|
|
|
|
@@ -1631,74 +1636,37 @@ On the fly syntax checking |
|
|
|
** Email |
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp :tangle yes |
|
|
|
(when (require 'mu4e nil 'noerror) |
|
|
|
(setq mu4e-msg2pdf "/usr/bin/msg2pdf") |
|
|
|
(setq |
|
|
|
;; set mu4e as default mail client |
|
|
|
mail-user-agent 'mu4e-user-agent |
|
|
|
;; root mail directory - can't be switched |
|
|
|
;; with context, can only be set once |
|
|
|
mu4e-maildir "~/.mail" |
|
|
|
mu4e-attachments-dir "~/Downloads/Attachments" |
|
|
|
;; update command |
|
|
|
mu4e-get-mail-command "mbsync -q -a" |
|
|
|
;; update database every seven minutes |
|
|
|
mu4e-update-interval (* 60 7) |
|
|
|
;; use smtpmail (bundled with emacs) for sending |
|
|
|
message-send-mail-function 'smtpmail-send-it |
|
|
|
;; optionally log smtp output to a buffer |
|
|
|
smtpmail-debug-info t |
|
|
|
;; close sent message buffers |
|
|
|
message-kill-buffer-on-exit t |
|
|
|
;; customize list columns |
|
|
|
mu4e-headers-fields '((:flags . 4) |
|
|
|
(:from . 20) |
|
|
|
(:human-date . 10) |
|
|
|
(:subject)) |
|
|
|
;; for mbsync |
|
|
|
mu4e-change-filenames-when-moving t |
|
|
|
;; pick first context automatically on launch |
|
|
|
mu4e-context-policy 'pick-first |
|
|
|
;; use current context for new mail |
|
|
|
mu4e-compose-context-policy nil |
|
|
|
mu4e-confirm-quit nil) |
|
|
|
|
|
|
|
(global-set-key (kbd "<f12>") 'mu4e) |
|
|
|
(global-set-key (kbd "<C-f12>") 'mu4e-update-mail-and-index) |
|
|
|
|
|
|
|
(setq mu4e-contexts |
|
|
|
`(,(make-mu4e-context |
|
|
|
:name "gmail" |
|
|
|
:match-func (lambda(msg) |
|
|
|
(when msg |
|
|
|
(mu4e-message-contact-field-matches msg :to "@gmail.com"))) |
|
|
|
:vars '( |
|
|
|
;; local directories, relative to mail root |
|
|
|
(mu4e-sent-folder . "/gmail/[Gmail]/.Sent Mail") |
|
|
|
(mu4e-drafts-folder . "/gmail/[Gmail]/.Drafts") |
|
|
|
(mu4e-trash-folder . "/gmail/[Gmail]/.Trash") |
|
|
|
(mu4e-refile-folder . "/gmail/[Gmail]/.All Mail") |
|
|
|
;; account details |
|
|
|
(user-mail-address . "joshuafwolfe@gmail.com") |
|
|
|
(user-full-name . "Josh Wolfe") |
|
|
|
(mu4e-user-mail-address-list . ( "@gmail.com" )) |
|
|
|
;; gmail saves every outgoing message automatically |
|
|
|
(mu4e-sent-messages-behavior . delete) |
|
|
|
(mu4e-maildir-shortcuts . (("/gmail/INBOX" . ?j) |
|
|
|
("/gmail/[Gmail]/.All Mail" . ?a) |
|
|
|
("/gmail/[Gmail]/.Trash" . ?t) |
|
|
|
("/gmail/[Gmail]/.Drafts" . ?d))) |
|
|
|
;; outbound mail server |
|
|
|
(smtpmail-smtp-server . "smtp.gmail.com") |
|
|
|
;; outbound mail port |
|
|
|
(smtpmail-smtp-service . 465) |
|
|
|
;; use ssl |
|
|
|
(smtpmail-stream-type . ssl) |
|
|
|
;; the All Mail folder has a copy of every other folder's contents, |
|
|
|
;; and duplicates search results, which is confusing |
|
|
|
(mue4e-headers-skip-duplicates . t))))) |
|
|
|
|
|
|
|
(use-package evil-mu4e)) |
|
|
|
(require 'epa-file) |
|
|
|
(custom-set-variables '(epg-gpg-program "c:/Program Files (x86)/GNU/GnuPG/pub/gpg2")) |
|
|
|
(epa-file-enable) |
|
|
|
|
|
|
|
(require 'gnus) |
|
|
|
(setq user-mail-address "joshuafwolfe@gmail.com" |
|
|
|
user-full-name "Josh Wolfe") |
|
|
|
|
|
|
|
(setq gnus-select-method |
|
|
|
'(nnimap "gmail" |
|
|
|
(nnimap-address "imap.gmail.com") |
|
|
|
(nnimap-server-port 993) |
|
|
|
(nnimap-stream ssl))) |
|
|
|
|
|
|
|
(setq smtpmail-smtp-server "smtp.gmail.com" |
|
|
|
smtpmail-smtp-service 587 |
|
|
|
gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]") |
|
|
|
|
|
|
|
(setq gnus-thread-sort-functions |
|
|
|
'(gnus-thread-sort-by-most-recent-date |
|
|
|
(not gnus-thread-sort-by-number))) |
|
|
|
|
|
|
|
(defun my-gnus-group-list-subscribed-groups () |
|
|
|
"List all subscribed groups with or without un-read messages" |
|
|
|
(interactive) |
|
|
|
(gnus-group-list-all-groups 5)) |
|
|
|
|
|
|
|
(define-key gnus-group-mode-map |
|
|
|
;; list all the subscribed groups even they contain zero un-read messages |
|
|
|
(kbd "o") 'my-gnus-group-list-subscribed-groups) |
|
|
|
|
|
|
|
#+END_SRC |
|
|
|
|
|
|
|
** IRC |