From c5d13e52aac14c541d00b04fc143fe25ece7bac6 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 28 Jul 2014 14:14:07 +0200
Subject: silence all the warnings
---
Buffer/Motion.hs | 14 ++++++++++++++
1 file changed, 14 insertions(+)
(limited to 'Buffer/Motion.hs')
diff --git a/Buffer/Motion.hs b/Buffer/Motion.hs
index 86446e0..fa9e059 100644
--- a/Buffer/Motion.hs
+++ b/Buffer/Motion.hs
@@ -25,21 +25,33 @@ data LeftRightMotion
| WordsBackward Int
deriving (Show)
+
-- TODO fail if cannot splitAt properly OR if we didn't modify the buffer
+gotoLeft :: Int -> Buffer -> Buffer
gotoLeft i (ls, rs) =
let (lls, rls) = splitAt (length ls - i) ls in (lls, rls ++ rs)
+
-- TODO fail if cannot splitAt properly OR if we didn't modify the buffer
+gotoRight :: Int -> Buffer -> Buffer
gotoRight i (ls, rs) =
let (lrs, rrs) = splitAt i rs in (ls ++ lrs, rrs)
+
+gotoFirstChar :: Buffer -> Buffer
gotoFirstChar (ls, rs) = ("", ls ++ rs)
+
+gotoEndOfLine :: Buffer -> Buffer
gotoEndOfLine (ls, rs) = (ls ++ rs, "")
+
-- TODO fail if i <= 0 or i > length
+gotoColumn :: Int -> Buffer -> Buffer
gotoColumn i (ls, rs) = splitAt (i - 1) $ ls ++ rs
+
+wordsForward :: Int -> Buffer -> Buffer
wordsForward i (ls, rs) =
let rs' = dropWhile (==' ') $ dropWhile (/=' ') rs
ls' = ls ++ take (length rs - length rs') rs
@@ -49,6 +61,8 @@ wordsForward i (ls, rs) =
then wordsForward (i - 1) b'
else b'
+
+wordsBackward :: Int -> Buffer -> Buffer
wordsBackward i (ls, rs) =
let ls' = dropWhileEnd (/=' ') $ dropWhileEnd (==' ') ls
rs' = drop (length ls') ls ++ rs
--
cgit v1.2.3