branch: externals/olivetti
commit f53b5f4bd9113d3b8e733b4561a8f3d6f8e971dd
Author: Paul Rankin <[email protected]>
Commit: Paul Rankin <[email protected]>
Added mode-map
---
olivetti.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/olivetti.el b/olivetti.el
index 442397f..da5de1c 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -281,6 +281,14 @@ If prefixed with ARG, incrementally increase."
(interactive)
(olivetti-mode 1))
+(defvar olivetti-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "C-c [") #'olivetti-shrink)
+ (define-key map (kbd "C-c ]") #'olivetti-expand)
+ (define-key map (kbd "C-c \\") #'olivetti-set-width)
+ map)
+ "Mode map for `olivetti-mode'.")
+
;;;###autoload
(define-minor-mode olivetti-mode
"Olivetti provides a nice writing environment.
@@ -291,8 +299,6 @@ body width set with `olivetti-body-width'.
When `olivetti-hide-mode-line' is non-nil, the mode line is also
hidden."
:init-value nil
- :keymap '(([?\C-c ?\[] . olivetti-shrink)
- ([?\C-c ?\]] . olivetti-expand))
:lighter olivetti-lighter
(if olivetti-mode
(progn
