From 9086915e52bde12c03f03be09922441b19036034 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 15 Feb 2023 22:41:17 -0500
Subject: [PATCH] FIX don't pad all segments

---
 app/rofi-dev.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/app/rofi-dev.hs b/app/rofi-dev.hs
index 531efb8..50fb765 100644
--- a/app/rofi-dev.hs
+++ b/app/rofi-dev.hs
@@ -177,8 +177,9 @@ alignEntries ps = NE.zip (align es) as
     align =
       fmap (T.intercalate alignSep . NE.toList)
         . NE.transpose
-        . fmap padAll
+        . fmap1 padAll
         . NE.transpose
+    fmap1 f (x :| xs) = (f x) :| xs
     padAll xs = let m = maxNE $ fmap T.length xs in fmap (rpad m ' ') xs
     maxNE (x :| []) = x
     maxNE (x :| (y : ys)) = maxNE $ (max x y) :| ys