unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-14 07:51:12 +03:00
Code Issues Projects Releases Wiki Activity

formatting

Browse Source
This commit is contained in:
Paul Chiusano 2014-10-22 11:27:45 -04:00
parent 60cdece1bb
commit 2bcacfca2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
editor/Main.elm
View File

@ -41,7 +41,7 @@ resolvedPath e pathUnderPtr =
(if y == -1 then Scope.down e else identity) >>
(if x == 1 then Scope.right e else identity) >>
(if x == -1 then Scope.left e else identity)
edits = edit <~ (Signals.repeatAfterIf (300*millisecond) 20 nonzero Keyboard.arrows) ~ e
edits = edit <~ Signals.repeatAfterIf (300*millisecond) 20 nonzero Keyboard.arrows ~ e
defaultScope = lift (Maybe.map Scope.scope) pathUnderPtr
shifted = Signals.foldpBetween'
Mouse.position