~singpolyma/cheogram

cae1c87eabb6c43bd2e65e1e1fd976a399a8dac6 — Stephen Paul Weber 6 years ago e44d99c
Show room and nick in /who output

Closes #18
1 files changed, 6 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +6 -1
@@ 592,7 592,12 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d
		Just Who -> do
			let room = maybe "" (T.unpack . bareTxt) existingRoom
			presence <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (room <> "\0presence"))
			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ "Group participants: " <> intercalate ", " presence
			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ mconcat [
					"You are joined to ", room,
					" as ", T.unpack nick,
					" along with\n",
					intercalate ", " presence
				]
		Just List -> do
			bookmarks <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (tcKey tel "bookmarks"))
			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ "Groups you can /join\n" <> intercalate "\n" bookmarks