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

[taffybar] Use HighContrast icons

Browse Source
This commit is contained in:
Ivan Malison 2017-09-12 02:55:32 -07:00
parent 1b0f62cc67
commit 54df1e5d41
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dotfiles/config/taffybar/taffybar.hs
View File

@ -134,13 +134,15 @@ main = do
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
let resourcesDirectory = homeDirectory </> ".lib" </> "resources" let resourcesDirectory = homeDirectory </> ".lib" </> "resources"
inResourcesDirectory file = resourcesDirectory </> file inResourcesDirectory file = resourcesDirectory </> file
highContrastDirectory = "/" </> "usr" </> "share" </> "icons" </> "HighContrast" </> "256x256"
inHighContrastDirectory file = (highContrastDirectory </> file)
getWorkspacePixBuf size Workspace { workspaceIdx = WSIdx wsId } = getWorkspacePixBuf size Workspace { workspaceIdx = WSIdx wsId } =
pixBufFromFile size . inResourcesDirectory <$> pixBufFromFile size . inHighContrastDirectory <$>
case wsId + 1 of case wsId + 1 of
1 -> Just "urxvt.png" 1 -> Just $ "apps" </> "utilities-terminal.png"
2 -> Just "stack-overflow.png" 2 -> Just $ "emblems" </> "emblem-documents.png"
3 -> Just "bookmark.png" 3 -> Just $ "actions" </> "bookmark-add.png"
4 -> Just "tv.png" 4 -> Just $ "devices" </> "video-display.png"
_ -> Nothing _ -> Nothing
buildConstantIconController :: ControllerConstructor buildConstantIconController :: ControllerConstructor
buildConstantIconController ws = do buildConstantIconController ws = do