From 62bccd284a4ae1c6c6c324112df8c6c14dc26ac9 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Tue, 2 Nov 2021 21:58:50 -0600
Subject: Synchronize with the look on photon

---
 src/Internal/Layout.hs | 4 +++-
 src/Main.hs            | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs
index c54ffa7..2339cca 100644
--- a/src/Internal/Layout.hs
+++ b/src/Internal/Layout.hs
@@ -10,6 +10,7 @@ import Data.List
 import XMonad.Layout.Spiral
 import XMonad.Layout.ThreeColumns
 import XMonad.Layout.Grid
+import XMonad.Layout.Dishes
 import XMonad.Layout
 import XMonad.Layout.LayoutModifier
 import XMonad
@@ -24,7 +25,8 @@ myLayout =
       Tall 1 (3/100) (1/2) |||
       ThreeCol 1 (3/100) (1/2) |||
       Full |||
-      Grid
+      Grid |||
+      Dishes 2 (1/6)
 
 data ResizeZoom = ShrinkZoom | ExpandZoom deriving (Typeable)
 
diff --git a/src/Main.hs b/src/Main.hs
index 85d18c7..28d50ad 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -81,7 +81,7 @@ main = do
     parseOut :: String -> String
     parseOut str =
       let colors = ["#ff878f", "#e187ff", "#8f87ff", "#87fff7", "#8bff87", "#ffe987", "#ff8787"]
-          components = zip (cycle colors) (splitOnAll [" - ", " · ", " "] str)
+          components = zip (cycle colors) (splitOnAll [" - ", " | ", " · ", " "] str)
           in  concatMap (\(color, str) ->
                   printf "<fc=%s>%s</fc> " color str) components
 
-- 
cgit