colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Reduce line widths

Browse Source
This commit is contained in:
Ivan Malison 2016-10-27 04:07:45 -07:00
parent d4ceeba076
commit 570e97fd56
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/xmonad/xmonad.hs
View File

@ -50,10 +50,12 @@ main = xmonad $ def
isHangoutsTitle = isPrefixOf "Google Hangouts" isHangoutsTitle = isPrefixOf "Google Hangouts"
chromeSelector = className =? "google-chrome" <&&> fmap (not . isHangoutsTitle) title chromeSelector = className =? "google-chrome" <&&>
fmap (not . isHangoutsTitle) title
spotifySelector = className =? "Spotify" spotifySelector = className =? "Spotify"
emacsSelector = className =? "Emacs" emacsSelector = className =? "Emacs"
hangoutsSelector = className =? "google-chrome" <&&> fmap isHangoutsTitle title hangoutsSelector = className =? "google-chrome" <&&>
fmap isHangoutsTitle title
-- Startup -- Startup
@ -66,7 +68,8 @@ myManageHook = composeAll . concat $
-- Layout -- Layout
layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| Tall 1 (3/100) (1/2) ||| Tall 1 (3/100) (3/4) layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full |||
Tall 1 (3/100) (1/2) ||| Tall 1 (3/100) (3/4)
myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringWindows . myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringWindows .
mkToggle (MIRROR ?? EOT) . workspaceNamesHook . smartBorders . mkToggle (MIRROR ?? EOT) . workspaceNamesHook . smartBorders .
@ -87,14 +90,15 @@ myDecorateName ws w = do
name <- show <$> getName w name <- show <$> getName w
classTitle <- getClass w classTitle <- getClass w
workspaceToName <- getWorkspaceNames workspaceToName <- getWorkspaceNames
return $ printf "%-20s%-40s %+30s" classTitle (take 40 name) "in " ++ workspaceToName (W.tag ws) return $ printf "%-20s%-40s %+30s" classTitle (take 40 name)
"in " ++ workspaceToName (W.tag ws)
-- Dynamic Workspace Renaming -- Dynamic Workspace Renaming
getClassRemap = do getClassRemap = do
home <- getHomeDirectory home <- getHomeDirectory
-- TODO: handle the case where this file does not exist -- TODO: handle the case where this file does not exist
text <- B.readFile (home </> ".lib/resources/window_class_to_fontawesome.json") text <- B.readFile $ home </> ".lib/resources/window_class_to_fontawesome.json"
return $ fromMaybe M.empty (decode text) return $ fromMaybe M.empty (decode text)
setWorkspaceNameToFocusedWindow workspace = do setWorkspaceNameToFocusedWindow workspace = do
@ -107,7 +111,7 @@ setWorkspaceNameToFocusedWindow workspace = do
remapNames namedWindows = do remapNames namedWindows = do
remap <- io getClassRemap remap <- io getClassRemap
return $ map (\original -> M.findWithDefault original original remap) namedWindows return $ map (\orig -> M.findWithDefault orig orig remap) namedWindows
setWorkspaceNames = do setWorkspaceNames = do
ws <- gets windowset ws <- gets windowset