dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add nm-update-remote function

Browse Source 
pretty slow, probably need to change later
also, mbsync at end too? maybe async?
This commit is contained in:
Adam Goldsmith 2018-01-28 03:15:15 -05:00
parent df377702be
commit aee1ecab8a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
.emacs.d/init.el
View File

@ -605,14 +605,20 @@
(add-hook 'js2-mode-hook (lambda () (tern-mode t)))) (add-hook 'js2-mode-hook (lambda () (tern-mode t))))
(use-package nm (use-package nm
:bind (:map nm-mode-map ("N" . nm-read)) :bind (:map nm-mode-map
("n" . nm-read)
("G" . nm-update-remote))
:config :config
(defun nm-read () (defun nm-read ()
"Mark message as read." "Mark message as read."
(interactive) (interactive)
(nm-apply-to-result (lambda (q) (notmuch-tag q '("-unread")))) (nm-apply-to-result (lambda (q) (notmuch-tag q '("-unread"))))
(nm-update-tags) (nm-update-tags)
(forward-line))) (forward-line))
(defun nm-update-remote ()
"Pull email from remote mailbox"
(interactive)
(shell-command "ssh ag 'mbsync inboxes && afew -tn' && muchsync ag")))
;;; Local Variables ;;; Local Variables
(add-to-list 'safe-local-eval-forms '(outline-hide-body)) (add-to-list 'safe-local-eval-forms '(outline-hide-body))