--------------------------------------------------------------------------------

statusBarPP :: PP
statusBarPP =
  def
    { ppCurrent = Icon.active,
      ppHidden = Icon.inactive,
      ppWsSep = "",
      ppTitle =
        xmobarColor Color.textTitleFg Color.textTitleBg
          . shorten 120,
      ppLayout = \case
        "Tall" -> Icon.inactiveThin "\x25E7"
        "Mirror Tall" -> Icon.inactiveThin "\x2B12"
        "Full" -> Icon.inactiveThin "\x23F9"
        l -> l,
      ppSep = " "
    }
statusBarPP :: PP
statusBarPP =
  def
    { ppCurrent = Icon.active,
      ppHidden = Icon.inactive,
      ppWsSep = "",
      ppTitle =
        xmobarColor Color.textTitleFg Color.textTitleBg
          . shorten 120,
      ppLayout = \case
        "Tall" -> Icon.inactiveThin "\x25E7"
        "Mirror Tall" -> Icon.inactiveThin "\x2B12"
        "Full" -> Icon.inactiveThin "\x23F9"
        l -> l,
      ppSep = " "
    }
statusBarPP =
  def
    { ppCurrent = Icon.active,
      ppHidden = Icon.inactive,
      ppWsSep = "",
      ppTitle =
        xmobarColor Color.textTitleFg Color.textTitleBg
          . shorten 120,
      ppLayout = \case
        "Tall" -> Icon.inactiveThin "\x25E7"
        "Mirror Tall" -> Icon.inactiveThin "\x2B12"
        "Full" -> Icon.inactiveThin "\x23F9"
        l -> l,
      ppSep = " "
    }