awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

tweak(notmuch): bury update buffer instead of killing it

Browse Source 
+notmuch/update would create an additional window that outlasts the
update process. Instead, delete the window and bury the buffer, so that
it may be read later.
This commit is contained in:
Ag Ibragimov
2022-07-20 13:48:57 -05:00
committed by Henrik Lissner
parent b5fd085af0
commit e48dd85e56
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
modules/email/notmuch/autoload.el
View File

@ -60,18 +60,20 @@
(defun +notmuch/update ()
"Sync notmuch emails with server."
(interactive)
(with-current-buffer (compile (+notmuch-get-sync-command))
(add-hook
'compilation-finish-functions
(lambda (buf status)
(if (equal status "finished\n")
(progn
(kill-buffer buf)
(notmuch-refresh-all-buffers)
(message "Notmuch sync successful"))
(user-error "Failed to sync notmuch data")))
nil
'local)))
(let ((compilation-buffer-name-function (lambda (_) (format "*notmuch update*"))))
(with-current-buffer (compile (+notmuch-get-sync-command))
(add-hook
'compilation-finish-functions
(lambda (buf status)
(if (equal status "finished\n")
(progn
(delete-windows-on buf)
(bury-buffer buf)
(notmuch-refresh-all-buffers)
(message "Notmuch sync successful"))
(user-error "Failed to sync notmuch data")))
nil
'local))))
;;;###autoload
(defun +notmuch/search-delete ()