[elpa] externals/osm 21e59942a9 15/77: Handle mouse drag event

[ELPA Syncer]

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

    Handle mouse drag event
---
 osm.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/osm.el b/osm.el
index a281c2feff..0cc50e41e4 100644
--- a/osm.el
+++ b/osm.el
@@ -121,6 +121,7 @@ Should be at least 7 days according to the server usage 
policies."
     (define-key map "+" #'osm-larger)
     (define-key map "-" #'osm-smaller)
     (define-key map [mouse-1] #'osm-click)
+    (define-key map [drag-mouse-1] #'osm-drag)
     (define-key map [up] #'osm-up)
     (define-key map [down] #'osm-down)
     (define-key map [left] #'osm-left)
@@ -300,6 +301,15 @@ We need two distinct images which are not `eq' for the 
display properties.")
       (cl-incf osm--y (- y osm--wy))
       (osm-larger))))
 
+(defun osm-drag (event)
+  "Handle drag EVENT."
+  (interactive "e")
+  (pcase-let ((`(,sx . ,sy) (posn-x-y (event-start event)))
+              (`(,ex . ,ey) (posn-x-y (event-end event))))
+    (cl-incf osm--x (- sx ex))
+    (cl-incf osm--y (- sy ey))
+    (osm--update)))
+
 (defun osm-larger (&optional n)
   "Zoom N times into the map."
   (interactive "p")