diff --git a/lib/Solarized.hs b/lib/Solarized.hs index 909f068..616b0c4 100755 --- a/lib/Solarized.hs +++ b/lib/Solarized.hs @@ -15,6 +15,11 @@ module Solarized , blue , cyan , green +, background +, backgroundhl +, foreground +, foregroundhl +, foregroundll ) where base03 = "#002b36" @@ -34,3 +39,8 @@ blue = "#268bd2" cyan = "#3aa198" green = "#859900" +foregroundhl = base1 +foreground = base0 +foregroundll = base01 +backgroundhl = base02 +background = base03 diff --git a/xmobarrc b/xmobarrc new file mode 100644 index 0000000..639f827 --- /dev/null +++ b/xmobarrc @@ -0,0 +1,37 @@ +Config { + font = "xft:Fira Code:style=Regular:size=9" + , template = " %StdinReader%}{%battery% • %date% " + , commands = + [ Run StdinReader + , Run Date "%F %a • %T" "date" 10 + , Run Battery [ "--template", " %/ • • W" + , "-L", "25" + , "-H", "35" + , "-l", "#FF0000" + , "-n", "#FFFF00" + , "--" + , "-O", "ac on" + , "-i", "ac idle" + , "-o", "ac off" + ] 50 + ] + , bgColor = "#002b36" + , fgColor = "#839496" + , border = BottomB + , borderWidth = 5 + , borderColor = "#859900" + , position = TopSize L 100 29 + , textOffset = 16 + , additionalFonts = [ "xft:DejaVu Sans Mono:style=Regular:size=9" ] +-- , sepChar +-- , alignSep +-- , iconOffset +-- , allDesktops +-- , overrideRedirect +-- , pickBroadest +-- , hideOnStart +-- , lowerOnStart +-- , persistent +-- , iconRoot +-- , alpha +} diff --git a/xmonad.hs b/xmonad.hs index d64efef..1d85316 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -1,257 +1,508 @@ -import Codec.Binary.UTF8.String -import Graphics.X11.ExtraTypes.XF86 -import LemonBar -import qualified Solarized as S -import qualified Data.Map as M -import qualified XMonad.StackSet as W +-- My xmonad configuration, based on the example.hs of the xmonad project +-- including best practises. +-- https://github.com/xmonad/xmonad-contrib/blob/master/XMonad/Config/Example.hs + +{-# LANGUAGE FlexibleContexts #-} + +module Main (main) where + +import Data.Ratio ((%)) +import Data.List (sort, isSuffixOf) +import Text.EditDistance import System.Exit -import System.IO -import Text.Printf import XMonad import XMonad.Actions.CycleWS import XMonad.Config.Desktop import XMonad.Hooks.DynamicLog -import XMonad.Hooks.EwmhDesktops -import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers -import XMonad.Layout.IndependentScreens -import XMonad.Layout.LayoutCombinators hiding ( (|||) ) -import XMonad.Layout.Reflect +import XMonad.Layout.NoBorders (noBorders, smartBorders) +import XMonad.Layout.ResizableTile (ResizableTall(..)) +import XMonad.Layout.Spacing +import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts) import XMonad.Prompt -import XMonad.Prompt.Shell(shellPrompt) -import XMonad.Util.Font -import XMonad.Util.Loggers --- import XMonad.Util.Run +import XMonad.Prompt.ConfirmPrompt +import XMonad.Prompt.Shell +import XMonad.Util.EZConfig +import qualified Solarized as S +import qualified XMonad.StackSet as W -main = do - spawn bar - xmonad $ docks $ ewmh desktopConfig - { manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig - , layoutHook = myLayout - , logHook = maLogouk - , modMask = mod4Mask -- Rebind to Logo key - , workspaces = ["●", "◕", "◑", "◔", "◯", "◐", "◒", "◓", "☦"] - , borderWidth = 0 - , keys = myKeys - , terminal = "/run/current-system/sw/bin/kitty" - , handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook +-- Contructors imports +import XMonad.Core (XConfig) +import XMonad.Hooks.ManageDocks (AvoidStruts) +import XMonad.Layout.LayoutModifier (ModifiedLayout) + +wkspcs :: [String] +-------- ["●", "◕", "◑", "◔", "◯", "◐", "◒", "◓", "☦", "λ"] +wkspcs = ["α", "β", "γ", "δ", "ε", "ζ", "η", "θ", "ι", "κ"] + +barPP = def + { ppCurrent = xmobarColor' S.orange + , ppVisible = xmobarColor' S.yellow -- other screen + , ppHidden = xmobarColor' S.foreground -- other workspaces with windows + , ppHiddenNoWindows = xmobarColor' S.foregroundll -- other workspaces + , ppSep = " " + , ppLayout = printLayout + , ppTitle = printTitle + } + where xmobarColor' fg = xmobarColor fg S.base03 + + printLayout s | "Mirror ResizableTall" `isSuffixOf` s = "[ — ]" + printLayout s | "ResizableTall" `isSuffixOf` s = "[ | ]" + printLayout "Full" = "[ F ]" + printLayout l = "[" ++ l ++ "]" + + printTitle t = let t' = shorten 120 t + in xmobarColor' S.foregroundll "« " + ++ xmobarColor' S.foregroundhl t' + ++ xmobarColor' S.foregroundll " »" + +bar :: LayoutClass l Window => XConfig l -> IO (XConfig (ModifiedLayout AvoidStruts l)) +bar conf = statusBar "xmobar /home/eeva/.xmonad/xmobarrc" barPP hideBarsKey conf + where hideBarsKey XConfig{modMask = modm} = (modm, xK_b) + +myConfig = desktopConfig + { modMask = mod4Mask -- Use the "Win" key for the mod key + , manageHook = myManageHook <+> manageHook desktopConfig + , layoutHook = desktopLayoutModifiers $ myLayouts + , logHook = dynamicLogString def >>= xmonadPropLog + , terminal = "/run/current-system/sw/bin/kitty" + , workspaces = wkspcs + , normalBorderColor = S.base03 + , focusedBorderColor = S.violet + , borderWidth = 5 } -sym "Tall" = "|" -sym "Mirror Tall" = "-" -sym "Full" = "F" -sym _ = "◓" + `additionalKeysP` -- Add some extra key bindings: + [ ("M-S-q", confirmPrompt myXPConfig "exit" (io exitSuccess)) + , ("", spawn "/run/current-system/sw/bin/xbacklight -10") + , ("", spawn "/run/current-system/sw/bin/xbacklight +10") + , ("M-", kill) + , ("M-", windows W.focusDown) + , ("M-", sendMessage (Toggle "Full")) + , ("M-", prevWS) + , ("M-", nextWS) + , ("M-", toggleWS) + , ("M-", windows W.focusUp) + , ("M-S-", spawn "/run/current-system/sw/bin/i3lock-fancy -g -p") + , ("M-S-", shiftToPrev >> prevWS) + , ("M-S-", shiftToNext >> nextWS) + , ("M-p", fuzzyPrompt myXPConfig) + , ("-b", sendMessage (Toggle "Full")) + ] -maLogouk = dynamicLogWithPP $ defaultPP - { ppOutput = printToFile - , ppCurrent = LemonBar.color S.orange S.base03 . LemonBar.underline -- . sym - , ppVisible = LemonBar.color S.yellow S.base03 . LemonBar.underline -- . sym - , ppHidden = LemonBar.color S.base2 S.base03 . LemonBar.underline -- . sym - , ppHiddenNoWindows = LemonBar.color S.base01 S.base03 -- . sym - , ppLayout = sym - , ppTitle = LemonBar.fColor S.violet . shorten 70 - , ppSep = " " + `additionalKeys`-- Add some more (automatic) key bindings: + [ ((mod4Mask .|. mask, key), windows $ actionWith tag) + | (tag, key) <- zip wkspcs [ xK_F1 .. ] + , (mask, actionWith) <- zip [ 0, shiftMask ] [ W.view, W.shift ] ] + +myLayouts = smartBorders $ toggleLayouts (noBorders Full) others + where + resizableTall = ResizableTall 1 (2 % 1) (1/2) [] + others = smartSpacingWithEdge 5 $ resizableTall ||| (Mirror resizableTall) + +myXPConfig = def + { position = Top + , alwaysHighlight = True + , bgColor = S.magenta + , bgHLight = S.base0 + , borderColor = S.magenta + , defaultText = "" + , fgColor = S.base02 + , fgHLight = S.base03 + , font = "xft:Fira Code:style=Regular:size=9" + , height = 24 + , promptBorderWidth = 5 } -printToFile :: String -> IO () -printToFile s = do - h <- openFile "/tmp/monitors/xmonad" WriteMode - hPutStrLn h $ decodeString s - -- xxxxxxxxxxxx - -- v----------------| - -- Hacky hack to fix the broken fix of dynamicLogWithPP - hClose h +-- Use the `xprop' tool to get the info you need for these matches. +-- For className, use the second value that xprop gives you. +myManageHook = composeOne + [ className =? "mpv" -?> doFullFloat <+> (doShift $ last wkspcs) + , className =? "Pavucontrol" -?> doShift $ wkspcs !! 7 + , className =? "qutebrowser" -?> doShift $ wkspcs !! 5 + , isDialog -?> doCenterFloat -myManageHook = composeAll - [ className =? "float" --> doCenterFloat - , manageDocks ] + -- Move transient windows to their parent: + , transience + ] ------------------------------------------------------------------------- --- LogHook. Dynamically outputs logs nicely formatted for dzen2 --- --- myLogHook h = dynamicLogWithPP $ defaultPP { --- ppCurrent = dzenColor "#cb4b16" "#eee8d5", --- ppVisible = dzenColor "#657b83" "#eee8d5", --- ppHiddenNoWindows = dzenColor "#93a1a1" "#eee8d5", --- ppLayout = dzenColor "#6c71c4" "#eee8d5", --- ppTitle = (dzenColor "#cb4b16" "") . (fixedWidth 256), --- ppSep = " ", --- ppWsSep = " ", --- ppOutput = hPutStrLn h --- } --- where --- fixedWidth n l = take (n+5) $ l ++ (cycle ".") +-- Finally: +main = xmonad =<< bar myConfig ------------------------------------------------------------------------- --- StatusBar. Call lemonbar -bar = printf - "pkill lemonbar; /home/eeva/bin/mkstatus.sh | \ - \ lemonbar -g 1919x24+0+0 \ - \ -f '%s' \ - \ -f '%s' \ - \ -u %d -B '%s' -F '%s' -U '%s'" - --"tewi:style=Regular:antialias=false:autohint=false" - "Iosevka:size=10" - "DejaVu Sans Mono:size=10" - (2 :: Int) - S.base03 - S.base0 - S.violet -myLayout = (avoidStruts $ tiled ||| Mirror tiled) ||| Full - where - tiled = Tall 1 (3/100) (1/2) +-- Slightly taken from +-- https://mail.haskell.org/pipermail/xmonad/2010-October/010671.html +data FuzzySpawn = FuzzySpawn deriving (Read, Show) +instance XPrompt FuzzySpawn where showXPrompt _ = "Run: " +fuzzyPrompt config = do + cmds <- io getCommands + let compl s + | null s = [] + | otherwise = let weight c = levenshteinDistance defaultEditCosts s c + in map snd $ take 20 $ sort $ map (\c -> (weight c,c)) cmds + mkXPrompt FuzzySpawn config (return . compl) spawn --- Prompt config -myXPConfig = defaultXPConfig { - position = Top, - promptBorderWidth = 5, - font = "xft:tewi:style=Regular:antialias=false:autohint=false", - height = 24, - borderColor = S.base03, - bgHLight = S.base02, - fgHLight = S.magenta, - bgColor = S.base03, - fgColor = S.base0, - defaultText = "" -} +--- import qualified Data.Map as Map +--- import XMonad +--- import XMonad.Util.EZConfig +--- import XMonad.Layout.Tabbed +--- import XMonad.Hooks.ManageDocks +--- import XMonad.Hooks.DynamicLog +--- import XMonad.Layout.NoBorders +--- import XMonad.Actions.SwapWorkspaces +--- import XMonad.Prompt +--- import XMonad.Prompt.Shell +--- +--- -- Solarized colours. +--- activeBackColor = "#073642" +--- --activeForeColor = "#93A1A1" -- base1 +--- activeForeColor = "#EEE8D5" -- base2 +--- passiveForeColor = "#2AA198" +--- +--- yoTabbed = tabbed shrinkText $ def +--- { fontName = "xft:Hack:size=10" +--- , activeBorderColor = activeForeColor +--- , activeTextColor = activeForeColor +--- , activeColor = activeBackColor +--- , inactiveBorderColor = "#555555" +--- , inactiveTextColor = "#555555" +--- , inactiveColor = "#000000" +--- } +--- simpleTall = Tall 1 (1/100) (1/2) +--- yoLayouts = smartBorders $ (Mirror simpleTall ||| simpleTall ||| yoTabbed) +--- +--- yoPromptXP = def +--- { bgColor = activeBackColor +--- , borderColor = activeForeColor +--- , fgColor = activeForeColor +--- , fgHLight = "#073642" +--- , bgHLight = "#859900" +--- , promptKeymap = emacsLikeXPKeymap +--- , font = "xft:Hack:size=12" +--- } +--- +--- yoConfig = def +--- { terminal = "termite" +--- , modMask = mod4Mask +--- , focusedBorderColor = activeForeColor +--- , layoutHook = yoLayouts +--- } +--- `additionalKeysP` +--- [ ( "M-", spawn $ "emacs") +--- +--- , ("", spawn "pamixer -t") +--- , ("M-" , spawn "pamixer -d 1") +--- , ("M-" , spawn "pamixer -i 1") +--- +--- , ("M-" , spawn "xbacklight -dec 5") +--- , ("M-" , spawn "xbacklight -inc 5") +--- +--- , ("M-" , spawn "setxkbmap dvorak") +--- , ("M-", spawn "setxkbmap fr" ) +--- , ("M-", spawn "setxkbmap ru" ) +--- , ("M-", spawn "setxkbmap ro" ) +--- +--- , ("M-C-", swapTo Next) +--- , ("M-C-" , swapTo Prev) +--- +--- , ("M-r", shellPrompt yoPromptXP) +--- ] +--- `removeKeysP` +--- [ "M-q" ] +--- +--- yoXmobarPP = def +--- { ppCurrent = xmobarColor' activeForeColor . activePad +--- , ppVisible = xmobarColor' activeForeColor -- other screen +--- , ppHidden = xmobarColor' passiveForeColor -- other workspaces with windows +--- , ppHiddenNoWindows = xmobarColor' activeBackColor -- other workspaces +--- , ppSep = " " +--- , ppLayout = printLayout +--- , ppTitle = printTitle +--- } +--- where xmobarColor' fg = xmobarColor fg "#000000" +--- +--- printLayout "Tall" = "[|]" +--- printLayout "Mirror Tall" = "[—]" +--- printLayout "Tabbed Simplest" = "[□]" +--- printLayout l = "[" ++ l ++ "]" +--- +--- printTitle t = let t' = shorten 120 t +--- in xmobarColor' passiveForeColor "[ " +--- ++ xmobarColor' passiveForeColor t' +--- ++ xmobarColor' passiveForeColor " ]" +--- +--- activePad s = xmobarColor' bracketColor " >" +--- ++ s +--- ++ xmobarColor' bracketColor "< " +--- bracketColor = "#B58900" +--- +--- xmobarCmd = "xmobar /home/scolobb/.xmonad/xmobarrc" +--- +--- main = do +--- spawn "stalonetray --geometry 5x1+1000 --icon-size 20 -bg '#000000'" +--- spawn "nm-applet" +--- spawn "seafile-applet" +--- spawn "syndaemon" +--- xmonad =<< statusBar xmobarCmd yoXmobarPP hideBarsKey yoConfig +--- where hideBarsKey XConfig{modMask = modm} = (modm, xK_b) ------------------------------------------------------------------------- --- Key bindings. Add, modify or remove key bindings here. --- -myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ - [ - -- launch dmenu - --((modm, xK_p), spawn "dmenu_run -b -l 3") - -- launch prompt - ((modm, xK_p), shellPrompt myXPConfig) - -- close focused window - , ((modm, xK_Delete), kill) - -- Rotate through the available layout algorithms - , ((modm, xK_space ), sendMessage NextLayout) - --, ((modm .|. shiftMask xK_Tab ), sendMessage PreviousLayout) - - -- Reset the layouts on the current workspace to default - , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) - - -- Resize viewed windows to the correct size - , ((modm, xK_n ), refresh) - - -- Move focus to the master window - , ((modm, xK_m ), windows W.focusMaster ) - - -- Swap the focused window and the master window - , ((modm, xK_BackSpace), windows W.swapMaster) - - -- Move focus to the next window - , ((modm, xK_j ), windows W.focusDown) - , ((modm, xK_Down ), windows W.focusDown) - - -- Move focus to the previous window - , ((modm, xK_k ), windows W.focusUp ) - , ((modm, xK_Up ), windows W.focusUp) - - -- Swap the focused window with the next window - , ((modm .|. shiftMask, xK_j ), windows W.swapDown ) - , ((modm .|. shiftMask, xK_Down ), windows W.swapDown ) - - -- Swap the focused window with the previous window - , ((modm .|. shiftMask, xK_k ), windows W.swapUp ) - , ((modm .|. shiftMask, xK_Up ), windows W.swapUp ) - - -- Shrink the master area - , ((modm, xK_h ), sendMessage Shrink) - - -- Expand the master area - , ((modm, xK_l ), sendMessage Expand) - - -- Move to next Workspace - , ((modm, xK_Right ), nextWS) - - -- Move to previous Workspace - , ((modm, xK_Left ), prevWS) - - -- Move focused window to next Workspace - , ((modm .|. shiftMask, xK_Right ), shiftToNext >> nextWS) - - -- Move focused window to previous Workspace - , ((modm .|. shiftMask, xK_Left ), shiftToPrev >> prevWS) - - -- Cycle between windows - , ((modm , xK_Tab ), toggleWS) - - -- Push window back into tiling - , ((modm, xK_t ), withFocused $ windows . W.sink) - - -- Increment the number of windows in the master area - , ((modm , xK_comma ), sendMessage (IncMasterN 1)) - - -- Deincrement the number of windows in the master area - , ((modm , xK_period), sendMessage (IncMasterN (-1))) - - -- close focused window - , ((modm .|. shiftMask, xK_c ), kill) - - -- Swap the focused window and the master window - , ((modm, xK_Return), windows W.swapMaster) - - -- run my terminal - , ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) - - -- lock my session - --, ((modm .|. shiftMask, xK_Delete), spawn "/usr/bin/sxlock -f \"-*-ubuntu mono-*-r-*-*-*-*-*-*-*-*-*-*\"") - , ((modm .|. shiftMask, xK_Delete), spawn "/run/current-system/sw/bin/i3lock-fancy -g -p") - - -- quit xmonad - , ((modm .|. shiftMask, xK_q), io (exitWith ExitSuccess)) - - -- Raise volume (XF86XK_AudioRaiseVolume) - , ((0 , xF86XK_AudioRaiseVolume), spawn "/home/eeva/prefix/bin/volume up") - - -- Lower volume (XF86XK_AudioLowerVolume) - , ((0 , xF86XK_AudioLowerVolume), spawn "/home/eeva/prefix/bin/volume down") - - -- Mute volume (xF86XK_AudioMute) - , ((0 , xF86XK_AudioMute), spawn "/home/eeva/prefix/bin/volume toggle") - - -- Playlist play (xK_F7) - , ((0 , xK_F7), spawn "/usr/bin/notify-send \"Current song\" \"$(mpc -h ~/.config/mpd/mpd.socket | head -n 1)\"") - - -- Playlist play (xK_F8) - , ((0 , xK_F8), spawn "/home/eeva/prefix/bin/playlist toggle") - - -- Playlist stop (xK_F9) - , ((0 , xK_F9), spawn "/home/eeva/prefix/bin/playlist stop") - - -- Launch App (XF86XK_Launch1) - , ((0 , xF86XK_Launch1), spawn "/usr/bin/firefox") - - -- Adjust Brightness up (xF86XK_MonBrightnessUp) - , ((0 , xF86XK_MonBrightnessUp), spawn "/run/current-system/sw/bin/xbacklight +10") - - -- Adjust Brightness down (xF86XK_MonBrightnessDown) - , ((0 , xF86XK_MonBrightnessDown), spawn "/run/current-system/sw/bin/xbacklight -10") - ] - ++ - - -- - -- mod-[1..9], Switch to workspace N - -- - -- mod-[1..9], Switch to workspace N - -- mod-shift-[1..9], Move client to workspace N - -- - [((m .|. modm, k), windows $ f i) - | (i, k) <- zip (XMonad.workspaces conf) [xK_F1 .. xK_F9] - , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] - ++ - - -- - -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 - -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 - -- - [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) - | (key, sc) <- zip [xK_z, xK_e, xK_r] [0..] - , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] +--- import Codec.Binary.UTF8.String +--- import Graphics.X11.ExtraTypes.XF86 +--- import LemonBar +--- import qualified Solarized as S +--- import qualified Data.Map as M +--- import qualified XMonad.StackSet as W +--- import System.Exit +--- import System.IO +--- import Text.Printf +--- import XMonad +--- import XMonad.Actions.CycleWS +--- import XMonad.Config.Desktop +--- import XMonad.Hooks.DynamicLog +--- import XMonad.Hooks.EwmhDesktops +--- import XMonad.Hooks.ManageDocks +--- import XMonad.Hooks.ManageHelpers +--- import XMonad.Layout.IndependentScreens +--- import XMonad.Layout.LayoutCombinators hiding ( (|||) ) +--- import XMonad.Layout.Reflect +--- import XMonad.Prompt +--- import XMonad.Prompt.Shell(shellPrompt) +--- import XMonad.Util.Font +--- import XMonad.Util.Loggers +--- -- import XMonad.Util.Run +--- +--- main = do +--- spawn bar +--- xmonad $ docks $ ewmh desktopConfig +--- { manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig +--- , layoutHook = myLayout +--- , logHook = maLogouk +--- , modMask = mod4Mask -- Rebind to Logo key +--- , workspaces = ["●", "◕", "◑", "◔", "◯", "◐", "◒", "◓", "☦"] +--- , borderWidth = 0 +--- , keys = myKeys +--- , terminal = "/run/current-system/sw/bin/kitty" +--- , handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook +--- } +--- +--- sym "Tall" = "|" +--- sym "Mirror Tall" = "-" +--- sym "Full" = "F" +--- sym _ = "◓" +--- +--- maLogouk = dynamicLogWithPP $ defaultPP +--- { ppOutput = printToFile +--- , ppCurrent = LemonBar.color S.orange S.base03 . LemonBar.underline -- . sym +--- , ppVisible = LemonBar.color S.yellow S.base03 . LemonBar.underline -- . sym +--- , ppHidden = LemonBar.color S.base2 S.base03 . LemonBar.underline -- . sym +--- , ppHiddenNoWindows = LemonBar.color S.base01 S.base03 -- . sym +--- , ppLayout = sym +--- , ppTitle = LemonBar.fColor S.violet . shorten 70 +--- , ppSep = " " +--- } +--- +--- printToFile :: String -> IO () +--- printToFile s = do +--- h <- openFile "/tmp/monitors/xmonad" WriteMode +--- hPutStrLn h $ decodeString s +--- -- xxxxxxxxxxxx +--- -- v----------------| +--- -- Hacky hack to fix the broken fix of dynamicLogWithPP +--- hClose h +--- +--- myManageHook = composeAll +--- [ className =? "float" --> doCenterFloat +--- , manageDocks ] +--- +--- ------------------------------------------------------------------------ +--- -- LogHook. Dynamically outputs logs nicely formatted for dzen2 +--- -- +--- -- myLogHook h = dynamicLogWithPP $ defaultPP { +--- -- ppCurrent = dzenColor "#cb4b16" "#eee8d5", +--- -- ppVisible = dzenColor "#657b83" "#eee8d5", +--- -- ppHiddenNoWindows = dzenColor "#93a1a1" "#eee8d5", +--- -- ppLayout = dzenColor "#6c71c4" "#eee8d5", +--- -- ppTitle = (dzenColor "#cb4b16" "") . (fixedWidth 256), +--- -- ppSep = " ", +--- -- ppWsSep = " ", +--- -- ppOutput = hPutStrLn h +--- -- } +--- -- where +--- -- fixedWidth n l = take (n+5) $ l ++ (cycle ".") +--- +--- +--- ------------------------------------------------------------------------ +--- -- StatusBar. Call lemonbar +--- bar = printf +--- "pkill lemonbar; /home/eeva/bin/mkstatus.sh | \ +--- \ lemonbar -g 1919x24+0+0 \ +--- \ -f '%s' \ +--- \ -f '%s' \ +--- \ -u %d -B '%s' -F '%s' -U '%s'" +--- --"tewi:style=Regular:antialias=false:autohint=false" +--- "Iosevka:size=10" +--- "DejaVu Sans Mono:size=10" +--- (2 :: Int) +--- S.base03 +--- S.base0 +--- S.violet +--- +--- myLayout = (avoidStruts $ tiled ||| Mirror tiled) ||| Full +--- where +--- tiled = Tall 1 (3/100) (1/2) +--- +--- -- Prompt config +--- myXPConfig = defaultXPConfig { +--- position = Top, +--- promptBorderWidth = 5, +--- font = "xft:tewi:style=Regular:antialias=false:autohint=false", +--- height = 24, +--- borderColor = S.base03, +--- bgHLight = S.base02, +--- fgHLight = S.magenta, +--- bgColor = S.base03, +--- fgColor = S.base0, +--- defaultText = "" +--- } +--- +--- ------------------------------------------------------------------------ +--- -- Key bindings. Add, modify or remove key bindings here. +--- -- +--- myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ +--- [ +--- -- launch dmenu +--- --((modm, xK_p), spawn "dmenu_run -b -l 3") +--- -- launch prompt +--- ((modm, xK_p), shellPrompt myXPConfig) +--- +--- -- close focused window +--- , ((modm, xK_Delete), kill) +--- +--- -- Rotate through the available layout algorithms +--- , ((modm, xK_space ), sendMessage NextLayout) +--- --, ((modm .|. shiftMask xK_Tab ), sendMessage PreviousLayout) +--- +--- -- Reset the layouts on the current workspace to default +--- , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) +--- +--- -- Resize viewed windows to the correct size +--- , ((modm, xK_n ), refresh) +--- +--- -- Move focus to the master window +--- , ((modm, xK_m ), windows W.focusMaster ) +--- +--- -- Swap the focused window and the master window +--- , ((modm, xK_BackSpace), windows W.swapMaster) +--- +--- -- Move focus to the next window +--- , ((modm, xK_j ), windows W.focusDown) +--- , ((modm, xK_Down ), windows W.focusDown) +--- +--- -- Move focus to the previous window +--- , ((modm, xK_k ), windows W.focusUp ) +--- , ((modm, xK_Up ), windows W.focusUp) +--- +--- -- Swap the focused window with the next window +--- , ((modm .|. shiftMask, xK_j ), windows W.swapDown ) +--- , ((modm .|. shiftMask, xK_Down ), windows W.swapDown ) +--- +--- -- Swap the focused window with the previous window +--- , ((modm .|. shiftMask, xK_k ), windows W.swapUp ) +--- , ((modm .|. shiftMask, xK_Up ), windows W.swapUp ) +--- +--- -- Shrink the master area +--- , ((modm, xK_h ), sendMessage Shrink) +--- +--- -- Expand the master area +--- , ((modm, xK_l ), sendMessage Expand) +--- +--- -- Move to next Workspace +--- , ((modm, xK_Right ), nextWS) +--- +--- -- Move to previous Workspace +--- , ((modm, xK_Left ), prevWS) +--- +--- -- Move focused window to next Workspace +--- , ((modm .|. shiftMask, xK_Right ), shiftToNext >> nextWS) +--- +--- -- Move focused window to previous Workspace +--- , ((modm .|. shiftMask, xK_Left ), shiftToPrev >> prevWS) +--- +--- -- Cycle between windows +--- , ((modm , xK_Tab ), toggleWS) +--- +--- -- Push window back into tiling +--- , ((modm, xK_t ), withFocused $ windows . W.sink) +--- +--- -- Increment the number of windows in the master area +--- , ((modm , xK_comma ), sendMessage (IncMasterN 1)) +--- +--- -- Deincrement the number of windows in the master area +--- , ((modm , xK_period), sendMessage (IncMasterN (-1))) +--- +--- -- close focused window +--- , ((modm .|. shiftMask, xK_c ), kill) +--- +--- -- Swap the focused window and the master window +--- , ((modm, xK_Return), windows W.swapMaster) +--- +--- -- run my terminal +--- , ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) +--- +--- -- lock my session +--- --, ((modm .|. shiftMask, xK_Delete), spawn "/usr/bin/sxlock -f \"-*-ubuntu mono-*-r-*-*-*-*-*-*-*-*-*-*\"") +--- , ((modm .|. shiftMask, xK_Delete), spawn "/run/current-system/sw/bin/i3lock-fancy -g -p") +--- +--- -- quit xmonad +--- , ((modm .|. shiftMask, xK_q), io (exitWith ExitSuccess)) +--- +--- -- Raise volume (XF86XK_AudioRaiseVolume) +--- , ((0 , xF86XK_AudioRaiseVolume), spawn "/home/eeva/prefix/bin/volume up") +--- +--- -- Lower volume (XF86XK_AudioLowerVolume) +--- , ((0 , xF86XK_AudioLowerVolume), spawn "/home/eeva/prefix/bin/volume down") +--- +--- -- Mute volume (xF86XK_AudioMute) +--- , ((0 , xF86XK_AudioMute), spawn "/home/eeva/prefix/bin/volume toggle") +--- +--- -- Playlist play (xK_F7) +--- , ((0 , xK_F7), spawn "/usr/bin/notify-send \"Current song\" \"$(mpc -h ~/.config/mpd/mpd.socket | head -n 1)\"") +--- +--- -- Playlist play (xK_F8) +--- , ((0 , xK_F8), spawn "/home/eeva/prefix/bin/playlist toggle") +--- +--- -- Playlist stop (xK_F9) +--- , ((0 , xK_F9), spawn "/home/eeva/prefix/bin/playlist stop") +--- +--- -- Launch App (XF86XK_Launch1) +--- , ((0 , xF86XK_Launch1), spawn "/usr/bin/firefox") +--- +--- -- Adjust Brightness up (xF86XK_MonBrightnessUp) +--- , ((0 , xF86XK_MonBrightnessUp), spawn "/run/current-system/sw/bin/xbacklight +10") +--- +--- -- Adjust Brightness down (xF86XK_MonBrightnessDown) +--- , ((0 , xF86XK_MonBrightnessDown), spawn "/run/current-system/sw/bin/xbacklight -10") +--- ] +--- ++ +--- +--- -- +--- -- mod-[1..9], Switch to workspace N +--- -- +--- -- mod-[1..9], Switch to workspace N +--- -- mod-shift-[1..9], Move client to workspace N +--- -- +--- [((m .|. modm, k), windows $ f i) +--- | (i, k) <- zip (XMonad.workspaces conf) [xK_F1 .. xK_F9] +--- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] +--- ++ +--- +--- -- +--- -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 +--- -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 +--- -- +--- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) +--- | (key, sc) <- zip [xK_z, xK_e, xK_r] [0..] +--- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]