[taffybar] Add configuration for blade 15

dotfiles/config/taffybar/ivanm-dfinity-razr.css

@@ -0,0 +1,117 @@
+@define-color transparent rgba(0.0, 0.0, 0.0, 0.0);
+@define-color white #FFFFFF;
+@define-color black #000000;
+@define-color taffy-blue #0c7cd5;
+
+@define-color active-window-color @white;
+@define-color urgent-window-color @taffy-blue;
+@define-color font-color @white;
+@define-color menu-background-color @white;
+@define-color menu-font-color @black;
+
+/* Top level styling */
+
+.taffy-window * {
+	font-family: "Noto Sans", sans-serif;
+	font-size: 10pt;
+	color: @font-color;
+}
+
+.taffy-box {
+	border-color: @white;
+	border-style: solid;
+	border-radius: 0px;
+}
+
+.inner-pad {
+	padding: 3px;
+}
+
+.contents {
+	padding: 3px;
+	transition: background-color .5s;
+	border-radius: 6px;
+}
+
+/* Workspaces styling */
+
+.workspace-label {
+	padding-right: 3px;
+	padding-left: 2px;
+	font-size: 10pt;
+}
+
+.active .contents {
+	background-color: rgba(0.0, 0.0, 0.0, 0.2);
+}
+
+.visible .contents {
+	background-color: rgba(0.0, 0.0, 0.0, 0.2);
+}
+
+.window-icon-container {
+	transition: opacity .5s, box-shadow .5s;
+	opacity: 1;
+	border-radius: 5px;
+	transition: background-color 1s;
+}
+
+/* This gives space for the box-shadow (they look like underlines) that follow.
+   This will actually affect all widgets, (not just the workspace icons), but
+   that is what we want since we want the icons to look the same. */
+.auto-size-image, .sni-tray  {
+	padding: 1px;
+}
+
+.window-icon-container.active {
+	background-color: rgba(255.0, 255.0, 255.0, 0.3);
+}
+
+.window-icon-container.urgent {
+}
+
+.window-icon-container.inactive .window-icon {
+  padding: 0px;
+}
+
+.window-icon-container.minimized .window-icon {
+	opacity: .3;
+}
+
+.window-icon {
+	opacity: 1;
+	transition: opacity .5s;
+}
+
+/* Button styling */
+
+button {
+	all: initial;
+	background-color: @transparent;
+	border-width: 0px;
+	border-radius: 0px;
+}
+
+button:checked, button:hover .Contents:hover {
+	box-shadow: inset 0 -3px @taffy-blue;
+}
+
+/* Menu styling */
+
+/* The ".taffy-window" prefixed selectors are needed because if they aren't present,
+   the top level .Taffybar selector takes precedence */
+.taffy-window menuitem *,  menuitem * {
+	color: @menu-font-color;
+}
+
+.taffy-window menuitem, menuitem {
+	background-color: @menu-background-color;
+}
+
+.taffy-window menuitem:hover, menuitem:hover {
+	background-color: @taffy-blue;
+}
+
+.taffy-window menuitem:hover > label, menuitem:hover > label {
+	color: @white;
+}

dotfiles/config/taffybar/stack.yaml

@@ -44,7 +44,8 @@ extra-deps:
 - stm-2.5.0.0
 - time-units-1.0.0
 - xml-helpers-1.0.0
-resolver: lts-13.2
+- broadcast-chan-0.2.0.2
+resolver: lts-13.19
 allow-newer: true
 nix:
   packages:

dotfiles/config/taffybar/taffybar

@@ -1 +1 @@
-Subproject commit 0393c3b01d057855bf927ac279dacc5550c27268
+Subproject commit eb9f7b9f43898201237000b921d1224c47d7dac7

dotfiles/config/taffybar/taffybar.css

@@ -24,11 +24,11 @@
 }
 
 .inner-pad {
-	padding: 3px;
+	padding: 2px;
 }
 
 .contents {
-	padding: 3px;
+	padding: 2px;
 	transition: background-color .5s;
 	border-radius: 6px;
 }

dotfiles/config/taffybar/taffybar.hs

@@ -93,6 +93,8 @@ enableLogger logger level = do
   saveGlobalLogger $ setLevel level logger
 
 logDebug = do
+  logger3 <- getLogger "System.Taffybar"
+  saveGlobalLogger $ setLevel DEBUG logger3
   logger <- getLogger "System.Taffybar.Widget.Generic.AutoSizeImage"
   saveGlobalLogger $ setLevel DEBUG logger
   logger2 <- getLogger "StatusNotifier.Tray"
@@ -109,6 +111,7 @@ logDebug = do
 cssFileByHostname =
   [ ("uber-loaner", "uber-loaner.css")
   , ("imalison-home", "taffybar.css")
+  , ("ivanm-dfinity-razr", "ivanm-dfinity-razr.css")
   ]
 
 main = do
@@ -172,16 +175,19 @@ main = do
             )
           , ( "imalison-home"
             , baseConfig { endWidgets = fullEndWidgets, barHeight = 42 }
-          )
+            )
+          , ( "ivanm-dfinity-razr"
+            , baseConfig { endWidgets = fullEndWidgets, barHeight = 42 }
+            )
           ]
       simpleTaffyConfig = selectedConfig
         { centerWidgets = map (>>= buildContentsBox) []
-        , endWidgets = []
+        -- , endWidgets = []
-        , startWidgets = []
+        -- , startWidgets = []
         }
   startTaffybar $
     appendHook notifySystemD $
-    appendHook (getHost False) $
+    appendHook (void $ getHost False) $
     withLogServer $
     withToggleServer $
     toTaffyConfig simpleTaffyConfig