[taffybar] WIP Caps theme
This commit is contained in:
parent
15f490380b
commit
f65e04b882
@ -1 +1 @@
|
||||
Subproject commit b20fd99f934fbfdb5cfc021d01a0c4c4c189af29
|
||||
Subproject commit 35ef690d814270d1b571fa307b86f5d0ed3ae6da
|
@ -18,24 +18,19 @@
|
||||
}
|
||||
|
||||
.taffy-box {
|
||||
border-radius: 10px;
|
||||
background-color: rgba(0.0, 0.0, 0.0, 0.3);
|
||||
border-color: @white;
|
||||
border-width: 5px;
|
||||
border-style: solid;
|
||||
border-radius: 5px;
|
||||
}
|
||||
|
||||
.inner-pad {
|
||||
padding-bottom: 5px;
|
||||
padding-top: 5px;
|
||||
padding-left: 2px;
|
||||
padding-right: 2px;
|
||||
padding: 0px;
|
||||
}
|
||||
|
||||
.contents {
|
||||
padding-bottom: 4px;
|
||||
padding-top: 4px;
|
||||
padding-right: 2px;
|
||||
padding-left: 2px;
|
||||
padding: 7px;
|
||||
transition: background-color .5s;
|
||||
border-radius: 5px;
|
||||
}
|
||||
|
||||
/* Workspaces styling */
|
||||
@ -43,11 +38,11 @@
|
||||
.workspace-label {
|
||||
padding-right: 3px;
|
||||
padding-left: 2px;
|
||||
font-size: 12pt;
|
||||
font-size: 10pt;
|
||||
}
|
||||
|
||||
.active .contents {
|
||||
background-color: rgba(0.0, 0.0, 0.0, 0.5);
|
||||
background-color: #e21d3b;
|
||||
}
|
||||
|
||||
.visible .contents {
|
||||
|
@ -1,4 +1,5 @@
|
||||
{-# LANGUAGE PackageImports #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Main where
|
||||
|
||||
import Control.Exception.Base
|
||||
@ -107,6 +108,7 @@ logDebug = do
|
||||
main = do
|
||||
homeDirectory <- getHomeDirectory
|
||||
-- logDebug
|
||||
-- logM "What" WARNING "Why"
|
||||
-- enableLogger "System.Taffybar.Widget.Util" DEBUG
|
||||
-- enableLogger "System.Taffybar.Information.XDG.DesktopEntry" DEBUG
|
||||
-- enableLogger "System.Taffybar.WindowIcon" DEBUG
|
||||
@ -118,16 +120,14 @@ main = do
|
||||
getIconFileName w@WindowData {windowTitle = title, windowClass = klass}
|
||||
-- | "URxvt" `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 &&
|
||||
"chrome" `isInfixOf` klass && "Gmail" `isInfixOf` title =
|
||||
Just "gmail.png"
|
||||
| otherwise = Nothing
|
||||
myIcons =
|
||||
addCustomIconsAndFallback
|
||||
(fmap inResourcesDirectory . getIconFileName)
|
||||
(inResourcesDirectory "exe-icon.png")
|
||||
(getWindowIconPixbufFromClass <|||> getWindowIconPixbufFromEWMH)
|
||||
myIcons = scaledWindowIconPixbufGetter $
|
||||
unscaledDefaultGetWindowIconPixbuf <|||>
|
||||
(\size _ -> lift $ loadPixbufByName size "application-default-icon")
|
||||
cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
|
||||
mem = pollingGraphNew memCfg 1 memCallback
|
||||
layout = layoutNew defaultLayoutConfig
|
||||
|
Loading…
Reference in New Issue
Block a user