Add fold markers
							parent
							
								
									edfe524ae2
								
							
						
					
					
						commit
						ca9e1b493b
					
				| 
						 | 
					@ -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",
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue