home/xmonad: change prompt style

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