Skip to content

display mu4e-overview buffer in side window #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
stardiviner wants to merge 2 commits into
base: master
Choose a base branch
from
Open

display mu4e-overview buffer in side window #2

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
b6c0555
display mu4e-overview buffer in side window
stardiviner Oct 7, 2019
3635393
fix mu4e-overview-action open in side window
stardiviner Oct 7, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 20 additions & 10 deletions mu4e-overview.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -273,12 +273,17 @@ headers view only for unread messages."
(interactive)
(let* ((folder (button-get button 'mu4e-overview-folder))
(maildir (mu4e-overview-folder-maildir folder)))
(mu4e-headers-search
(format "maildir:\"/%s\"%s" maildir
(if (or unread-only (and current-prefix-arg
(eq this-command 'push-button)))
" and flag:unread"
"")))))
(display-buffer-reuse-window
(with-current-buffer (get-buffer-create "*mu4e-headers*")
(mu4e-headers-search
(format "maildir:\"/%s\"%s" maildir
(if (or unread-only (and current-prefix-arg
(eq this-command 'push-button)))
" and flag:unread"
""))))
(list (cons 'slot 1)
(cons 'window-parameters
(list (cons 'no-delete-other-windows t)))))))

(defun mu4e-overview-next-unread-folder (&optional n)
"Go to next unread folder.
Expand Down Expand Up @@ -329,10 +334,15 @@ The buffer shows a hierarchy of maildirs used by `mu4e'.
The available keybindings are:
\\{mu4e-overview-mode-map}"
(interactive)
(with-current-buffer (get-buffer-create "*mu4e overview*")
(mu4e-overview-mode)
(mu4e-overview-update)
(pop-to-buffer (current-buffer))))
(display-buffer-in-side-window
(with-current-buffer (get-buffer-create "*mu4e overview*")
(mu4e-overview-mode)
(mu4e-overview-update)
(pop-to-buffer (current-buffer)))
(list (cons 'side 'right)
(cons 'slot 0)
(cons 'window-parameters
(list (cons 'no-delete-other-windows t))))))

(provide 'mu4e-overview)
;;; mu4e-overview.el ends here