unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-15 04:11:34 +03:00
Code Issues Projects Releases Wiki Activity

Fixed minor issue with text box of explorer not ignoring arrow keys

Browse Source
This commit is contained in:
Paul Chiusano 2014-12-31 19:47:59 -05:00
parent 8b182ffccb
commit 41e6c17fb6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
editor/Unison/Explorer.elm
View File

@ -54,6 +54,13 @@ type alias S v =
, completions : List (Element,v)
, invalidCompletions : List Element }
ignoreUpDown : Signal Field.Content -> Signal Field.Content
ignoreUpDown s =
let f arrows c prevC = if arrows.y /= 0 && c.string == prevC.string then prevC else c
in Signal.map3 f (Signal.keepIf (\a -> a.y /= 0) {x = 0, y = 0} Keyboard.arrows)
s
(Signals.delay Field.noContent s)
listSelection : Signal (Int,Int)
-> Signal Movement.D1
-> Signal (List v, Layout (Maybe Int))
@ -164,7 +171,7 @@ searchbox match vs s = Signal.map2 match vs s
main =
let names = ["Alice", "Allison", "Bob", "Burt", "Carol", "Chris", "Dave", "Donna", "Eve", "Frank"]
search = Signal.channel Field.noContent
searchSub = Signal.subscribe search
searchSub = ignoreUpDown (Signal.subscribe search)
searchStrings = Signal.map .string searchSub
values = searchbox (\vs s -> List.filter (String.startsWith s) vs) (Signal.constant names) searchStrings
|> Signal.map (Debug.watchSummary "values length" List.length)