From 22b828dff88bbdf5f4f6d7bbf7861a5af04863ed Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian 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-", 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