about summary refs log tree commit diff
path: root/src/XMonad/Custom/Prompt.hs
diff options
context:
space:
mode:
authorazahi <azahi@teknik.io>2018-10-13 14:12:30 +0300
committerazahi <azahi@teknik.io>2018-10-13 14:12:30 +0300
commit8e20389ce238d979e6cb9253643bc181d698f5a9 (patch)
treed777052e5ac411cfa79de596ecc99d7d596705d8 /src/XMonad/Custom/Prompt.hs
parentRework Custom (diff)
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
Diffstat (limited to '')
-rw-r--r--src/XMonad/Custom/Prompt.hs18
1 files changed, 18 insertions, 0 deletions
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

Consider giving Nix/NixOS a try! <3