From 22b828dff88bbdf5f4f6d7bbf7861a5af04863ed Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Thu, 3 Jul 2014 18:30:37 +0200
Subject: use our font for all prompts
---
xmonad.hs | 25 +++++++++++++++----------
1 file 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)
--
cgit v1.2.3