Setup dmenu

61103bad133ea3cbee3110a9f39729d698eeebbf
Alexis Sellier committed ago 1 parent 6577ec15
.xmonad/xmonad.hs +10 -0
52 52 
myKeys home conf@XConfig { XMonad.modMask = modMask } =
53 53 
    Map.union ks (XMonad.keys def conf)
54 54 
  where
55 55 
    ks = Map.fromList
56 56 
       [ ((modMask, xK_F12),     safeSpawn "systemctl" ["suspend"])
57 + 
       , ((modMask, xK_p),       dmenu)
57 58 
       , ((noModMask, xK_Print), spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)
58 59 
       ]
60 + 
    dmenu :: X ()
61 + 
    dmenu = safeSpawn
62 + 
        "dmenu_run" [ "-fn", "'xft:DejaVu Sans Mono:size=12:antialias=true:hinting=true:hintstyle=hintslight'"
63 + 
                    , "-i"
64 + 
                    , "-nb", "black"
65 + 
                    , "-nf", "#bbb"
66 + 
                    , "-sb", "#444"
67 + 
                    , "-sf", "white"
68 + 
                    ]