diff options
Diffstat (limited to 'Omni/Task/Core.hs')
| -rw-r--r-- | Omni/Task/Core.hs | 6 |
1 files 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 |