makeXmobarPPTop :: ScreenId -> PP
makeXmobarPPTop screenId =
  def
    { ppSep = magenta " • ",
      ppTitleSanitize = xmobarStrip,
      ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2,
      ppHidden = white . wrap " " "",
      ppHiddenNoWindows = lowWhite . wrap " " "",
      ppUrgent = red . wrap (yellow "!") (yellow "!"),
      ppOrder = \[ws, l, _, wins] -> [ws],
      ppExtras = [(logTitlesOnScreen screenId) formatFocused formatUnfocused]
    }
  where
    formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
    formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow

    -- \| Windows should have *some* title, which should not not exceed a
    -- sane length.
    ppWindow :: String -> String
    ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30

    blue, lowWhite, magenta, red, white, yellow :: String -> String
    magenta = xmobarColor "#ff79c6" ""
    blue = xmobarColor "#bd93f9" ""
    white = xmobarColor "#f8f8f2" ""
    yellow = xmobarColor "#f1fa8c" ""
    red = xmobarColor "#ff5555" ""
    lowWhite = xmobarColor "#bbbbbb" ""

makeXmobarPPBottom :: ScreenId -> PP
makeXmobarPPBottom screenId =
  def
    { ppSep = magenta " • ",
      ppTitleSanitize = xmobarStrip,
      ppCurrent = wrap " " "" . xmobarBorder "Bottom" "#8be9fd" 2,
      ppHidden = white . wrap " " "",
      ppHiddenNoWindows = lowWhite . wrap " " "",
      ppUrgent = red . wrap (yellow "!") (yellow "!"),
      ppOrder = \[ws, l, _, wins] -> [l, wins],
      ppExtras = [(logTitlesOnScreen screenId) formatFocused formatUnfocused]
    }
  where
    formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
    formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow

    -- \| Windows should have *some* title, which should not not exceed a
    -- sane length.
    ppWindow :: String -> String
    ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30

    blue, lowWhite, magenta, red, white, yellow :: String -> String
    magenta = xmobarColor "#ff79c6" ""
    blue = xmobarColor "#bd93f9" ""
    white = xmobarColor "#f8f8f2" ""
    yellow = xmobarColor "#f1fa8c" ""
    red = xmobarColor "#ff5555" ""
    lowWhite = xmobarColor "#bbbbbb" ""

topStatusBarSpawner screenId@(S s) =
    statusBarPropTo
      ("_XMONAD_LOG_" <> show s)
      ("xmobar -x " <> show s <> " ~/.config/xmobar/xmobar" <> show s <> ".hs")
      (pure $ makeXmobarPPTop screenId)

bottomStatusBarSpawner screenId@(S s) =
    statusBarPropTo
      ("_XMONAD_LOG_" <> show s)
      ("xmobar -x " <> show s <> " ~/.config/xmobar/xmobar" <> show s <> "bottom.hs")
      (pure $ makeXmobarPPBottom screenId)

-- statusBarSpawner :: ScreenId -> IO StatusBarConfig
statusBarsSpawner screenId@(S s) =
  pure $ (topStatusBarSpawner screenId) <> (bottomStatusBarSpawner screenId)