From 9a1177a87b0c58168b2975705f1adf08f1a70251 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 9 Nov 2025 09:25:40 -0500 Subject: Move namespace label between status and title in tree view Changed tree output format from: t-abc123 [ ] Task title [Omni/Task.hs] To: t-abc123 [ ] [Omni/Task.hs] Task title This makes the namespace more prominent and groups all metadata (status + namespace) together before the title. --- Omni/Task/Core.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs index ef60ead..b322ea9 100644 --- a/Omni/Task/Core.hs +++ b/Omni/Task/Core.hs @@ -289,15 +289,15 @@ showTaskTree maybeId = do Done -> "[✓]" nsStr = case taskNamespace task of Nothing -> "" - Just ns -> " [" <> ns <> "]" + Just ns -> "[" <> ns <> "] " -- Calculate available width for title (80 cols - prefix - id - labels) - usedWidth = T.length prefix + T.length (taskId task) + T.length typeStr + T.length statusStr + T.length nsStr + 3 + usedWidth = T.length prefix + T.length (taskId task) + T.length typeStr + T.length statusStr + T.length nsStr + 2 availableWidth = max 20 (80 - usedWidth) truncatedTitle = if T.length (taskTitle task) > availableWidth then T.take (availableWidth - 3) (taskTitle task) <> "..." else taskTitle task - putText <| prefix <> taskId task <> " " <> typeStr <> statusStr <> " " <> truncatedTitle <> nsStr + putText <| prefix <> taskId task <> " " <> typeStr <> statusStr <> " " <> nsStr <> truncatedTitle -- Find and print children (tasks with this task as parent) let children = filter (\t -> taskParent t == Just (taskId task)) allTasks -- cgit v1.2.3