diff options
| -rw-r--r-- | lib/XMonad/Config/LaNinpre.hs | 49 |
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 |