diff options
Diffstat (limited to 'xmonad/xmonad.hs')
| -rw-r--r-- | xmonad/xmonad.hs | 265 |
1 files changed, 265 insertions, 0 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs new file mode 100644 index 0000000..2974ed8 --- /dev/null +++ b/xmonad/xmonad.hs @@ -0,0 +1,265 @@ +-- +-- Miguel's Xmonad Config. +-- Last Update: 2018-05-29 +-- + +import XMonad +import XMonad.Actions.PhysicalScreens +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.ManageHelpers +import XMonad.Actions.SpawnOn +import XMonad.Layout.Gaps +import XMonad.Util.Run +import qualified XMonad.StackSet as W +import XMonad.Util.EZConfig +import XMonad.Hooks.SetWMName +import XMonad.Hooks.ICCCMFocus +import XMonad.Hooks.EwmhDesktops +import XMonad.Hooks.UrgencyHook +import XMonad.Util.NamedWindows +import XMonad.Util.WorkspaceCompare +import System.IO + +-- testing layouts +import XMonad.Layout.NoBorders +import XMonad.Layout.Accordion +import XMonad.Layout.Circle +import XMonad.Layout.Column +import XMonad.Layout.Grid +import XMonad.Layout.OneBig +import XMonad.Layout.Spiral +import XMonad.Layout.ThreeColumns +import XMonad.Layout.Tabbed + +configPath="/home/miguel/git/dotfiles/xmonad" + +-- DREAMS / TODO +-- notify-send replace/ always same workspace +-- bells for different apps: mutt, slrn , cmabber +-- xterm-float that will float with 80x20 chars +-- ... + +-- http://xmonad.org/manpage.html +-- xmona key-bindings : + +-- mod-shift-return - launch terminal +-- mod-p - launch dmenu +-- mod-shift-p - launch gmrun (!!?) +-- mod-shift-c - close focused +-- mod-space - rotate through layout algos +-- mod-shift-space - reset layout to def (!!?) +-- mod-tab / mod-shift-tab +-- mod-j/k (+shifted) +-- mod-l/h +-- mod-return +-- mod-t +-- mod-,/. +-- mod-`1234567890-=< (+shifted) +-- mod-qwer (+shifted) +-- mouse-1/2/3 + +-- http://pbrisbin.com/posts/using_notify_osd_for_xmonad_notifications/ +data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show) + +instance UrgencyHook LibNotifyUrgencyHook where + urgencyHook LibNotifyUrgencyHook w = do + name <- getName w + Just idx <- fmap (W.findTag w) $ gets windowset + safeSpawn "notify-send" [show name, "workspace " ++ idx] + +-- TODO: would still like fullscreen flash vids to not crop and leave xmobar drawn +-- TODO: remove the red border when doing fullscreen? tried adding 'smartBorders' to the layoutHook but that didn't work +-- TODO: hook in TopicSpaces, start specific apps on specific workspaces + +-- extra workspaces (used below) +--myExtraWorkspaces = +-- [ +-- (xK_quoteleft, "~★"), +-- (xK_1, "1⚒"), +-- (xK_2, "2⚁"), +-- (xK_3, "3⚂"), +-- (xK_4, "4⚃"), +-- (xK_5, "5⚄"), +-- (xK_6, "6✉"), +-- (xK_7, "7⚛"), +-- (xK_8, "8♬"), +-- (xK_9, "9☎"), +-- (xK_0, "0☭"), +-- (xK_minus, "-☹"), +-- (xK_equal, "+☺"), +-- (xK_BackSpace, "<☠") +-- ] + +-- | The available layouts. Note that each layout is separated by |||, which +-- denotes layout choice.||| Circle||| OneBig (3/4) (3/4) ||| spiral (1/1.61803) ||| tabbedBottom shrinkText def {fontName="xft:Sans-13:bold",decoHeight=60} +layout = tiled ||| Mirror tiled ||| noBorders Full ||| Grid ||| ThreeColMid 1 (3/100) (1/2) + where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 3/100 + + +myExtraWorkspaces = + [ + (xK_quoteleft, "~"), + (xK_1, "1"), + (xK_2, "2"), + (xK_3, "3"), + (xK_4, "4"), + (xK_5, "5"), + (xK_6, "6"), + (xK_7, "7"), + (xK_8, "8"), + (xK_9, "9"), + (xK_0, "0"), + (xK_minus, "-"), + (xK_equal, "+"), + (xK_BackSpace, "<") + ] + +main = do + xmproc <- spawnPipe $ "/usr/bin/xmobar "++configPath++"/xmobarrc" + xmonad + $ withUrgencyHook LibNotifyUrgencyHook + $ docks $ ewmh defaultConfig { + +-- workspaces = ["~","1","2","3","4","5","6","7","8","9","0"] ++ (map snd myExtraWorkspaces), + workspaces = (map snd myExtraWorkspaces), + borderWidth = 5, +-- focusedBorderColor = "#ff4444", + focusedBorderColor = "#0000ff", + normalBorderColor = "#777777", +-- workspaces = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n"] , + -- ++ map show [1,2,3,4], + +-- focusFollowsMouse = False, + modMask = mod4Mask, + --terminal = "urxvt", + terminal = "xterm -e tmux" +-- if you are using xmonad 0.9, you can avoid web flash videos getting cropped in fullscreen like so: +-- manageHook = ( isFullscreen --> doFullFloat ) <+> manageDocks <+> manageHook defaultConfig, + +-- (no longer needed in 0.10) + ,manageHook = composeAll [] + --[ className =? "XTerm" --> doFloat ] + + -- (className=? "qemu-system-i386" -->doShift "2") + -- <+> ( title=?"xterm-float" --> (doRectFloat$W.RationalRect 0 0 0.5 0.5) ) + -- <+> manageSpawn <+> manageDocks <+> manageHook defaultConfig + + ,layoutHook = avoidStruts $ layout +-- ,startupHook = do + +-- spawnOn "1" "xterm" + +-- spawnOn "6" "xterm -e irssi" +-- spawnOn "6" "xterm -e slrn" +-- spawnOn "6" "xterm -e mutt" + +-- spawnOn "9" "chromium --new-window https://people.live.com/ https://www.facebook.com/" + + --spawnOn "7" "chromium --new-window http://softwarefools.com/" +-- spawn "chromium --new-window http://softwarefools.com/" + +-- spawnOn "9" "skype" +-- spawnOn "9" "pidgin" + +-- spawnOn "9" "nm-applet" +-- spawnOn "9" "skype --dbpath=/home/miguel/.Skype_atene" + +-- setWMName "LG3D" + + --, + + ,logHook = + takeTopFocus >>( dynamicLogWithPP $ xmobarPP + { +-- ppOrder = reverse, + ppSort = mkWsSort $ getXineramaPhysicalWsCompare horizontalScreenOrderer, --getSortByXineramaPhysicalRule def, + ppOutput = hPutStrLn xmproc, + ppTitle = xmobarColor "green" "" . shorten 50, + ppCurrent = (\x -> "<fc=red>"++x++"</fc>"), + ppVisible = (\x -> "<fc=green>"++x++"</fc>"), + ppHidden = (\x -> "<fc=yellow>"++x++"</fc>"), + ppHiddenNoWindows = (\x -> "<fc=gray>"++x++"</fc>") + ,ppVisibleNoWindows = Just (\x-> "<fc=blue>"++x++"</fc>") + }) +} `additionalKeys` + ( + [ + ((mod4Mask, xK_F1 ), spawn "xterm -e vim ~/.xmonad/xmonad.hs") + ,((mod4Mask , xK_b ), sendMessage ToggleStruts) + + , ((mod4Mask, xK_m ), spawn "notify-send \"$( fetchmail )\"") + , ((mod4Mask, xK_c ), spawn "notify-send \"$(xclip -o)\"") + , ((mod4Mask, xK_p ), spawn "dmenu_run -nb '#000' -nf '#77aaff' -sb '#77aadd' -sf black -fn '-adobe-courier-medium-r-*-*-34-*-*-*-*-*-*-*'") + + -- mods-s screenshot window + -- , ((mod4Mask, xK_s ), spawn "xwd | convert - /tmp/screen.png && gimp /tmp/screen.png") + -- + -- mods-s spawn surf wrapper +-- , ((mod4Mask, xK_s ), spawn "surf") + + -- mods-f fullscreen screenshot + , ((mod4Mask, xK_f ), spawn "xwd -root | convert - /tmp/screen.png && gimp /tmp/screen.png") + + -- mod-g - go/ jump to window +-- , ((mod4Mask, xK_g ), spawn "wmctrl -a \"$(wmctrl -l | sed s/[^[:blank:]]*..[^[:blank:]]*.[^[:blank:]]*.// | dmenu)\"") + , ((mod4Mask, xK_v ), spawn "bash -l -c \"/home/miguel/opt/vim/bin/gvim -c \\\":cd `echo -e '/home/miguel/_int/dev/FoolOs\n/home/miguel/' | dmenu` \\\" \"") +-- , ((mod4Mask, xK_q ), spawn "notify-send \"mod-q disabled\"") + , ((mod4Mask, xK_x ), spawn "slock") + , ((mod4Mask .|. shiftMask, xK_x ), spawn "ans=$(zenity --list --text 'wanna restart?' --radiolist --column 'Pick' --column 'Opinion' TRUE '' FALSE 'sudo shutdown -r now' FALSE 'sudo shutdown -h now' ); $ans") + +-- , ((mod4Mask .|. shiftMask, xK_space ), spawn "xterm -e /home/miguel/bin/msrv") + + + -- window list + -- http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Prompt-Window.html + +-- , ((mod4Mask .|. shiftMask, xK_g ), gotoMenu) +-- , ((mod4Mask .|. shiftMask, xK_b ), bringMenu) + + ] + + -- https://wiki.haskell.org/Xmonad/Frequently_asked_questions / 3.3.3 Screens are in wrong order + + ++ + + [ + ((m .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust (windows . f)) -- Replace 'mod1Mask' with your mod key of choice. + | (key, sc) <- zip [xK_q,xK_w, xK_e, xK_r] [3,2,0,1] -- was [0..] *** change to match your screen order *** + , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] + ] + + -- + -- mod-[1..9], Switch to workspace N + -- mod-shift-[1..9], Move client to workspace N + -- +-- [((m .|. mod4Mask, k), windows $ f i) + -- | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_grave, xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0, xK_minus, xK_equal, xK_BackSpace] + -- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] + + ++ + + [ + ((mod4Mask, key), (windows $ W.greedyView ws)) + | (key,ws) <- myExtraWorkspaces + ] + + ++ + + [ + ((mod4Mask .|. shiftMask, key), (windows $ W.shift ws)) + | (key,ws) <- myExtraWorkspaces + ] + + ) |