Browse Source

xmonad: Modified ThreeCol for widesscreen

consensus
Craige McWhirter 11 months ago
parent
commit
698968ef9e
Signed by: craige GPG Key ID: 7DBA9F5689EFB6AA
  1. 27
      .xmonad/xmonad.hs

27
.xmonad/xmonad.hs

@ -4,12 +4,15 @@ import Data.Monoid
import Data.Word
import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras
import XMonad.Actions.UpdatePointer (updatePointer)
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Layout.Accordion
import XMonad.Layout.Circle
import XMonad.Layout.Grid
import XMonad.Layout.GridVariants
import XMonad.Layout.LayoutCombinators hiding ( (|||) )
import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns
@ -17,9 +20,13 @@ import XMonad.Prompt
import XMonad.Prompt.Shell ( shellPrompt )
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.NamedWindows
import XMonad.Util.Run
import XMonad.Util.SpawnOnce
import System.IO
import qualified XMonad.StackSet as W
colourBackground :: String
colourBackground = "#1c1c1c"
@ -59,7 +66,7 @@ trayerCmd = "trayer --edge top --SetPartialStrut false --width 7 --transpa
main = do
-- 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
xmonad $ ewmh desktopConfig
{ focusFollowsMouse = False
@ -75,20 +82,22 @@ main = do
spawnOnce nextcloudCmd -- Launch the cloud service
, manageHook = manageDocks <+> manageHook desktopConfig
, layoutHook = avoidStruts $ layoutHook desktopConfig
||| ThreeColMid 1 (3/100) (1/2)
||| spiral (6/7)
||| Grid
||| Grid (16/10)
||| Circle
||| ThreeColMid 1 (3/100) (1/3)
||| simpleTabbed
||| Accordion
||| SplitGrid T 1 2 (1/3) (16/10) (5/100)
-- ||| (ThreeColMid 1 (3/100) (1/3) *//* Full)
, handleEventHook = handleEventHook desktopConfig <+> docksEventHook
, logHook = dynamicLogWithPP $ xmobarPP
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn wsbar
, ppCurrent = xmobarColor "#ffaf00" "" . wrap "[" "]"
, ppVisible = xmobarColor "#5fafd7" "" . wrap "(" ")"
, ppLayout = xmobarColor "#5fafd7" ""
, 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
--, borderWidth = 1
} `additionalKeys`
@ -98,8 +107,8 @@ main = do
, ((0, 0x1008ff2d), spawn "xscreensaver-command -lock")
-- XF86ScreenSaver
, ((mod4Mask .|. controlMask, xK_l), spawn "xscreensaver-command -lock")
, ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
, ((0, xK_Print), spawn "scrot")
, ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") -- Screenshot the selected window
, ((0, xK_Print), spawn "scrot") -- Screenshot the entire screen
-- Turn on the eDP-1 port and set it as the primary display
, ((mod4Mask .|. shiftMask, xK_e), spawn
"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
, ((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
-- , ((mod4Mask , xK_Down), spawn "amixer set Master 2%-")

Loading…
Cancel
Save