123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146 |
- import XMonad
- import XMonad.Config.Desktop
- import XMonad.Hooks.DynamicLog
- import XMonad.Hooks.ManageDocks
- import XMonad.Util.Run(spawnPipe, hPutStrLn, runProcessWithInput)
- import XMonad.Layout.Spacing(smartSpacing)
- import XMonad.Layout.Tabbed
- import XMonad.Layout.NoBorders
- import Data.Map(fromList)
- import XMonad.Prompt
- import XMonad.Prompt.XMonad
- import System.Exit(ExitCode(ExitSuccess), exitWith)
- import XMonad.Util.EZConfig(additionalKeys)
- import Graphics.X11.ExtraTypes.XF86
- import Data.List(elemIndex, foldl1')
- import XMonad.Config.Kde
- main = do
- xmproc <- spawnPipe "xmobar"
- xmonad $ docks defaultConfig
- { manageHook = manageDocks <+> manageHook defaultConfig
- , layoutHook = smartBorders $ avoidStruts $
- (smartSpacing 5 $ withBorder 2 $ Tall 1 (3/100) (1/2)) |||
- (smartSpacing 5 $ withBorder 2 $ Mirror (Tall 1 (3/100) (1/2))) |||
- Full |||
- tabbed shrinkText def
- , logHook = dynamicLogWithPP xmobarPP
- { ppOutput = hPutStrLn xmproc
- , ppTitle = xmobarColor "green" "" . shorten 50
- }
- , startupHook = startup
- , terminal = "gnome-terminal"
- , modMask = mod4Mask
- } `additionalKeys` myKeys
- startupList :: [String]
- startupList = [
- "feh --bg-scale ~/Owncloud/Backgrounds/Xmbindings.png"
- , "owncloud"
- , "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --alpha 0 --tint 0x000000 --height 22"
-
-
- , "pasystray"
- , "xfce4-clipman"
- , "xbacklight -set 12"
- , "compton"
- , "xscreensaver -nosplash"
- ]
- startup :: X ()
- startup = do
- foldl1' (>>) $ map (spawn . ifNotRunning) startupList
- ifNotRunning :: String -> String
- ifNotRunning s = "if [ `pgrep -c " ++ (basename s) ++ "` == 0 ]; then " ++ s ++ "; fi"
- basename :: String -> String
- basename s = case elemIndex ' ' s of
- (Just n) -> take n s
- Nothing -> s
- myKeys = [
-
- ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
- , ((0, xK_Print), spawn "scrot")
-
- , ((mod4Mask, xK_p ), spawn "rofi -show run")
-
- , ((mod4Mask .|. shiftMask, xK_q),
- xmonadPrompt defaultXPConfig
- { promptKeymap = fromList
- [ ((0, xK_r), do
- spawn "emacsclient -e '(kill emacs)'"
- spawn "systemctl reboot")
- , ((0 , xK_s), do
- spawn "emacsclient -e '(kill emacs)'"
- spawn "sudo poweroff")
- , ((0, xK_e), do
- spawn "emacsclient -e '(kill emacs)'"
- io $ exitWith ExitSuccess)
- , ((0, xK_l), do
- spawn "xscreensaver-command -lock"
- quit)
- , ((0, xK_z), do
- spawn "xscreensaver-command -lock"
- spawn "systemctl suspend"
- quit)
- , ((0, xK_Escape), quit)
- ]
- , defaultText = "(r) Reboot, (s) Shutdown, (e) Exit, (l) Lock, (z) Sleep"
- })
-
- , ((0, xF86XK_AudioRaiseVolume),
- spawn "pactl set-sink-volume alsa_output.pci-0000_00_1f.3.analog-stereo +5%")
- , ((0, xF86XK_AudioLowerVolume),
- spawn "pactl set-sink-volume alsa_output.pci-0000_00_1f.3.analog-stereo -5%")
- , ((0, xF86XK_AudioMute),
- spawn "pactl set-sink-mute alsa_output.pci-0000_00_1f.3.analog-stereo toggle")
-
- , ((0, xF86XK_MonBrightnessUp),
- let
- returnValM = fmap init $ runProcessWithInput "xbacklight" [] ""
- in do
- currentBrightness <- returnValM
- if (read currentBrightness :: Double) == 0 then
- spawn "xbacklight -set 2"
- else
- spawn "xbacklight -inc 5")
- , ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -dec 5")
-
-
-
- , ((mod4Mask, xK_x),
- spawn "emacsclient -c")
- , ((mod4Mask, xK_z),
- spawn "firefox-nightly")
- , ((mod4Mask, xK_m),
- spawn ":"
-
- )
- ]
|