diff options
author | Camil Staps | 2017-01-10 12:08:17 +0100 |
---|---|---|
committer | Camil Staps | 2017-01-10 12:12:17 +0100 |
commit | 10f1b48834fbcc2fbf05b2112075d38436830ae4 (patch) | |
tree | bbaad2c19c3217bf964541527071b91fac84e826 /xmonad.symlink | |
parent | GHCi editor (diff) |
cleanup
Diffstat (limited to 'xmonad.symlink')
-rw-r--r-- | xmonad.symlink/xmonad.hs | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/xmonad.symlink/xmonad.hs b/xmonad.symlink/xmonad.hs deleted file mode 100644 index 43d0a9e..0000000 --- a/xmonad.symlink/xmonad.hs +++ /dev/null @@ -1,56 +0,0 @@ -import System.IO -import System.Posix.Env (putEnv) -import XMonad -import XMonad.Actions.CycleWS -import XMonad.Actions.CycleWindows -import XMonad.Hooks.SetWMName -import XMonad.Hooks.DynamicLog -import XMonad.Hooks.ManageDocks -import XMonad.Layout.LimitWindows -import XMonad.Layout.MultiColumns -import XMonad.Layout.Tabbed -import XMonad.Util.EZConfig -import XMonad.Util.Loggers -import XMonad.Util.Run(spawnPipe) - -xmoblog proc = dynamicLogWithPP xmobarPP - { ppOutput = hPutStrLn proc - , ppTitle = xmobarColor "green" "" . shorten 50 - , ppExtras = [logCmd "sleep .1 && volume"] - } - -main = do - putEnv "_JAVA_AWT_WM_NONREPARENTING=1" -- java GUIs; see https://code.google.com/p/xmonad/issues/detail?id=559#c11 - xmproc <- spawnPipe "xmobar" - xmonad $ defaultConfig - { modMask = mod4Mask - , focusFollowsMouse = False - , layoutHook = avoidStruts $ myLayouts - , logHook = xmoblog xmproc - , manageHook = manageDocks <+> manageHook defaultConfig - , terminal = "uxterm" - , borderWidth = 1 - } - `additionalKeysP` (myKeys xmproc) - -myKeys xmproc = [ ("M-<F5>", spawn "xbacklight -dec 5 -time 80") - , ("M-<F6>", spawn "xbacklight -inc 5 -time 80") - , ("<XF86AudioMute>", spawn "amixer sset 'Master' toggle" >> xmoblog xmproc) - , ("<XF86AudioRaiseVolume>", spawn "amixer sset 'Master' 1%+" >> xmoblog xmproc) - , ("<XF86AudioLowerVolume>", spawn "amixer sset 'Master' 1%-" >> xmoblog xmproc) - , ("<XF86PowerOff>", spawn "sudo pm-suspend") - , ("<XF86KbdBrightnessUp>", spawn "sudo -A ./bin/kbdbacklight up") - , ("<XF86KbdBrightnessDown>", spawn "sudo -A ./bin/kbdbacklight down") - , ("M-<Up>", nextWS) - , ("M-<Down>", prevWS) - , ("M-S-p", spawn "passmenu -i") - , ("M-v", spawn "uxterm -e vim") - , ("M-m", spawn "uxterm -e cmus") - , ("M--", decreaseLimit) - , ("M-=", increaseLimit) - ] - -myLayouts = limitWindows 3 $ Tall 1 0.01 0.5 - ||| multiCol [1,1,0] 4 0.01 0.4 - ||| simpleTabbed - |