fix haddock

1 files changed, 33 insertions, 16 deletions

diff --git a/lib/XMonad/Config/LaNinpre.hs b/lib/XMonad/Config/LaNinpre.hs
index a751485..71dfd03 100644
--- a/lib/XMonad/Config/LaNinpre.hs
+++ b/lib/XMonad/Config/LaNinpre.hs
@@ -44,17 +44,19 @@ import XMonad.Util.NamedScratchpad
 import XMonad.Util.SpawnOnce
 
 -- * fonts
+-- 
+-- $fonts
 --
 -- default font and helper for fonts.
 
--- | default lato font
+-- | default font
 fontDef :: String
 fontDef = fontXft "Lato" "regular" 14
 
 -- | font constructor
 --
---   it is just a helper function to simplify the process of specifying font
---   with xft.
+-- it is just a helper function to simplify the process of specifying font
+-- with xft.
 fontXft :: String   -- ^ font family
         -> String   -- ^ font style
         -> Int      -- ^ font size
@@ -69,9 +71,11 @@ fontXft font style size = intercalate ":" [ "xft"
 
 -- * colors
 --
+-- $colors
+--
 -- color theme and stuff
 
--- | default color scheme
+-- | default color theme
 colorTheme :: ColorTheme
 colorTheme = ColorTheme "#111111" "#ccbbcc" "#223333" "#ffaaaa"
 
@@ -91,6 +95,8 @@ instance Default ColorTheme where
 
 -- * software
 --
+-- $software
+--
 -- these are just contstants
 
 -- | set terminal emulator
@@ -111,8 +117,8 @@ fileManager = "thunar"
 
 -- | music on console
 --
---   this is to avoid spamming strings everywhere. @moc@ doesn't comply with
---   XDG_CONFIG_HOME, so we force it to do so.
+-- this is to avoid spamming strings everywhere. @moc@ doesn't comply with
+-- XDG_CONFIG_HOME, so we force it to do so.
 mocpString :: String
 mocpString = "mocp -M '~/.config/moc'"
 
@@ -120,16 +126,11 @@ mocpString = "mocp -M '~/.config/moc'"
 editor :: String
 editor = terminalEmulator ++ " -e vi"
 
--- * hooks
+-- * manage hook
 --
--- hooks for xmonad config
-
--- ** manage hook
+-- $managehook
 --
--- @doFloat@ forces a window to float. useful for dialog boxes and such.
--- using @doShift (myWorkspaces !! 7)@ sends program to workspace 8
--- i'm doing it this way because otherwise i would have to write out the full
--- name of my workspaces and the names would be very long if using clickable workspaces.
+-- send some windows here and there.
 
 -- | manage hook
 localManageHook :: ManageHook
@@ -172,6 +173,8 @@ localManageHook = composeAll
 
 -- * scratchpads
 --
+-- $scratchpads
+--
 -- currently i have:
 --
 --     *   plain terminal scratchpad
@@ -235,6 +238,8 @@ scratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
 
 -- * workspaces
 --
+-- $workspaces
+--
 -- i've got two ways of specifying them. first one is pretty close to the
 -- original dt's config and second one is using linja pona font by jan same
 -- (check it out [here](http://musilili.net/linja-pona/)).
@@ -269,6 +274,8 @@ workspacesTP = [ "\xe661\xe921" -- sona nanpa
 
 -- * grid select
 --
+-- $gridselect
+--
 -- stuff for 'GridSelect'
 
 -- | app grid for 'GridSelect' layout
@@ -304,6 +311,8 @@ spawnSelected' conf lst = gridselect conf lst >>= flip whenJust spawn
 
 -- * keybindings
 --
+-- $keybindings
+--
 -- list of keybindings. it supposed to override the default keybindings.
 
 -- | keybindings in 'EZConfig' format
@@ -368,6 +377,8 @@ keybinds = [ ("M-<Return>", spawn terminalEmulator)
 
 -- * xmobar
 --
+-- $xmobar
+--
 -- stuff for xmobar
 
 -- | xmobar pretty printer
@@ -388,6 +399,8 @@ statusBarConfig = statusBarProp "xmobar"
 
 -- * layouts 
 --
+-- $layouts
+--
 -- stuff for layouts
 
 -- | theme for 'Tabbed' layout
@@ -405,6 +418,8 @@ tabTheme = def
            , urgentBorderWidth   = 0
            }
 
+-- * misc
+
 -- | layout hook 
 --
 -- __NOTE__: it uses sitelen-pona font to name layouts.
@@ -435,8 +450,10 @@ localLayoutHook = windowNavigation
 --
 -- you can override things like that:
 --
--- > myConfig = laNinpreConfig { workspaces = workspacesNorm }
--- > main = xmonad myConfig
+-- @
+--     myConfig = laNinpreConfig { workspaces = 'workspacesNorm' }
+--     main = xmonad myConfig
+-- @
 laNinpreConfig = def
          { terminal           = terminalEmulator
          , modMask            = mod4Mask