dot

config files
git clone git://git.seahorse.sh/dot.git
Log | Files | Refs | README | LICENSE

xmonad.hs (1136B)


      1 import XMonad
      2 import XMonad.Config.Desktop
      3 import Data.Monoid
      4 import XMonad.Util.EZConfig (additionalKeysP)
      5 import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
      6 import XMonad.Hooks.EwmhDesktops
      7 import XMonad.Prompt
      8 import XMonad.Prompt.Shell
      9 
     10 main :: IO ()
     11 main = do
     12     xmonad $ ewmh desktopConfig
     13         { manageHook = ( isFullscreen --> doFullFloat ) <+> composeAll [ className =? "qutebrowser" --> doShift "0", className =? "discord" --> doShift "1" ] <+> manageHook desktopConfig
     14         , modMask = mod4Mask
     15         , layoutHook = Full
     16         , workspaces = ["0", "1", "2", "3", "4", "5", "6", "7", "8"]
     17         , borderWidth = 0
     18         } `additionalKeysP` [ ("M-x", shellPrompt myPromptConfig) ]
     19 
     20 myPromptConfig :: XPConfig
     21 myPromptConfig = def
     22         { position = Bottom
     23         , bgColor = "#000000"
     24         , fgColor = "#CDCDCD"
     25         , bgHLight = "#363636"
     26         , fgHLight = "#ee82ee"
     27         , promptBorderWidth = 0
     28         , defaultText = []
     29         , alwaysHighlight = True
     30         , height = 20
     31         , font = "xft:Hermit:size=24:antialias=true:hinting=true"
     32         , maxComplRows = Just 3
     33         }