Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Mu4e side dashboard
(require 'mu4e)
(require 'mu4e-dashboard)
(setq mu4e-sidebar-frame nil)
(setq mu4e-sidebar-dashboard-file "~/.emacs.d/lisp/dashboard.org")
(defun mu4e-sidebar-create (dashboard-file)
(let ((width (frame-pixel-width))
(height (frame-pixel-height))
(frame (make-frame `((parent-frame . ,(window-frame))
(no-accept-focus . t)
(min-width . t)
(min-height . t)
(border-width . 0)
(internal-border-width . 0)
(vertical-scroll-bars . nil)
(horizontal-scroll-bars . nil)
(left-fringe . 0)
(right-fringe . 1)
(user-position . nil)
(user-size . nil)
(keep-ratio . t)
(menu-bar-lines . 0)
(tool-bar-lines . 0)
(line-spacing . 0)
(desktop-dont-save . t)
(unsplittable . t)
(background-color . ,nano-color-subtle)
(border-color . ,nano-color-faded)
(no-other-frame . t)
(undecorated . t)
(pixelwise . t)
(modeline . nil)
(visibility . nil)
(cursor-type . nil)
(minibuffer . nil)))))
(setq mu4e-sidebar-frame frame)
(select-frame frame)
(modify-frame-parameters frame `((top . 0)
(height . (text-pixels . ,height))
(width . 36)
(left . ,(* -1 width))))
(find-file dashboard-file)
(mu4e-dashboard-mode)
(set-window-dedicated-p nil t)
(set-window-margins (get-buffer-window) 2)
(face-remap-add-relative 'fringe `(:background ,nano-color-faded))
(face-remap-add-relative 'default `(:background ,nano-color-subtle))
(face-remap-add-relative 'org-level-1 `(:background ,nano-color-subtle))
(face-remap-add-relative 'org-level-2 `(:background ,nano-color-subtle))
(face-remap-add-relative 'org-link `(:background ,nano-color-subtle))
(setq-local header-line-format nil)
(setq-local mode-line-format nil)))
(defun mu4e-sidebar-toggle ()
(interactive)
(if (or (not mu4e-sidebar-frame)
(not (frame-live-p mu4e-sidebar-frame)))
(mu4e-sidebar-create mu4e-sidebar-dashboard-file))
(let* ((frame mu4e-sidebar-frame)
(visible (alist-get 'visibility (frame-parameters frame)))
(parent (alist-get 'parent (frame-parameters frame)))
(width (frame-pixel-width parent))
(height (frame-pixel-height parent)))
(modify-frame-parameters frame `((top . 0)
(height . (text-pixels . ,height))
(width . 36)
(left . ,(* -1 width))))
(if visible
(make-frame-invisible frame)
(make-frame-visible frame))))
(mu4e-sidebar-toggle)
@rougier

This comment has been minimized.

Copy link
Owner Author

@rougier rougier commented May 11, 2021

Screenshot 2021-05-11 at 19 21 17

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment