From 8e20389ce238d979e6cb9253643bc181d698f5a9 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Sat, 13 Oct 2018 14:12:30 +0300
Subject: Huge update, yet again

Move to ~/.xmonad
Completely redo directory structure
Remove Test.hs with xmonad-ng-test because it breaks cabal
Add headers for new files
Add proper "copyright" entries and mention upstream xmonad developers
Other minor fixes
---
 src/XMonad/Custom/Prompt.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/XMonad/Custom/Prompt.hs

(limited to 'src/XMonad/Custom/Prompt.hs')

diff --git a/src/XMonad/Custom/Prompt.hs b/src/XMonad/Custom/Prompt.hs
new file mode 100644
index 0000000..15aab2c
--- /dev/null
+++ b/src/XMonad/Custom/Prompt.hs
@@ -0,0 +1,18 @@
+module XMonad.Custom.Prompt
+    ( listCompFunc
+    , aListCompFunc
+    , predicateFunction
+    ) where
+
+import           Data.Char
+import           Data.List
+import           XMonad.Prompt
+
+listCompFunc :: XPConfig -> [String] -> String -> IO [String]
+listCompFunc c xs s = return (filter (searchPredicate c s) xs)
+
+aListCompFunc :: XPConfig -> [(String, a)] -> String -> IO [String]
+aListCompFunc c xs = listCompFunc c (map fst xs)
+
+predicateFunction :: String -> String -> Bool
+predicateFunction x y = lc x `isInfixOf` lc y where lc = map toLower
-- 
cgit 1.4.1