[taffybar] Add package specific imports

This commit is contained in:
2017-10-29 19:04:57 -07:00
parent ed8c25c8cb
commit 7c74bebbbe
3 changed files with 6 additions and 13 deletions

View File

@@ -28,10 +28,6 @@
border-radius: 5px; border-radius: 5px;
} }
@keyframes spin {
to { -gtk-icon-transform: rotate(1turn); }
}
.IconContainer.Active { .IconContainer.Active {
transition: background-color .5s; transition: background-color .5s;
background-color: @active-window-color; background-color: @active-window-color;
@@ -40,10 +36,6 @@
.IconContainer.Urgent { .IconContainer.Urgent {
transition: background-color .5s; transition: background-color .5s;
background-color: @urgent-window-color; background-color: @urgent-window-color;
animation-name: spin;
animation-duration: 1s;
animation-timing-function: linear;
animation-iteration-count: infinite;
} }
.IconContainer.Minimized .IconImage { .IconContainer.Minimized .IconImage {

View File

@@ -1,3 +1,4 @@
{-# LANGUAGE PackageImports #-}
module Main where module Main where
import qualified Control.Concurrent.MVar as MV import qualified Control.Concurrent.MVar as MV
@@ -8,9 +9,9 @@ import Data.List
import Data.List.Split import Data.List.Split
import qualified Data.Map as M import qualified Data.Map as M
import Data.Maybe import Data.Maybe
import qualified Graphics.UI.Gtk as Gtk import qualified "gtk3" Graphics.UI.Gtk as Gtk
import qualified Graphics.UI.Gtk.Abstract.Widget as W import qualified "gtk3" Graphics.UI.Gtk.Abstract.Widget as W
import qualified Graphics.UI.Gtk.Layout.Table as T import qualified "gtk3" Graphics.UI.Gtk.Layout.Table as T
import System.Directory import System.Directory
import System.Environment import System.Environment
import System.FilePath.Posix import System.FilePath.Posix
@@ -211,7 +212,7 @@ main = do
, showWorkspaceFn = hideEmpty , showWorkspaceFn = hideEmpty
, updateRateLimitMicroseconds = 100000 , updateRateLimitMicroseconds = 100000
, updateOnWMIconChange = True , updateOnWMIconChange = True
, debugMode = True , debugMode = False
, labelSetter = workspaceNamesLabelSetter , labelSetter = workspaceNamesLabelSetter
} }
netMonitor = netMonitorMultiNew 1.5 interfaceNames netMonitor = netMonitorMultiNew 1.5 interfaceNames