tabularboonad/xmonad.hs

-- Welcome to Digit's Nice Minimal Tabular Boonad
-- takes some cues from clfswm and i3
-- Digit can usually be found in #witchlinux on irc.freenode.net
-- GNU GPL, yo!

-- comments should help keep things clear.  for example, "-- artistgamer" refers to the keybind layout suited to one hand on the mouse, using wsad instead of hjkl.  other comments are mostly self explanitory, or explained elsewhere.  some will point you to xmonad.org for more information.

-- this is still in development, but the general jist is in place.  there are still MANY features intended to be added at this stage.  - 2013-03-25
     
{-# LANGUAGE NoMonomorphismRestriction #-} -- for gridselect customisation
import XMonad  hiding ( (|||) )
--import XMonad.Core -- as XMonad hiding ( (|||) )
--    (workspaces,manageHook,keys,logHook,startupHook,borderWidth,mouseBindings
--    ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,focusFollowsMouse
--    ,handleEventHook,clickJustFocuses)
import XMonad.Layout.LayoutCombinators -- hiding ( (|||) )
import XMonad.Util.EZConfig -- allows all kinds, like automated emacs submaps
import XMonad.Actions.Submap -- allows emacs-like keys
import XMonad.Layout.Tabbed -- obvious integral for the TabularBoonad
--import XMonad.Layout.Grid -- yus
--import XMonad.Layout.HintedGrid --trying to get a better alt grid for more 4:3 ratio
import XMonad.Layout.GridVariants --2nd attempt at better grid layout. fingers crossed no more vert-letter-boxes.
import XMonad.Layout.OneBig -- yus
import qualified XMonad.StackSet as W -- does something important i'm sure.
import XMonad.Actions.CycleWS -- gets around
import XMonad.Layout.NoBorders -- prettier when fullscreen
import XMonad.Layout.MultiToggle -- allows fullscreen toggle, without Full layout
import XMonad.Layout.MultiToggle.Instances -- 
import XMonad.Actions.DynamicWorkspaces -- hrmm, is this where withNthWorkspace came from... curious.
import XMonad.Actions.CopyWindow(copy) --this too?
--sublayoutstuff http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Layout-SubLayouts.html
import XMonad.Layout.SubLayouts -- oh this makes it oh so sexy.
import qualified XMonad.Layout.WindowNavigation as WN -- hrmm kinda essential, it seems.
import XMonad.Layout.BoringWindows -- not so boring, proves handy.  make it so.
-- http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Actions-GridSelect.html
import XMonad.Actions.GridSelect -- adds that gui selection menu 2d map thingy
--import XMonad.StackSet as W -- scratchpad (already got, above)
import XMonad.ManageHook -- scratchpad
import XMonad.Util.NamedScratchpad -- scratchpad

main = xmonad $ defaultConfig
     { modMask = mod4Mask -- use tux instead of alt, which is M1(/mod1)
     , terminal = "rxvt-unicode" -- was "xterm"
     , normalBorderColor  = "#487855" --487855 mk1 of "inteligent green"
     , focusedBorderColor = "#ff6900"
     , keys = djtemacsKeys
     , layoutHook = djtslayoutHook
     , workspaces = djtWorktops
     , manageHook = namedScratchpadManageHook scratchpads
--     , XMonad.clickJustFocuses = djtsclickJustFocuses
     } -- `additionalKeysP` djtemacsKeys

--djtsclickJustFocuses :: Bool
--djtsclickJustFocuses = False

djtsTabConfig = defaultTheme { inactiveBorderColor = "#FF0000"
                                   , activeTextColor = "#00FF00"}

djtslayoutHook = smartBorders 
                 $ WN.windowNavigation 
                 $ subTabbed 
                 $ boringWindows 
                 $
                 mkToggle (MIRROR ?? NOBORDERS ?? FULL ?? EOT) (Grid (55/34) ||| OneBig (5/8) (3/5) ||| OneBig (3/4) (3/4))
                 
djtWorktops  = ["1","2","3","4","5","6","7","8","9"]

-- http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Actions-GridSelect.html
--gsconfig1 = defaultGSConfig { gs_cellheight = 19, gs_cellwidth = 144 }
gsconfig2 colorizer = (buildDefaultGSConfig colorizer) { gs_cellheight = 42, gs_cellwidth = 180 }

{-gsconfig3 = defaultGSConfig
   { gs_cellheight = 30
   , gs_cellwidth = 100
   , gs_navigate = myNavigation
   }
-}

-- http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Util-NamedScratchpad.html
scratchpads = [
-- run htop in term, top half, perfect fit.
    NS "ttyload" "xterm -e ttyload" (title =? "ttyload") 
        (customFloating $ W.RationalRect (0/1) (0/1) (1/1) (1/2)) ,
-- run htop in term, top half, perfect fit.
    NS "htop" "xterm -e htop" (title =? "htop") 
        (customFloating $ W.RationalRect (0/1) (0/1) (1/1) (1/2)) ,
-- run alsamixer in term, bottom half of screen space around edge. 
    NS "alsamixer" "xterm -e alsamixer" (title =? "alsamixer") 
        (customFloating $ W.RationalRect (1/100) (49/100) (98/100) (1/2)) ,
-- run emacs bottom half of screen space around edge. 
    NS "emacs" "emacs" (className =? "Emacs") 
        (customFloating $ W.RationalRect (1/100) (49/100) (98/100) (1/2)) ,
-- drop-down terminal    like yeahconsole/tilda/guake/yakuake
    NS "xterm" "xterm -e tmux" (title =? "tmux")
        (customFloating $ W.RationalRect (0/1) (0/1) (1/1) (1/2)) ,
-- drop-down terminalMK2
--    NS "tmux" "terminology -e tmux" (className =? "terminology")
--        (customFloating $ W.RationalRect (0/1) (0/1) (1/1) (1/2)) ,
-- pop bigbrowser
    NS "firefox" "firefox" (className =? "Firefox")
        (customFloating $ W.RationalRect (0/1) (0/1) (1/1) (1/2)) ,
-- pop-in terminal chat    like above, but one for chat.    
    NS "chat" "iirc" (title =? "chat")
        (customFloating $ W.RationalRect (0/1) (0/1) (1/2) (1/2))
    ] where role = stringProperty "WM_WINDOW_ROLE"

djtemacsKeys = \c -> mkKeymap c $
     [ ("M-S-<Return>", spawn $ terminal c) --but why bother with yeahconsole or scratchpads ;)
--some conventional focus changing keybinds are still here, but de-emphasised, as focus would nominally be changed with mouse using this setup
--     , ("M-S-<Space>", setLayout djtslayoutHook) -- %!  Reset the layouts on the current workspace to default
     , ("M-S-<Space>", refresh) -- incase stuff gets messy. ^and cos i cant get reset to work.  tried ways.
--     , ("M-x o", spawn "xteddy")  -- type mod+x then o.   y it no work?
     , ("M-<F11>", sendMessage $ Toggle FULL) --fullscreen toggle.  yus.
     , ("M-S-<F11>", sendMessage $ Toggle MIRROR) --mirror toggle.  yus yus.
     , ("M-g", sendMessage $ Toggle FULL) --artistgamer --fullscreen toggle. yus.
     , ("M-S-g", sendMessage $ Toggle MIRROR) --artistgamer --mirror toggle.  yus yus.
     , ("M-<F4>", kill) --close a window
     , ("M-<F6>", spawn "xkill") -- no, srsly, close it! (click window to kill)
     , ("M-q", spawn "xmonad --recompile && xmonad --restart") --try config changes
--     , ("M-S-q", io (exitWith ExitSuccess)) --meh, dont need, myt slip n press.
     , ("M-C-<Tab>", goToSelected defaultGSConfig) --artistgamer gridselect open windows
--     , ("M-r", spawn "dmenu_run")
     , ("M-r", spawn "dmenu-bind.sh")  
--     , ("M-r", spawn "~/.config/dmenu/dmenu-bind.sh") --artistgamer
     , ("M-C-r", spawnSelected defaultGSConfig ["gimp","mypaint","inkscape","blender","freecad","iceape","lmms","hydrogen","audacity","pitivi","synfigstudio","minitube","clementine","transmission-gtk","gcolor2","fontforge","openshot","pitivi","avidemux","aemenu", "smplayer2", "vlc"]) --artistgamer gridselect launcher
--     , ("M-<F2>", spawn "~/.config/dmenu/dmenu-bind.sh") --oldskool
--     , ("M-A-r", spawn "gmrun") --artistgamer
--     , ("M-<F3>", spawn "gmrun") --oldskool
--     , ("<Menu>", spawn "8menu")
--     , ("M-<Menu>", spawn "dmenu-bind.sh")
--     , ("M-x", spawn "aemenu") --artistgamer 
--     , ("M-x", spawn "qmenu") --artistgamer -- points to script starting a menu
     , ("M-<Space>", sendMessage NextLayout) --cycle between layouts
     , ("M-e", windows W.focusUp) --artistgamer
     , ("M-d", windows W.focusDown) --artistgamer
     , ("M-C-s", sendMessage $ pullGroup WN.L) --sublayout --artistgamer --merge left to tab stack
     , ("M-C-f", sendMessage $ pullGroup WN.R) --sublayout --artistgamer --merge right to tab stack
     , ("M-C-e", sendMessage $ pullGroup WN.U) --sublayout --artistgamer --merge up to tab stack
     , ("M-C-d", sendMessage $ pullGroup WN.D) --sublayout --artistgamer --merge down to tab stack
     , ("S-M-e", windows W.swapUp) --artstgamer
     , ("S-M-d", windows W.swapDown) --artstgamer
     , ("M-w", windows W.swapMaster) -- move focused window to master pane --exhibit/enter     
     , ("M-C-w", withFocused (sendMessage . UnMerge)) --sublayout --artistgamer --exit/escape
     , ("M-C-S-w", withFocused (sendMessage . MergeAll)) --sublayout --artstgamer --entanglement
     , ("M-c", prevWS) --artstgamer previous workspace
     , ("M-v", nextWS) --artstgamer next workspace
     , ("S-M-c", shiftToPrev) --artstgamer move focussed window to previous workspace
     , ("S-M-v", shiftToNext) --artstgamer move focussed window to next workspace
     , ("M-<Tab>", windows W.focusDown) -- focus next window --or use mouse
     , ("M-S-<Tab>", windows W.focusUp  ) -- focus previous window --or use mouse
     , ("M-t", withFocused $ windows . W.sink) -- re-tile floated window
--     , ("M-C-<Period>", onGroup W.focusUp') --sublayout --not sure wtf anymore
--     , ("M-C-<Comma>", onGroup W.focusDown') --sublayout --not sure wtf anymore
       -- and the boring windows:, ((modm, xK_j), focusDown) -- wtf to implement?
       -- and the boring windows:, ((modm, xK_k), focusUp) -- wtf to implement?
--     , ("M-S-<space>", setLayout $ XMonad.layoutHook conf) --rly need dat?
-- namedscratchpad keybinds     
     , ("<F12>", namedScratchpadAction scratchpads "xterm") -- xmoake scratchpad
--     , ("M-<F12>", namedScratchpadAction scratchpads "") --mk2
     , ("M-<F1>", namedScratchpadAction scratchpads "emacs") --emacs
     , ("M-<F2>", namedScratchpadAction scratchpads "firefox") --firefox
     , ("M-<F7>", namedScratchpadAction scratchpads "ttyload") -- scratchpad 
     , ("M-<F8>", namedScratchpadAction scratchpads "htop") -- scratchpad 
     , ("M-<F9>", namedScratchpadAction scratchpads "alsamixer") -- scratchpad 
     , ("M-<F11>", namedScratchpadAction scratchpads "iirc")  --scratchpad
     ]
     ++
     -- (2012-09-29 15:14:37) dr_bs: 
     zip (map (\x -> fst x++[snd x]) ((zip (repeat "M-") (['1'..'9'])))) (map (withNthWorkspace W.greedyView) [0..])

     ++
     -- so i extrapolate from dr_bs's above, and from 
     -- http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Actions-DynamicWorkspaces.html
     zip (map (\x -> fst x++[snd x]) ((zip (repeat "M-S-") (['1'..'9'])))) (map (withNthWorkspace W.shift) [0..])