add mu4e
This commit is contained in:
parent
facba469b6
commit
7bc63f50f9
67
conf.el
67
conf.el
|
@ -72,6 +72,19 @@
|
|||
(global-set-key (kbd "<f2>") 'org-capture)
|
||||
(global-set-key (kbd "<f12>") 'global-hl-line-mode)
|
||||
(global-set-key (kbd "S-<f12>") 'display-line-numbers-mode)
|
||||
(global-set-key (kbd "C-<f12>") 'mu4e)
|
||||
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:init
|
||||
;; this is required to make evil collection work
|
||||
(setq evil-want-integration nil)
|
||||
:config
|
||||
(evil-mode 1))
|
||||
|
||||
(use-package evil-collection
|
||||
:ensure t
|
||||
:after evil)
|
||||
|
||||
(use-package delight
|
||||
:ensure t)
|
||||
|
@ -150,22 +163,6 @@
|
|||
:init
|
||||
:ensure t)
|
||||
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:config
|
||||
(evil-mode 1)
|
||||
(use-package evil-org
|
||||
:ensure t
|
||||
:after org
|
||||
:delight
|
||||
:config
|
||||
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||
(add-hook 'evil-org-mode-hook
|
||||
(lambda ()
|
||||
(evil-org-set-key-theme)))
|
||||
(require 'evil-org-agenda)
|
||||
(evil-org-agenda-set-keys)))
|
||||
|
||||
(use-package undo-tree
|
||||
:ensure t
|
||||
:delight
|
||||
|
@ -293,6 +290,17 @@ event of an error or nonlocal exit."
|
|||
(setq org-modules '(org-habit org-protocol))
|
||||
(require 'org-protocol)
|
||||
|
||||
(use-package evil-org
|
||||
:ensure t
|
||||
:after evil
|
||||
:after org
|
||||
:delight
|
||||
:config
|
||||
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||
(add-hook 'evil-org-mode-hook (lambda () (evil-org-set-key-theme)))
|
||||
(require 'evil-org-agenda)
|
||||
(evil-org-agenda-set-keys))
|
||||
|
||||
(setq org-log-into-drawer "LOGBOOK")
|
||||
(setq org-log-done t)
|
||||
|
||||
|
@ -1063,7 +1071,7 @@ set as a text property for further sorting"
|
|||
(setq org-agenda-custom-commands
|
||||
`(("t"
|
||||
"Task View"
|
||||
((agenda "" ((org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc")))
|
||||
((agenda "" ((org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc" "REFILE")))
|
||||
(org-agenda-include-diary t)))
|
||||
,(nd/agenda-base-task-cmd act-no-rep-match
|
||||
"Project Tasks"
|
||||
|
@ -1101,7 +1109,7 @@ set as a text property for further sorting"
|
|||
("P"
|
||||
"Periodical View"
|
||||
((tags
|
||||
(concat actionable "-" iterator "+" periodical "-" habit)
|
||||
,(concat actionable "-" iterator "+" periodical "-" habit)
|
||||
((org-agenda-overriding-header "Periodical Status")
|
||||
(org-agenda-skip-function '(nd/skip-non-periodical-parent-headers))
|
||||
(org-agenda-before-sorting-filter-function
|
||||
|
@ -1299,6 +1307,29 @@ and reverts all todo keywords to TODO"
|
|||
cfw:fchar-top-left-corner ?┏
|
||||
cfw:fchar-top-right-corner ?┓))
|
||||
|
||||
(require 'mu4e)
|
||||
(evil-collection-init 'mu4e)
|
||||
(setq mail-user-agent 'mu4e-user-agent
|
||||
mu4e-maildir "/mnt/data/Mail"
|
||||
mu4e-drafts-folder "/gmail/[Gmail].Drafts"
|
||||
mu4e-sent-folder "/gmail/[Gmail].Sent Mail"
|
||||
mu4e-trash-folder "/gmail/[Gmail].Trash")
|
||||
|
||||
(require 'smtpmail)
|
||||
(setq message-send-mail-function 'smtpmail-send-it
|
||||
user-mail-address "natedwarshuis@gmail.com"
|
||||
user-full-name "Nate Dwarshuis"
|
||||
|
||||
mu4e-sent-messages-behavior 'delete
|
||||
|
||||
starttls-use-gnutls t
|
||||
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
|
||||
smtpmail-auth-credentials '(("smtp.gmail.com" 587
|
||||
"natedwarshuis@gmail.com" nil))
|
||||
smtpmail-default-smtp-server "smtp.gmail.com"
|
||||
smtpmail-smtp-service 587
|
||||
smtpmail-smtp-server "smtp.gmail.com")
|
||||
|
||||
(defvar nd-term-shell "/bin/bash")
|
||||
(defadvice ansi-term (before force-bash)
|
||||
(interactive (list nd-term-shell)))
|
||||
|
|
125
conf.org
125
conf.org
|
@ -116,10 +116,48 @@ These are commands that should work in any mode. Make the assumption that functi
|
|||
(global-set-key (kbd "<f2>") 'org-capture)
|
||||
(global-set-key (kbd "<f12>") 'global-hl-line-mode)
|
||||
(global-set-key (kbd "S-<f12>") 'display-line-numbers-mode)
|
||||
(global-set-key (kbd "C-<f12>") 'mu4e)
|
||||
#+END_SRC
|
||||
* printing
|
||||
**
|
||||
* packages
|
||||
** evil
|
||||
*** packages
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:init
|
||||
;; this is required to make evil collection work
|
||||
(setq evil-want-integration nil)
|
||||
:config
|
||||
(evil-mode 1))
|
||||
|
||||
(use-package evil-collection
|
||||
:ensure t
|
||||
:after evil)
|
||||
#+END_SRC
|
||||
*** keybindings
|
||||
vim is all about escape, not...ctrl+g???
|
||||
+BEGIN_SRC emacs-lisp
|
||||
(define-key evil-normal-state-map [escape] 'keyboard-quit)
|
||||
(define-key evil-visual-state-map [escape] 'keyboard-quit)
|
||||
|
||||
;; since ctrl+g and evil make no sense
|
||||
(defun nd/minibuffer-keyboard-quit ()
|
||||
"Abort recursive edit.
|
||||
In Delete Selection mode, if the mark is active, just deactivate it;
|
||||
then it takes a second \\[keyboard-quit] to abort the minibuffer."
|
||||
(interactive)
|
||||
(if (and delete-selection-mode transient-mark-mode mark-active)
|
||||
(setq deactivate-mark t)
|
||||
(when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
|
||||
(abort-recursive-edit)))
|
||||
|
||||
(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
|
||||
#+END_SRC
|
||||
** delight
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package delight
|
||||
|
@ -219,47 +257,6 @@ These are commands that should work in any mode. Make the assumption that functi
|
|||
:init
|
||||
:ensure t)
|
||||
#+END_SRC
|
||||
** evil
|
||||
*** packages
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:config
|
||||
(evil-mode 1)
|
||||
(use-package evil-org
|
||||
:ensure t
|
||||
:after org
|
||||
:delight
|
||||
:config
|
||||
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||
(add-hook 'evil-org-mode-hook
|
||||
(lambda ()
|
||||
(evil-org-set-key-theme)))
|
||||
(require 'evil-org-agenda)
|
||||
(evil-org-agenda-set-keys)))
|
||||
#+END_SRC
|
||||
*** keybindings
|
||||
vim is all about escape, not...ctrl+g???
|
||||
+BEGIN_SRC emacs-lisp
|
||||
(define-key evil-normal-state-map [escape] 'keyboard-quit)
|
||||
(define-key evil-visual-state-map [escape] 'keyboard-quit)
|
||||
|
||||
;; since ctrl+g and evil make no sense
|
||||
(defun nd/minibuffer-keyboard-quit ()
|
||||
"Abort recursive edit.
|
||||
In Delete Selection mode, if the mark is active, just deactivate it;
|
||||
then it takes a second \\[keyboard-quit] to abort the minibuffer."
|
||||
(interactive)
|
||||
(if (and delete-selection-mode transient-mark-mode mark-active)
|
||||
(setq deactivate-mark t)
|
||||
(when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
|
||||
(abort-recursive-edit)))
|
||||
|
||||
(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
|
||||
(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
|
||||
#+END_SRC
|
||||
** undo tree
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package undo-tree
|
||||
|
@ -437,6 +434,19 @@ event of an error or nonlocal exit."
|
|||
(setq org-modules '(org-habit org-protocol))
|
||||
(require 'org-protocol)
|
||||
#+END_SRC
|
||||
** evil
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package evil-org
|
||||
:ensure t
|
||||
:after evil
|
||||
:after org
|
||||
:delight
|
||||
:config
|
||||
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||
(add-hook 'evil-org-mode-hook (lambda () (evil-org-set-key-theme)))
|
||||
(require 'evil-org-agenda)
|
||||
(evil-org-agenda-set-keys))
|
||||
#+END_SRC
|
||||
** logging
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-log-into-drawer "LOGBOOK")
|
||||
|
@ -1371,7 +1381,7 @@ set as a text property for further sorting"
|
|||
(setq org-agenda-custom-commands
|
||||
`(("t"
|
||||
"Task View"
|
||||
((agenda "" ((org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc")))
|
||||
((agenda "" ((org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc" "REFILE")))
|
||||
(org-agenda-include-diary t)))
|
||||
,(nd/agenda-base-task-cmd act-no-rep-match
|
||||
"Project Tasks"
|
||||
|
@ -1409,7 +1419,7 @@ set as a text property for further sorting"
|
|||
("P"
|
||||
"Periodical View"
|
||||
((tags
|
||||
(concat actionable "-" iterator "+" periodical "-" habit)
|
||||
,(concat actionable "-" iterator "+" periodical "-" habit)
|
||||
((org-agenda-overriding-header "Periodical Status")
|
||||
(org-agenda-skip-function '(nd/skip-non-periodical-parent-headers))
|
||||
(org-agenda-before-sorting-filter-function
|
||||
|
@ -1629,6 +1639,35 @@ and reverts all todo keywords to TODO"
|
|||
cfw:fchar-top-left-corner ?┏
|
||||
cfw:fchar-top-right-corner ?┓))
|
||||
#+END_SRC
|
||||
* mu4e
|
||||
only for gmail now
|
||||
** basic
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(require 'mu4e)
|
||||
(evil-collection-init 'mu4e)
|
||||
(setq mail-user-agent 'mu4e-user-agent
|
||||
mu4e-maildir "/mnt/data/Mail"
|
||||
mu4e-drafts-folder "/gmail/[Gmail].Drafts"
|
||||
mu4e-sent-folder "/gmail/[Gmail].Sent Mail"
|
||||
mu4e-trash-folder "/gmail/[Gmail].Trash")
|
||||
#+END_SRC
|
||||
** smtp
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(require 'smtpmail)
|
||||
(setq message-send-mail-function 'smtpmail-send-it
|
||||
user-mail-address "natedwarshuis@gmail.com"
|
||||
user-full-name "Nate Dwarshuis"
|
||||
|
||||
mu4e-sent-messages-behavior 'delete
|
||||
|
||||
starttls-use-gnutls t
|
||||
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
|
||||
smtpmail-auth-credentials '(("smtp.gmail.com" 587
|
||||
"natedwarshuis@gmail.com" nil))
|
||||
smtpmail-default-smtp-server "smtp.gmail.com"
|
||||
smtpmail-smtp-service 587
|
||||
smtpmail-smtp-server "smtp.gmail.com")
|
||||
#+END_SRC
|
||||
* shell
|
||||
#+begin_src emacs-lisp
|
||||
(defvar nd-term-shell "/bin/bash")
|
||||
|
|
Loading…
Reference in New Issue