Integrated ConsoleWriter stub for console messages and presence.

1 files changed, 22 insertions, 0 deletions

diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs
new file mode 100644
index 00000000..58474da2
--- /dev/null
+++ b/Presence/ConsoleWriter.hs
@@ -0,0 +1,22 @@
+module ConsoleWriter where
+
+import XMPPServer ( Stanza )
+import Control.Concurrent.STM
+
+data ConsoleWriter = ConsoleWriter { cwPresenceChan :: TChan Stanza }
+
+newConsoleWriter :: IO ConsoleWriter
+newConsoleWriter = do
+    chan <- atomically newBroadcastTChan
+    return ConsoleWriter { cwPresenceChan = chan }
+
+writeActiveTTY :: ConsoleWriter -> Stanza -> IO Bool
+writeActiveTTY cw msg = do
+    -- TODO: deliver to active console if not x
+    -- TODO: deliver to active x (notify-send of libnotify package)
+    --         chpst seems neccessary for notify-send to work
+    return False -- return True if a message was delivered
+
+writeAllPty :: ConsoleWriter -> Stanza -> IO Bool
+writeAllPty cw msg = do
+    return False -- return True if a message was delivered