From 57782266e2cd21ecdd66a80ba362d7c118dde35b Mon Sep 17 00:00:00 2001
From: Samae <eeva@samae>
Date: Tue, 1 Aug 2023 12:21:23 +0300
Subject: [PATCH] Enable FuzzyMatch

---
 lib/KeyBindings.hs | 4 ++++
 lib/Password.hs    | 2 +-
 lib/Projects.hs    | 5 +++++
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 7de030d..a47480d 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -18,6 +18,7 @@ import XMonad.Layout.ToggleLayouts
 import XMonad.Operations
 import XMonad.Prompt
 import XMonad.Prompt.ConfirmPrompt
+import XMonad.Prompt.FuzzyMatch
 import XMonad.Prompt.Shell
 import XMonad.Util.EZConfig
 import XMonad.Util.NamedScratchpad
@@ -98,6 +99,9 @@ promptConfig = def
   , font              = "xft:Iosevka Samae:style=Regular:size=8:charwidth=5"
   , height            = 24
   , promptBorderWidth = 5
+  -- Fuzzysearch by default
+  , searchPredicate = fuzzyMatch
+  , sorter          = fuzzySort
   }
 
 -- -- Slightly taken from
diff --git a/lib/Password.hs b/lib/Password.hs
index 00d1a32..2b02258 100644
--- a/lib/Password.hs
+++ b/lib/Password.hs
@@ -53,7 +53,7 @@ mkPassPrompt label f conf = do
 passComplFun :: [String] -> String -> IO [String]
 passComplFun allPasses input = pure $
   sortBy (compare `on` levenshtein input)
-  . take 5
+  . take 10
   . filter (consumes input)
   $ allPasses
   where
diff --git a/lib/Projects.hs b/lib/Projects.hs
index b55528e..20eee4a 100644
--- a/lib/Projects.hs
+++ b/lib/Projects.hs
@@ -47,6 +47,11 @@ projects =
             , projectStartHook = Just $ do spawnGuiTextEditor
                                            safeSpawnProg term
             }
+  , Project { projectName = "nixpkgs"
+            , projectDirectory = "~/admin/nixpkgs"
+            , projectStartHook = Just $ do spawnGuiTextEditor
+                                           safeSpawnProg term
+            }
   , Project { projectName = "overlays-personal"
             , projectDirectory = "~/admin/overlays-personal"
             , projectStartHook = Just $ do spawnGuiTextEditor