diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2019-02-19 11:39:51 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2019-02-19 11:39:51 +0100 |
| commit | 8afbe1f7df24034dd16fdf2e89b0665b2318ae2a (patch) | |
| tree | 095be830c34c4aa9682a7047f4b0e412178ab24b /interactive-edit-lens/src/Interact.hs | |
| parent | 46ae60eaca841b554ba20c6a2b7a15b43c12b4df (diff) | |
| download | incremental-dfsts-8afbe1f7df24034dd16fdf2e89b0665b2318ae2a.tar incremental-dfsts-8afbe1f7df24034dd16fdf2e89b0665b2318ae2a.tar.gz incremental-dfsts-8afbe1f7df24034dd16fdf2e89b0665b2318ae2a.tar.bz2 incremental-dfsts-8afbe1f7df24034dd16fdf2e89b0665b2318ae2a.tar.xz incremental-dfsts-8afbe1f7df24034dd16fdf2e89b0665b2318ae2a.zip | |
Stuff...
Diffstat (limited to 'interactive-edit-lens/src/Interact.hs')
| -rw-r--r-- | interactive-edit-lens/src/Interact.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interactive-edit-lens/src/Interact.hs b/interactive-edit-lens/src/Interact.hs index 3aab5c2..0074e86 100644 --- a/interactive-edit-lens/src/Interact.hs +++ b/interactive-edit-lens/src/Interact.hs | |||
| @@ -146,9 +146,9 @@ interactiveEditLens' cfg@InteractConfig{..} | |||
| 146 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace (c l) || Seq.null (c l) then (pred l, 0) else (l - 2, 0)) | 146 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace (c l) || Seq.null (c l) then (pred l, 0) else (l - 2, 0)) |
| 147 | EvKey KRight [MCtrl] -> continue $ st &?~ doMove | 147 | EvKey KRight [MCtrl] -> continue $ st &?~ doMove |
| 148 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace $ c l then (succ l, 0) else (l + 2, 0)) | 148 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace $ c l then (succ l, 0) else (l + 2, 0)) |
| 149 | EvKey KUp [MCtrl] -> continue $ st &?~ doMove | 149 | EvKey KUp [] -> continue $ st &?~ doMove |
| 150 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) || Seq.null (c l) then (pred l, p) else (l - 2, p)) | 150 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) || Seq.null (c l) then (pred l, p) else (l - 2, p)) |
| 151 | EvKey KDown [MCtrl] -> continue $ st &?~ doMove | 151 | EvKey KDown [] -> continue $ st &?~ doMove |
| 152 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) then (succ l, p) else (l + 2, p)) | 152 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) then (succ l, p) else (l + 2, p)) |
| 153 | EvKey KLeft [] -> continue $ st &?~ doMove moveLeft | 153 | EvKey KLeft [] -> continue $ st &?~ doMove moveLeft |
| 154 | EvKey KRight [] -> continue $ st &?~ doMove moveRight | 154 | EvKey KRight [] -> continue $ st &?~ doMove moveRight |