use our font for all prompts

1 files changed, 15 insertions, 10 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 05efa22..4dcef11 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -196,6 +196,11 @@ alexTheme = defaultTheme
         , decoHeight = 15
         }
 
+alexXPConfig :: XPConfig
+alexXPConfig = P.defaultXPConfig
+        { P.font = font
+        }
+
 historyGridConfig = defaultGSConfig
         { gs_cellheight = 50
         , gs_cellwidth = 300
@@ -339,8 +344,8 @@ myKeys c =
   , ("M-S-j", windows W.swapDown)
   , ("M-S-k", windows W.swapUp)
 
-  , ("M-m", selectWorkspace P.defaultXPConfig)
-  , ("M-S-m", withWorkspace P.defaultXPConfig (windows . W.shift))
+  , ("M-m", selectWorkspace alexXPConfig)
+  , ("M-S-m", withWorkspace alexXPConfig (windows . W.shift))
   , ("M-S-<Backspace>", removeWorkspace)
 
   , ("M-h", sendMessage Shrink)
@@ -369,15 +374,15 @@ myKeys c =
   , ("M-^", viewEmptyWorkspace)
   , ("M-S-^", tagToEmptyWorkspace)
 
-  , ("M-p", myShellPrompt P.defaultXPConfig)
-  , ("M-e", launchApp P.defaultXPConfig "emacsclient" >> (windows (W.greedyView "5:code")))
+  , ("M-p", myShellPrompt alexXPConfig)
+  , ("M-e", launchApp alexXPConfig "emacsclient" >> (windows (W.greedyView "5:code")))
 
-  , ("M-o M-k", passPrompt P.defaultXPConfig)
-  , ("M-o M-S-k", passGeneratePrompt P.defaultXPConfig)
-  , ("M-o M-m", manPrompt P.defaultXPConfig)
-  , ("M-o M-b", safePrompt browser P.defaultXPConfig)
-  , ("M-o M-s", sshPrompt P.defaultXPConfig)
-  , ("M-o M-x", xmonadPrompt P.defaultXPConfig)
+  , ("M-o M-k", passPrompt alexXPConfig)
+  , ("M-o M-S-k", passGeneratePrompt alexXPConfig)
+  , ("M-o M-m", manPrompt alexXPConfig)
+  , ("M-o M-b", safePrompt browser alexXPConfig)
+  , ("M-o M-s", sshPrompt alexXPConfig)
+  , ("M-o M-x", xmonadPrompt alexXPConfig)
 
   , ("M-g", goToSelected defaultGSConfig)
   , ("M-S-g", bringSelected defaultGSConfig)