mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

show when a buddy is already paired

Browse source
This commit is contained in:
Joey Hess 2012-11-10 16:35:09 -04:00
parent d303190979
commit fd22734392
5 changed files with 30 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/WebApp/Configurators/XMPP.hs
View file

@ -99,8 +99,11 @@ buddyListDisplay :: Widget
buddyListDisplay = do
autoUpdate ident NotifierBuddyListR (10 :: Int) (10 :: Int)
#ifdef WITH_XMPP
buddies <- lift $ liftAssistant $ catMaybes . map buddySummary
<$> (getBuddyList <<~ buddyList)
buddies <- lift $ liftAssistant $ do
rs <- filter isXMPPRemote . syncRemotes <$> getDaemonStatus
let pairedwith = catMaybes $ map (parseJID . getXMPPClientID) rs
catMaybes . map (buddySummary pairedwith)
<$> (getBuddyList <<~ buddyList)
#else
let buddies = []
#endif