Double-click and triple-click selection in pango

Fixes #100 and fixes #101.
yi-editor · Oct 11, 2014 · f94a951 · f94a951
1 parent f6463fb
commit f94a951
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/CHANGELOG b/CHANGELOG
@@ -29,6 +29,7 @@
  * Fix dired for directories with unicode files/dirs (#445)
  * Fix vim indenting under some circumstances (#621)
  * Allow the font size to be changed per buffer (#608)
+ * Double-click and triple-click selection in pango (#100 and #101)
 
 0.9.0
 -----

diff --git a/yi/src/library/Yi/UI/Pango.hs b/yi/src/library/Yi/UI/Pango.hs
@@ -828,21 +828,31 @@ handleButtonClick ui ref = do
         runAction = uiActionCh ui . makeAction
 
     runAction focusWindow
+
+    win <- io $ readIORef (coreWin w)
+
+    let selectRegion tu = runAction $ do
+          b <- gets $ bkey . findBufferWith (bufkey win)
+          withGivenBufferAndWindow0 win b $
+            moveTo point >> regionOfB tu >>= setSelectRegionB
+
     case (click, button) of
-      (SingleClick, LeftButton) ->  do
+      (SingleClick, LeftButton) -> do
         io $ writeIORef (lButtonPressed w) True
-        win <- io $ readIORef (coreWin w)
         runAction $ do
           b <- gets $ bkey . findBufferWith (bufkey win)
           withGivenBufferAndWindow0 win b $ do
             m <- selMark <$> askMarks
             markPointA m .= point
             moveTo point
             setVisibleSelection False
+      (DoubleClick, LeftButton) -> selectRegion unitWord
+      (TripleClick, LeftButton) -> selectRegion Line
       _ -> return ()
 
     return True
 
+
 handleButtonRelease :: UI -> WinInfo -> EventM EButton Bool
 handleButtonRelease ui w = do
   (x, y)   <- eventCoordinates