unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-25 09:17:27 +03:00
Code Issues Projects Releases Wiki Activity

Added enter close events

Browse Source
This commit is contained in:
Paul Chiusano 2015-11-06 09:38:36 -05:00
parent 82a773d988
commit 7bd7866993
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
editor/src/Unison/Explorer.hs
View File

@ -88,8 +88,10 @@ explorer keydown processQuery topContent s0 = do
keyClosings <- pure $
let f a = case a of Cancel -> Just Nothing; Accept a -> Just (Just a); _ -> Nothing
in fmapMaybe f actions
let mouseClosings = pushAlways (\_ -> sample (current selection)) $ domEvent Click selectableRegion
pure (updated valids, s', leftmost [keyClosings, mouseClosings])
let sampleCurrent _ = sample (current selection)
let mouseClosings = pushAlways sampleCurrent $ domEvent Click selectableRegion
let enterClosings = pushAlways sampleCurrent $ textInputGetEnter searchbox
pure (updated valids, s', leftmost [keyClosings, mouseClosings, enterClosings])
pure (updatedS, closings)
safeIndex :: Int -> [a] -> Maybe a