sercanto/rcfiles
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

xmonad: Modified ThreeCol for widesscreen

Browse source
This commit is contained in:
Serĉanto de Scio 2021-06-22 16:22:23 +10:00
parent 4cbe157b73
commit 698968ef9e
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA
1 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
.xmonad/xmonad.hs
View file

@ -4,12 +4,15 @@ import Data.Monoid
import Data.Word import Data.Word
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
import XMonad.Actions.UpdatePointer (updatePointer)
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Layout.Accordion import XMonad.Layout.Accordion
import XMonad.Layout.Circle import XMonad.Layout.Circle
import XMonad.Layout.Grid import XMonad.Layout.GridVariants
import XMonad.Layout.LayoutCombinators hiding ( (|||) )
import XMonad.Layout.Spiral import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
@ -17,9 +20,13 @@ import XMonad.Prompt
import XMonad.Prompt.Shell ( shellPrompt ) import XMonad.Prompt.Shell ( shellPrompt )
import XMonad.Util.Run(spawnPipe) import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys) import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.NamedWindows
import XMonad.Util.Run
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
import System.IO import System.IO
import qualified XMonad.StackSet as W
colourBackground :: String colourBackground :: String
colourBackground = "#1c1c1c" colourBackground = "#1c1c1c"
@ -59,7 +66,7 @@ trayerCmd = "trayer --edge top --SetPartialStrut false --width 7 --transpa
main = do main = do
-- Make sure that HDMI is turned off by default -- Make sure that HDMI is turned off by default
spawn "xrandr --output eDP-1 --primary --output HDMI1 --off" spawn "xrandr --output eDP-1 --primary --output HDMI-1 --off"
wsbar <- spawnPipe myWsBar wsbar <- spawnPipe myWsBar
xmonad $ ewmh desktopConfig xmonad $ ewmh desktopConfig
{ focusFollowsMouse = False { focusFollowsMouse = False
@ -75,20 +82,22 @@ main = do
spawnOnce nextcloudCmd -- Launch the cloud service spawnOnce nextcloudCmd -- Launch the cloud service
, manageHook = manageDocks <+> manageHook desktopConfig , manageHook = manageDocks <+> manageHook desktopConfig
, layoutHook = avoidStruts $ layoutHook desktopConfig , layoutHook = avoidStruts $ layoutHook desktopConfig
||| ThreeColMid 1 (3/100) (1/2)
||| spiral (6/7) ||| spiral (6/7)
||| Grid ||| Grid (16/10)
||| Circle ||| Circle
||| ThreeColMid 1 (3/100) (1/3)
||| simpleTabbed ||| simpleTabbed
||| Accordion ||| Accordion
||| SplitGrid T 1 2 (1/3) (16/10) (5/100)
-- ||| (ThreeColMid 1 (3/100) (1/3) *//* Full)
, handleEventHook = handleEventHook desktopConfig <+> docksEventHook , handleEventHook = handleEventHook desktopConfig <+> docksEventHook
, logHook = dynamicLogWithPP $ xmobarPP , logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn wsbar { ppOutput = hPutStrLn wsbar
, ppCurrent = xmobarColor "#ffaf00" "" . wrap "[" "]" , ppCurrent = xmobarColor "#ffaf00" "" . wrap "[" "]"
, ppVisible = xmobarColor "#5fafd7" "" . wrap "(" ")" , ppVisible = xmobarColor "#5fafd7" "" . wrap "(" ")"
, ppLayout = xmobarColor "#5fafd7" "" , ppLayout = xmobarColor "#5fafd7" ""
, ppTitle = xmobarColor "#ffaf00" "" . shorten 50 , ppTitle = xmobarColor "#ffaf00" "" . shorten 50
} } >> updatePointer (0.25, 0.25) (0.25, 0.25) -- near the top-left
, modMask = mod4Mask -- Rebind Mod to the Windows key , modMask = mod4Mask -- Rebind Mod to the Windows key
--, borderWidth = 1 --, borderWidth = 1
} `additionalKeys` } `additionalKeys`
@ -98,8 +107,8 @@ main = do
, ((0, 0x1008ff2d), spawn "xscreensaver-command -lock") , ((0, 0x1008ff2d), spawn "xscreensaver-command -lock")
-- XF86ScreenSaver -- XF86ScreenSaver
, ((mod4Mask .|. controlMask, xK_l), spawn "xscreensaver-command -lock") , ((mod4Mask .|. controlMask, xK_l), spawn "xscreensaver-command -lock")
, ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") -- Screenshot the selected window
, ((0, xK_Print), spawn "scrot") , ((0, xK_Print), spawn "scrot") -- Screenshot the entire screen
-- Turn on the eDP-1 port and set it as the primary display -- Turn on the eDP-1 port and set it as the primary display
, ((mod4Mask .|. shiftMask, xK_e), spawn , ((mod4Mask .|. shiftMask, xK_e), spawn
"xrandr --output eDP-1 --primary --auto" "xrandr --output eDP-1 --primary --auto"
@ -114,7 +123,7 @@ main = do
) )
-- Turn on the HDMI-1 port and set it as the secondary display -- Turn on the HDMI-1 port and set it as the secondary display
, ((mod4Mask .|. shiftMask, xK_h), spawn , ((mod4Mask .|. shiftMask, xK_h), spawn
"xrandr --newmode \"2560x1440R\" 241.50 2560 2608 2640 2720 1440 1443 1448 1481 +hsync -vsync ; xrandr --addmode HDMI-1 2560x1440R ; xrandr --output eDP-1 --primary --auto --output HDMI-1 --above eDP-1 --mode 2560x1440R ; feh --bg-scale ~/Documents/Images/Posters/STEVEs.jpeg" "xrandr --newmode \"3840x2160R\" 241.50 2560 2608 2640 2720 1440 1443 1448 1481 +hsync -vsync ; xrandr --addmode HDMI-1 2560x1440R ; xrandr --output eDP-1 --primary --auto --output HDMI-1 --above eDP-1 --mode 2560x1440R ; feh --bg-scale ~/Documents/Images/Posters/STEVEs.jpeg"
) )
, ((0 , 0x1008FF11), spawn "amixer set Master 2%-") -- XF86AudioLowerVolume , ((0 , 0x1008FF11), spawn "amixer set Master 2%-") -- XF86AudioLowerVolume
-- , ((mod4Mask , xK_Down), spawn "amixer set Master 2%-") -- , ((mod4Mask , xK_Down), spawn "amixer set Master 2%-")