From a709668c487777f51e65652628fb9d06183feae0 Mon Sep 17 00:00:00 2001
From: janabhumi <dmitriy@ideascup.me>
Date: Mon, 12 Sep 2022 00:48:19 +0300
Subject: [PATCH] home/xmonad: change prompt style

---
 home/ui/xmonad/config.hs | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/home/ui/xmonad/config.hs b/home/ui/xmonad/config.hs
index 87c5ef1..83c8492 100644
--- a/home/ui/xmonad/config.hs
+++ b/home/ui/xmonad/config.hs
@@ -40,7 +40,7 @@ import XMonad.Layout.LimitWindows (limitWindows)
 import XMonad.Layout.NoBorders (smartBorders)
 import XMonad.Layout.Spacing (spacing)
 import XMonad.Layout.ThreeColumns (ThreeCol (..))
-import XMonad.Prompt (XPConfig, XPType (..), XPrompt (..), mkComplFunFromList', mkXPromptWithModes)
+import XMonad.Prompt (XPConfig (..), XPPosition (..), XPType (..), XPrompt (..), mkComplFunFromList', mkXPromptWithModes)
 import qualified XMonad.StackSet as W
 import XMonad.Util.EZConfig
 import qualified XMonad.Util.ExtensibleState as XS
@@ -340,7 +340,7 @@ myKeys conf =
       ]
 
     misc_kb =
-      [ ("M-o", projectPrompt def),
+      [ ("M-o", projectPrompt myPromptConfig),
         -- Change volume
         ("<XF86AudioMute>", spawn "amixer -q sset Master toggle"),
         ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 5%+"),
@@ -409,6 +409,19 @@ myProjects =
           Just c -> " --command " ++ c
           _ -> ""
 
+myPromptConfig :: XPConfig
+myPromptConfig =
+  def
+    { position = Top,
+      font = "xft:Fira Code:size=12:antialias=true",
+      borderColor = "#333333",
+      bgColor = "#222222",
+      fgColor = blue,
+      bgHLight = "#222222",
+      fgHLight = purple,
+      height = 25
+    }
+
 ------------------------------------------------------------------------
 -- Project
 type ProjectName = String