Use box-drawing characters

ChrisPenner · ChrisPenner · commit 5ed26850b065 · 2025-10-30T14:32:07.000-07:00
diff --git a/unison-cli/src/Unison/CommandLine/OutputMessages.hs b/unison-cli/src/Unison/CommandLine/OutputMessages.hs
@@ -307,13 +307,13 @@ notifyNumbered = \case
         Nothing -> []
         Just (HistoryComment {author, subject, content}) ->
           Monoid.whenM prefixSpacer [""]
-            <> [P.bold (P.text $ "⊙ " <> author <> " 💬")]
-            <> [ P.indent (P.blue "  > ") (P.yellow $ P.text subject)
+            <> [(P.text "⊙ " <> P.bold (P.text (author <> " 💬")))]
+            <> [ P.indent (P.blue "  ┃ ") (P.text subject)
                ]
             <> Monoid.whenM
               (not (Text.null content))
-              [ (P.blue "  > "),
-                P.indent (P.blue "  > ") (P.text content)
+              [ (P.blue "  ┃ "),
+                P.indent (P.blue "  ┃ ") (P.text content)
               ]
             <> [ ""
                ]

Original file line number	Diff line number	Diff line change
`@@ -307,13 +307,13 @@ notifyNumbered = \case`
`307`	`307`	`Nothing -> []`
`308`	`308`	`Just (HistoryComment {author, subject, content}) ->`
`309`	`309`	`Monoid.whenM prefixSpacer [""]`
`310`		`- <> [P.bold (P.text $ "⊙ " <> author <> " 💬")]`
`311`		`- <> [ P.indent (P.blue " > ") (P.yellow $ P.text subject)`
	`310`	`+ <> [(P.text "⊙ " <> P.bold (P.text (author <> " 💬")))]`
	`311`	`+ <> [ P.indent (P.blue " ┃ ") (P.text subject)`
`312`	`312`	`]`
`313`	`313`	`<> Monoid.whenM`
`314`	`314`	`(not (Text.null content))`
`315`		`- [ (P.blue " > "),`
`316`		`- P.indent (P.blue " > ") (P.text content)`
	`315`	`+ [ (P.blue " ┃ "),`
	`316`	`+ P.indent (P.blue " ┃ ") (P.text content)`
`317`	`317`	`]`
`318`	`318`	`<> [ ""`
`319`	`319`	`]`