00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Support non-fa site icons by giving sites an actual name separate from their icon class

Browse source
This commit is contained in:
Danielle McLean 2017-10-10 22:41:49 +11:00
parent 18ffe8ea4d
commit 09731053c2
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
5 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Widget/Card.hs
View file

@ -16,7 +16,7 @@ arrangeProfiles :: [Profile] -> M.Map (Key Site) (Site, Template) -> [((Site, Te
arrangeProfiles profiles sites = sortBy icon $ zip profileSites profiles
where findSite = fromJust . flip M.lookup sites . profileSiteId
profileSites = findSite <$> profiles
icon = comparing $ siteIcon . fst . fst
icon = comparing $ siteName . fst . fst
prettyPgp :: PgpKey -> Text
prettyPgp = T.unwords . T.chunksOf 4 . pgpKeyFingerprint