Added \r to tty writes.

1 files changed, 8 insertions, 2 deletions

diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs
index e295a72b..2a77394f 100644
--- a/Presence/ConsoleWriter.hs
+++ b/Presence/ConsoleWriter.hs
@@ -237,6 +237,12 @@ deliverGUIMessage cw tty utmp msg = do
         exitImmediately ExitSuccess
     return True
 
+crlf :: Text -> Text
+crlf t = Text.unlines $ map cr (Text.lines t)
+ where
+    cr t | Text.last t == '\r'  = t
+         | otherwise            = t <> "\r"
+
 deliverTerminalMessage cw tty utmp msg = do
     mode <- fmap fileMode (getFileStatus $ Text.unpack tty)
     let mesgy = mode .&. 0o020 /= 0 -- verify mode g+w
@@ -245,8 +251,8 @@ deliverTerminalMessage cw tty utmp msg = do
         t <- messageText msg
         return $ Text.unpack
             $ case stanzaFrom msg of
-                Just from -> from <> " says...\n" <> t <> "\n"
-                Nothing -> t <> "\n"
+                Just from -> from <> " says...\r\n" <> crlf t <> "\r\n"
+                Nothing -> crlf t <> "\r\n"
     writeFile (Text.unpack tty) text
     return True -- return True if a message was delivered