iankelling.org Git - distro-setup/blob - subdir_files/.xmonad/xmonad.hs

   1 import XMonad
   2 --import XMonad.Config.Gnome
   3
   4 import Data.Monoid
   5 import System.Exit
   6
   7 -- to get mouse move with window
   8 import XMonad.Actions.UpdatePointer
   9
  10 -- needed for the panel toggle keybind
  11 import XMonad.Hooks.ManageDocks
  12
  13 -- not sure if this is redundant with Xfce import
  14 import XMonad.Config.Desktop
  15
  16 -- based on http://www.haskell.org/haskellwiki/Xmonad/Using_xmonad_in_XFCE
  17 import XMonad.Hooks.EwmhDesktops
  18 import XMonad.Config.Xfce
  19 import XMonad.Hooks.ManageDocks
  20
  21 import qualified XMonad.StackSet as W
  22 import qualified Data.Map        as M
  23
  24 import XMonad.Actions.CycleWindows    --  Reset the layouts on the current workspace to default
  25
  26 import XMonad.Hooks.SetWMName
  27
  28
  29 -- /usr/share/xmonad/xmonad.hs on fedora has integration with gnome etc. but I
  30 -- had lots of problems with gnome integration.
  31
  32 main = xmonad $ defaults
  33
  34
  35 defaults = desktopConfig
  36        {
  37          terminal            = "sakura"
  38        , borderWidth        = 0
  39        , modMask            = mod4Mask
  40        , keys               = myKeys
  41        --, logHook            = myLogHook <+> logHook desktopConfig
  42        , mouseBindings      = myMouseBindings
  43
  44
  45     --   manageDocks & ewmh stuff is based on xfce integration wiki page
  46        , manageHook    = manageDocks <+> myManageHook <+> manageHook defaultConfig
  47        , logHook    = ewmhDesktopsLogHook
  48 -- todo, look into the suggested avoidStruts. my nieve attempt to integrate it failed
  49        , layoutHook         = myLayout
  50        , handleEventHook = ewmhDesktopsEventHook
  51 -- this makes some java programs work, like intellij idea,
  52 -- but it also makes the ui buggy for some gtk apps, like transmission
  53 -- and gnome-terminal
  54 -- https://bbs.archlinux.org/viewtopic.php?pid=744577
  55        , startupHook = setWMName "LG3D"
  56        -- combining the 2 with <+> didn't make java apps work.
  57        --, startupHook = ewmhDesktopsStartup
  58
  59 }
  60
  61
  62 -- for android emulator buggy window
  63 myManageHook = composeAll [ className =? "emulator64-arm" --> unfloat]
  64     where unfloat = ask >>= doF . W.sink
  65
  66 -- this is a nice idea but needs some tweaking cuz i don't want it to
  67 --  have an affect when switching to a floating window,
  68 --  and I remember sometimes being stuck in floating dialog boxes
  69 -- myLogHook = updatePointer (Relative 0.5 0.5)
  70
  71
  72
  73 myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
  74
  75
  76 -- Move focus to the previous window
  77 --    , ((modm,               xK_q     ), windows W.focusUp  )
  78
  79
  80     [ ((modm, xK_q), io (exitWith ExitSuccess)) -- %! Quit xmonad
  81
  82     , ((modm, xK_2), spawn "pavucontrol")
  83     , ((modm, xK_3), spawn "firefox")
  84
  85     , ((modm, xK_4), spawn "input-setup.sh")
  86
  87     -- we would really want to keep track of which workspace is darkened,
  88     -- and change things depending on where that workspace is
  89
  90       -- fedora vs debian ordering
  91 --    , ((modm, xK_w),  spawn "redshift.sh 0")
  92 --    , ((modm, xK_e),  spawn "redshift.sh 2")
  93 --    , ((modm, xK_r),  spawn "redshift.sh 1")
  94     , ((modm, xK_w),  spawn "/a/bin/redshift.sh 2")
  95     , ((modm, xK_e),  spawn "/a/bin/redshift.sh 1")
  96     , ((modm, xK_r),  spawn "/a/bin/redshift.sh 0")
  97
  98   -- Rotate through the available layout algorithms
  99     , ((modm,               xK_t ), sendMessage NextLayout)
 100
 101     , ((modm              , xK_Home     ), sendMessage ToggleStruts)
 102
 103 -- disabled default of cycling windows. instead use traditional stack based alt-tab behavior
 104     , ((modm,               xK_g   ), cycleRecentWindows [xK_Super_L,xK_Super_R] xK_g xK_Tab)
 105
 106     -- close focused window
 107     , ((modm , xK_c     ), kill)
 108
 109
 110     --  Reset the layouts on the current workspace to default
 111     , ((modm, xK_b ), setLayout $ XMonad.layoutHook conf)
 112
 113
 114 --    todo, this is broken. not sure what it is supposed to do
 115     , ((modm,               xK_Tab   ), cycleRecentWindows [xK_Super_L] xK_g xK_Tab)
 116
 117
 118     -- todo, make the pointer follow the window for these
 119
 120     -- fedora's order
 121 --    , ((modm              , xK_Delete), screenWorkspace 0 >>= flip whenJust (windows . W.shift))
 122 --    , ((modm              , xK_parenleft), screenWorkspace 2 >>= flip whenJust (windows . W.shift))
 123 --    , ((modm              , xK_parenright), screenWorkspace 1 >>= flip whenJust (windows . W.shift))
 124 -- debian's order
 125     , ((modm              , xK_Delete), screenWorkspace 2 >>= flip whenJust (windows . W.shift))
 126     , ((modm              , xK_parenleft), screenWorkspace 1 >>= flip whenJust (windows . W.shift))
 127     , ((modm              , xK_parenright), screenWorkspace 0 >>= flip whenJust (windows . W.shift))
 128
 129     -- Move focus to the next window
 130     , ((0,               xK_F8   ), windows W.focusDown)
 131
 132     , ((modm              , xK_6), windows $ W.greedyView "6")
 133
 134 -- Swap the focused window with the next window
 135     , ((modm, xK_asterisk     ), windows W.swapDown  )
 136
 137     -- Swap the focused window with the previous window
 138     , ((modm, xK_9     ), windows W.swapUp    )
 139
 140
 141 -- fedora's order
 142 --    , ((modm              , xK_u), screenWorkspace 0 >>= flip whenJust (windows . W.view))
 143 --    , ((modm              , xK_i), screenWorkspace 2 >>= flip whenJust (windows . W.view))
 144 --    , ((modm              , xK_o), screenWorkspace 1 >>= flip whenJust (windows . W.view))
 145 -- debian's order
 146     , ((modm              , xK_u), screenWorkspace 2 >>= flip whenJust (windows . W.view))
 147     , ((modm              , xK_i), screenWorkspace 1 >>= flip whenJust (windows . W.view))
 148     , ((modm              , xK_o), screenWorkspace 0 >>= flip whenJust (windows . W.view))
 149
 150
 151      -- Restart xmonad
 152     , ((modm              , xK_p), spawn "xmonad --recompile; xmonad --restart")
 153    -- Push window back into tiling
 154     , ((modm,               xK_h    ), withFocused $ windows . W.sink)
 155
 156     -- this working is dependent upon env vars set in distro-start
 157     , ((modm,               xK_j     ), spawn "emacsclient -c")
 158
 159
 160     -- launch a terminal
 161     , ((modm, xK_k), spawn $ XMonad.terminal conf)
 162
 163
 164     , ((modm, xK_l), spawn "dmenu_run")
 165
 166     -- Expand the master area
 167     , ((modm,               xK_n     ), sendMessage Expand)
 168
 169    -- Shrink the master area
 170     , ((modm,               xK_m    ), sendMessage Shrink)
 171
 172     -- Move focus to the master window
 173     , ((modm,               xK_y     ), windows W.focusMaster  )
 174
 175
 176
 177     -- Increment the number of windows in the master area
 178     , ((modm              , xK_comma ), sendMessage (IncMasterN 1))
 179
 180     -- Deincrement the number of windows in the master area
 181     , ((modm              , xK_period), sendMessage (IncMasterN (-1)))
 182
 183     -- Swap the focused window and the master window
 184     --, ((modm,               xK_Return), windows W.swapMaster)
 185 -- in recent versions, a different name works better
 186      , ((modm,               xK_Return), windows W.shiftMaster)
 187
 188     ]
 189     ++
 190
 191
 192
 193     -- open workspace, and send to workspace with same key plus control
 194     [((m .|. modm, k), windows $ f i)
 195          | (i, k) <- zip (XMonad.workspaces conf) [xK_f, xK_d, xK_s, xK_a, xK_z, xK_grave, xK_7, xK_0]
 196     , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
 197 --        fedora's default ordering of workspaces
 198  --         xK_s, xK_f, xK_d,
 199
 200
 201
 202
 203 myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
 204
 205     -- mod-button1, Set the window to floating mode and move by dragging
 206     [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w
 207                                        >> windows W.shiftMaster))
 208
 209     -- mod-button2, Raise the window to the top of the stack
 210     , ((modm, button2), (\w -> focus w >> windows W.shiftMaster))
 211
 212     -- mod-button3, Set the window to floating mode and resize by dragging
 213     , ((modm, button3), (\w -> focus w >> mouseResizeWindow w
 214                                        >> windows W.shiftMaster))
 215
 216     -- you may also bind events to the mouse scroll wheel (button4 and button5)
 217     ]
 218
 219 myLayout = desktopLayoutModifiers $ Full ||| Mirror tiled ||| tiled
 220   where
 221     -- default tiling algorithm partitions the screen into two panes
 222     tiled   = Tall nmaster delta ratio
 223
 224     -- The default number of windows in the master pane
 225     nmaster = 1
 226
 227     -- Default proportion of screen occupied by master pane
 228     ratio   = 1/2
 229
 230     -- Percent of screen to increment by when resizing panes
 231     delta   = 3/100