From 8afb1a4dec103f44fe9bd80f58c3dd2ad06985ae Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 14 Mar 2014 15:31:40 -0400 Subject: Integrated ConsoleWriter stub for console messages and presence. --- Presence/ConsoleWriter.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 Presence/ConsoleWriter.hs (limited to 'Presence') 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 -- cgit v1.2.3