From 902158fc2379a1c08551673c62c60e95afce81dc Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Wed, 4 Jan 2023 09:36:59 -0800 Subject: emacs: writeroom in notmuch-show --- .emacs.local.d/modes/notmuch.el | 3 +++ .emacs.local.d/modes/writeroom.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/.emacs.local.d/modes/notmuch.el b/.emacs.local.d/modes/notmuch.el index b22ede3..43e5689 100644 --- a/.emacs.local.d/modes/notmuch.el +++ b/.emacs.local.d/modes/notmuch.el @@ -102,3 +102,6 @@ than one email. Use notmuch-show otherwise." (overlay-put overlay 'face '((:inherit bold) (:foreground "green"))))))))))) (add-hook 'notmuch-hello-refresh-hook 'color-inbox-if-unread) +(add-hook 'notmuch-show-hook + (lambda () + (writeroom-mode))) diff --git a/.emacs.local.d/modes/writeroom.el b/.emacs.local.d/modes/writeroom.el index 50780cc..1f86fc0 100644 --- a/.emacs.local.d/modes/writeroom.el +++ b/.emacs.local.d/modes/writeroom.el @@ -2,7 +2,7 @@ :defer t :config (setq writeroom-width 140 - writeroom-mode-line nil + writeroom-mode-line 't writeroom-global-effects '(writeroom-set-bottom-divider-width writeroom-set-internal-border-width (lambda (arg) @@ -24,11 +24,11 @@ (mapcar (lambda (lang) (list lang '(:family "Source Code Pro" :height 1.0))) langs)) (normal-mode) (variable-pitch-mode) -(variable-pitch-mode))))))))) + (variable-pitch-mode))))))))) (use-package olivetti :defer t :config (setq - olivetti-body-width 86 + olivetti-body-width 100 )) -- cgit v1.2.3