emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/olivetti f53b5f4 062/134: Added mode-map


From: Stefan Monnier
Subject: [elpa] externals/olivetti f53b5f4 062/134: Added mode-map
Date: Thu, 25 Apr 2019 09:57:29 -0400 (EDT)

branch: externals/olivetti
commit f53b5f4bd9113d3b8e733b4561a8f3d6f8e971dd
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]