From 8e24e00a0382138c344bc36f1f1a539588dfe29e Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 3 Mar 2021 11:12:59 +0800 Subject: TeX, skeleton, and eww. Configure TeX and add some skeletons, and bind a key to eww. --- view-conf.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'view-conf.el') diff --git a/view-conf.el b/view-conf.el index 9d1ea5f..f41a6d1 100644 --- a/view-conf.el +++ b/view-conf.el @@ -103,6 +103,7 @@ If ARG is '(16), view the battery information." (define-key map (vector ?e) #'eshell) (define-key map (vector ?p) #'durand-chercher-pdf) (define-key map (vector ?o) #'olivetti-mode) + (define-key map (vector ?c) #'calendar) (define-key map (vector ?r) #'choose-recent-file) map) "The keymap that is related to my custom functions about viewing.") @@ -339,13 +340,14 @@ If ARG is non-nil, do the same for Bluetooth." ;;;###autoload (define-minor-mode durand-focus - "Focus mode." nil "Foc" nil + "Focus mode." nil " Foc" nil (cond (durand-focus (setq olivetti-body-width 65) (olivetti-mode 1) (text-scale-increase 2) - (variable-pitch-mode 1)) + (variable-pitch-mode 1) + (cond (current-prefix-arg (view-mode 1)))) ((setq olivetti-body-width 80) (variable-pitch-mode -1) (view-mode -1) -- cgit v1.2.3-18-g5258