Add fold markers
This commit is contained in:
@@ -1,3 +1,4 @@
|
|||||||
|
-- {{{
|
||||||
import XMonad
|
import XMonad
|
||||||
import XMonad.Hooks.DynamicLog
|
import XMonad.Hooks.DynamicLog
|
||||||
import XMonad.Hooks.EwmhDesktops
|
import XMonad.Hooks.EwmhDesktops
|
||||||
@@ -28,6 +29,9 @@ import XMonad.Util.Run
|
|||||||
spawnPipe,
|
spawnPipe,
|
||||||
)
|
)
|
||||||
import XMonad.Util.Ungrab
|
import XMonad.Util.Ungrab
|
||||||
|
-- }}}
|
||||||
|
|
||||||
|
-- Statusbar {{{
|
||||||
|
|
||||||
-- Statusbar
|
-- Statusbar
|
||||||
myXmobarPP :: PP
|
myXmobarPP :: PP
|
||||||
@@ -65,6 +69,10 @@ myXmobarPP =
|
|||||||
yellow = xmobarColor "#ff0" ""
|
yellow = xmobarColor "#ff0" ""
|
||||||
red = xmobarColor "#ff5555" ""
|
red = xmobarColor "#ff5555" ""
|
||||||
|
|
||||||
|
-- }}}
|
||||||
|
|
||||||
|
-- Workspaces & screens {{{
|
||||||
|
|
||||||
-- Shift to workspace and view workspace
|
-- Shift to workspace and view workspace
|
||||||
shiftAndView id = doF (W.view id) <> doF (W.shift id)
|
shiftAndView id = doF (W.view id) <> doF (W.shift id)
|
||||||
|
|
||||||
@@ -73,6 +81,10 @@ myStartupHook =
|
|||||||
do
|
do
|
||||||
spawn "albert"
|
spawn "albert"
|
||||||
|
|
||||||
|
-- }}}
|
||||||
|
|
||||||
|
-- Hooks {{{
|
||||||
|
|
||||||
-- manageHook
|
-- manageHook
|
||||||
myManageHook =
|
myManageHook =
|
||||||
composeAll
|
composeAll
|
||||||
@@ -117,6 +129,8 @@ myWorkspaceKeys = [ "a", "s", "d", "f", "g" ]
|
|||||||
mySharedWorkspaces = [ "shared" ]
|
mySharedWorkspaces = [ "shared" ]
|
||||||
mySharedWorkspaceKeys = [ "1" ]
|
mySharedWorkspaceKeys = [ "1" ]
|
||||||
|
|
||||||
|
-- }}}
|
||||||
|
|
||||||
myConfig =
|
myConfig =
|
||||||
def
|
def
|
||||||
{ terminal = "alacritty",
|
{ terminal = "alacritty",
|
||||||
|
|||||||
Reference in New Issue
Block a user