From 7646fab11d649d83fb14a7b46728f89d0dd0338c Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Mon, 14 Sep 2015 19:34:57 +0200
Subject: Use origami marker

---
 xmonad.hs | 43 +++++++++++++++++++++++++------------------
 1 file changed, 25 insertions(+), 18 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index cb30401..87ae3ff 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -85,6 +85,8 @@ myDzenUrgencyConfig = DzenUrgencyHook
         , duration = seconds 5
         }
 
+--{{{ main
+
 main = do
   args <- getArgs
   when ("--replace" `elem` args) replace
@@ -115,9 +117,9 @@ myConfig statusFile = defaultConfig
         , startupHook = myStartupHook
         }
 
---
--- Prompts
---
+--}}}
+
+--{{{ Prompts
 
 data MyShell = MyShell
 instance XPrompt MyShell where
@@ -127,9 +129,9 @@ myShellPrompt c = do
     cmds <- io getCommands
     mkXPrompt MyShell c (getShellCompl cmds) spawn
 
---
--- Scratchpads
---
+--}}}
+
+--{{{ Scratchpads
 
 scratchpads =
   [ NS "hotot" "hotot" (className =? "Hotot")
@@ -150,10 +152,10 @@ notNspHiddenWS = do nn <- notNspWS
                     hi <- hiddenWS
                     return (\w -> hi w && nn w)
 
+--}}}
+
+--{{{ Themes
 
---
--- Themes
---
 myPP statusFile = namedScratchpadFilterOutWorkspacePP $ defaultPP
         { ppCurrent = wrap "^fg(#FF0000) " " "
         , ppVisible = wrap "^fg(#0000FF) " " "
@@ -206,9 +208,10 @@ historyGridConfig = defaultGSConfig
         , gs_font = font
         }
 
---
--- Hooks
---
+--}}}
+
+--{{{ Hooks
+
 myLogHook statusFile = do
   ewmhDesktopsLogHook
   dynamicLogWithPP $ myPP statusFile
@@ -312,9 +315,10 @@ xPropMatches =
       , (wM_CLASS, (==), "Amarokapp", "music")
       ]
 
---
--- Keys
---
+--}}}
+
+--{{{ Keys
+
 myKeys c =
   -- this line is critical to reload config - DON'T REMOVE
   [ ("M-q", broadcastMessage ReleaseResources >> restart "xmonad" True)
@@ -426,9 +430,10 @@ myMouse c =
      (\w -> focus w >> Flex.mouseWindow Flex.resize w))
   ]
 
---
--- Layout
---
+--}}}
+
+--{{{ Layout
+
 myLayout =
   avoidStruts
   $ smartBorders
@@ -455,3 +460,5 @@ myLayout =
     imgrid = imbase Grid
     imtab = imbase tabbed
     immosaic = imbase $ MosaicAlt M.empty
+
+--}}}
-- 
cgit v1.2.3