wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[taffybar] WIP Caps theme

Browse Source
This commit is contained in:
Ivan Malison 2018-05-29 21:03:19 -07:00
parent 15f490380b
commit f65e04b882
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
3 changed files with 15 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

@ -1 +1 @@
Subproject commit b20fd99f934fbfdb5cfc021d01a0c4c4c189af29 Subproject commit 35ef690d814270d1b571fa307b86f5d0ed3ae6da

21
dotfiles/config/taffybar/taffybar.css
View File

@ -18,24 +18,19 @@
} }
.taffy-box { .taffy-box {
border-radius: 10px; border-color: @white;
background-color: rgba(0.0, 0.0, 0.0, 0.3); border-width: 5px;
border-style: solid;
border-radius: 5px;
} }
.inner-pad { .inner-pad {
padding-bottom: 5px; padding: 0px;
padding-top: 5px;
padding-left: 2px;
padding-right: 2px;
} }
.contents { .contents {
padding-bottom: 4px; padding: 7px;
padding-top: 4px;
padding-right: 2px;
padding-left: 2px;
transition: background-color .5s; transition: background-color .5s;
border-radius: 5px;
} }
/* Workspaces styling */ /* Workspaces styling */
@ -43,11 +38,11 @@
.workspace-label { .workspace-label {
padding-right: 3px; padding-right: 3px;
padding-left: 2px; padding-left: 2px;
font-size: 12pt; font-size: 10pt;
} }
.active .contents { .active .contents {
background-color: rgba(0.0, 0.0, 0.0, 0.5); background-color: #e21d3b;
} }
.visible .contents { .visible .contents {

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

@ -1,4 +1,5 @@
{-# LANGUAGE PackageImports #-} {-# LANGUAGE PackageImports #-}
{-# LANGUAGE OverloadedStrings #-}
module Main where module Main where
import Control.Exception.Base import Control.Exception.Base
@ -107,6 +108,7 @@ logDebug = do
main = do main = do
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
-- logDebug -- logDebug
-- logM "What" WARNING "Why"
-- enableLogger "System.Taffybar.Widget.Util" DEBUG -- enableLogger "System.Taffybar.Widget.Util" DEBUG
-- enableLogger "System.Taffybar.Information.XDG.DesktopEntry" DEBUG -- enableLogger "System.Taffybar.Information.XDG.DesktopEntry" DEBUG
-- enableLogger "System.Taffybar.WindowIcon" DEBUG -- enableLogger "System.Taffybar.WindowIcon" DEBUG
@ -118,16 +120,14 @@ main = do
getIconFileName w@WindowData {windowTitle = title, windowClass = klass} getIconFileName w@WindowData {windowTitle = title, windowClass = klass}
-- | "URxvt" `isInfixOf` klass = Just "urxvt.png" -- | "URxvt" `isInfixOf` klass = Just "urxvt.png"
-- | "Termite" `isInfixOf` klass = Just "urxvt.png" -- | "Termite" `isInfixOf` klass = Just "urxvt.png"
-- | "Kodi" `isInfixOf` klass = Just "kodi.png"r -- | "Kodi" `isInfixOf` klass = Just "kodi.png"
| "@gmail.com" `isInfixOf` title && | "@gmail.com" `isInfixOf` title &&
"chrome" `isInfixOf` klass && "Gmail" `isInfixOf` title = "chrome" `isInfixOf` klass && "Gmail" `isInfixOf` title =
Just "gmail.png" Just "gmail.png"
| otherwise = Nothing | otherwise = Nothing
myIcons = myIcons = scaledWindowIconPixbufGetter $
addCustomIconsAndFallback unscaledDefaultGetWindowIconPixbuf <|||>
(fmap inResourcesDirectory . getIconFileName) (\size _ -> lift $ loadPixbufByName size "application-default-icon")
(inResourcesDirectory "exe-icon.png")
(getWindowIconPixbufFromClass <|||> getWindowIconPixbufFromEWMH)
cpu = pollingGraphNew cpuCfg 0.5 cpuCallback cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
mem = pollingGraphNew memCfg 1 memCallback mem = pollingGraphNew memCfg 1 memCallback
layout = layoutNew defaultLayoutConfig layout = layoutNew defaultLayoutConfig