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

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

[elpa] externals/osm 76b41f5fb5 51/77: Add keybindings


From: ELPA Syncer
Subject: [elpa] externals/osm 76b41f5fb5 51/77: Add keybindings
Date: Mon, 7 Mar 2022 08:58:07 -0500 (EST)

branch: externals/osm
commit 76b41f5fb5e53aa349d5698d7ba67c4d346dee8f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add keybindings
---
 README.org | 4 ++--
 osm.el     | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 937484866d..4190c84fe2 100644
--- a/README.org
+++ b/README.org
@@ -63,8 +63,8 @@ Top-level commands:
 Key bindings in =osm-mode= buffer:
 - ~<arrow>~: Small step scrolling
 - ~C-<arrow>~, ~M-<arrow>~: Large step scrolling
-- ~+~: =osm-zoom-out= - Zoom out
-- ~-~: =osm-zoom-in= - Zoom in
+- ~+~, ~SPC~: =osm-zoom-in= - Zoom in
+- ~-~, ~S-SPC~: =osm-zoom-out= - Zoom out
 - ~<mouse-1>~: =osm-zoom-click= - Zoom to point
 - ~<mouse-2>~: =osm-org-link-click= - Store point as Org link
 - ~<mouse-3>~: =osm-bookmark-click= - Store point as bookmark
diff --git a/osm.el b/osm.el
index e093b47421..89f8e9d269 100644
--- a/osm.el
+++ b/osm.el
@@ -123,6 +123,9 @@ Should be at least 7 days according to the server usage 
policies."
   (let ((map (make-sparse-keymap)))
     (define-key map "+" #'osm-zoom-in)
     (define-key map "-" #'osm-zoom-out)
+    (define-key map " " #'osm-zoom-in)
+    (define-key map (kbd "S-SPC") #'osm-zoom-out)
+    (define-key map "\d" #'osm-zoom-out)
     (define-key map [mouse-1] #'osm-zoom-click)
     (define-key map [mouse-2] #'osm-org-link-click)
     (define-key map [mouse-3] #'osm-bookmark-click)
@@ -149,9 +152,6 @@ Should be at least 7 days according to the server usage 
policies."
     (define-key map "B" #'osm-bookmark-jump)
     (define-key map [remap scroll-down-command] #'osm-down)
     (define-key map [remap scroll-up-command] #'osm-up)
-    (define-key map "\d" nil)
-    (define-key map (kbd "S-SPC") nil)
-    (define-key map " " nil)
     (define-key map "<" nil)
     (define-key map ">" nil)
     map)



reply via email to

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