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

upper-case first char of buddy name

Browse source
This commit is contained in:
Joey Hess 2012-11-12 13:27:30 -04:00
parent 5ab6219436
commit e10137b4da
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/XMPP/Buddies.hs
View file

@ -23,6 +23,10 @@ genBuddyKey j = BuddyKey $ formatJID $ baseJID j
buddyName :: JID -> Text buddyName :: JID -> Text
buddyName j = maybe (T.pack "") strNode (jidNode j) buddyName j = maybe (T.pack "") strNode (jidNode j)
ucFirst :: Text -> Text
ucFirst s = let (first, rest) = T.splitAt 1 s
in T.concat [T.toUpper first, rest]
{- Summary of info about a buddy. {- Summary of info about a buddy.
- -
- If the buddy has no clients at all anymore, returns Nothing. -} - If the buddy has no clients at all anymore, returns Nothing. -}