diff options
| author | lassulus <lassulus@lassul.us> | 2020-06-07 13:10:52 +0200 |
|---|---|---|
| committer | lassulus <lassulus@lassul.us> | 2020-06-07 13:10:52 +0200 |
| commit | 15f39ef2e925858eb787c6a52ccb896928b28b47 (patch) | |
| tree | 2ac18efb3fe36040c71753f578529470cdb884c5 /tv/5pkgs/haskell/xmonad-tv/src/main.hs | |
| parent | fe119203ea4d2dc3e618d113c7f70629fd750aa3 (diff) | |
| parent | 8ae780cf2689a0e62718fe0dcc8b80e584f68d23 (diff) | |
Merge remote-tracking branch 'ni/master'
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src/main.hs')
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/main.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs index 047239eb7..c83b411bd 100644 --- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs +++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs @@ -18,6 +18,7 @@ import XMonad.Actions.CycleWS (toggleWS) import XMonad.Layout.NoBorders ( smartBorders ) import XMonad.Layout.ResizableTile (ResizableTall(ResizableTall)) import XMonad.Layout.ResizableTile (MirrorResize(MirrorExpand,MirrorShrink)) +import qualified XMonad.Prompt import qualified XMonad.StackSet as W import Data.Map (Map) import qualified Data.Map as Map @@ -154,8 +155,8 @@ myKeys conf = Map.fromList $ , ((_4 , xK_comma ), sendMessage $ IncMasterN 1) , ((_4 , xK_period ), sendMessage $ IncMasterN (-1)) - , ((_4 , xK_a ), addWorkspacePrompt def) - , ((_4 , xK_r ), renameWorkspace def) + , ((_4 , xK_a ), addWorkspacePrompt promptXPConfig) + , ((_4 , xK_r ), renameWorkspace promptXPConfig) , ((_4 , xK_Delete ), removeEmptyWorkspace) , ((_4 , xK_Return ), toggleWS) @@ -189,6 +190,9 @@ myKeys conf = Map.fromList $ resetLayout = setLayout $ XMonad.layoutHook conf + promptXPConfig = + def { XMonad.Prompt.font = myFont } + pagerConfig :: PagerConfig pagerConfig = def |