From 27e11b20b06f2f2dbfb56c0998a63169b4b8abc4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 8 Nov 2017 23:47:26 +0100
Subject: Use a better project structure

---
 common/src/Common/Util/Text.hs | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 common/src/Common/Util/Text.hs

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
new file mode 100644
index 0000000..4af7a4c
--- /dev/null
+++ b/common/src/Common/Util/Text.hs
@@ -0,0 +1,41 @@
+module Common.Util.Text
+  ( unaccent
+  ) where
+
+import Data.Text (Text)
+import qualified Data.Text as T
+
+unaccent :: Text -> Text
+unaccent = T.map unaccentChar
+
+unaccentChar :: Char -> Char
+unaccentChar c = case c of
+  'à' -> 'a'
+  'á' -> 'a'
+  'â' -> 'a'
+  'ã' -> 'a'
+  'ä' -> 'a'
+  'ç' -> 'c'
+  'è' -> 'e'
+  'é' -> 'e'
+  'ê' -> 'e'
+  'ë' -> 'e'
+  'ì' -> 'i'
+  'í' -> 'i'
+  'î' -> 'i'
+  'ï' -> 'i'
+  'ñ' -> 'n'
+  'ò' -> 'o'
+  'ó' -> 'o'
+  'ô' -> 'o'
+  'õ' -> 'o'
+  'ö' -> 'o'
+  'š' -> 's'
+  'ù' -> 'u'
+  'ú' -> 'u'
+  'û' -> 'u'
+  'ü' -> 'u'
+  'ý' -> 'y'
+  'ÿ' -> 'y'
+  'ž' -> 'z'
+  _ -> c
-- 
cgit v1.2.3


From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

---
 common/src/Common/Util/Text.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index 4af7a4c..7e5c8c2 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -2,7 +2,7 @@ module Common.Util.Text
   ( unaccent
   ) where
 
-import Data.Text (Text)
+import           Data.Text (Text)
 import qualified Data.Text as T
 
 unaccent :: Text -> Text
@@ -38,4 +38,4 @@ unaccentChar c = case c of
   'ý' -> 'y'
   'ÿ' -> 'y'
   'ž' -> 'z'
-  _ -> c
+  _   -> c
-- 
cgit v1.2.3


From 49426740e8e0c59040f4f3721a658f225572582b Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 28 Nov 2017 09:11:19 +0100
Subject: Add search for payments

---
 common/src/Common/Util/Text.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index 7e5c8c2..b49fc55 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -1,10 +1,16 @@
 module Common.Util.Text
-  ( unaccent
+  ( search
+  , unaccent
   ) where
 
 import           Data.Text (Text)
 import qualified Data.Text as T
 
+search :: Text -> Text -> Bool
+search s t =
+  (format s) `T.isInfixOf` (format t)
+  where format = T.toLower . unaccent
+
 unaccent :: Text -> Text
 unaccent = T.map unaccentChar
 
-- 
cgit v1.2.3


From fc8be14dd0089eb12b78af7aaaecd8ed57896677 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 7 Aug 2019 21:27:59 +0200
Subject: Update category according to payment in add overlay

---
 common/src/Common/Util/Text.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index b49fc55..d7f1db4 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -1,15 +1,16 @@
 module Common.Util.Text
   ( search
-  , unaccent
+  , formatSearch
   ) where
 
 import           Data.Text (Text)
 import qualified Data.Text as T
 
 search :: Text -> Text -> Bool
-search s t =
-  (format s) `T.isInfixOf` (format t)
-  where format = T.toLower . unaccent
+search s t = (formatSearch s) `T.isInfixOf` (formatSearch t)
+
+formatSearch :: Text -> Text
+formatSearch = T.toLower . unaccent
 
 unaccent :: Text -> Text
 unaccent = T.map unaccentChar
-- 
cgit v1.2.3


From c0ea63f8c1a8c7123b78798cec99726b113fb1f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Nov 2019 18:08:28 +0100
Subject: Optimize and refactor payments

---
 common/src/Common/Util/Text.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index d7f1db4..0f9c187 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -1,6 +1,7 @@
 module Common.Util.Text
   ( search
   , formatSearch
+  , unaccent
   ) where
 
 import           Data.Text (Text)
-- 
cgit v1.2.3