From d1a81e08acb2fc34a2a1f72fde979fbe66dea24e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 22 May 2019 21:09:15 +0200
Subject: Simple identity name formatting

---
 src/Identity.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Identity.hs')

diff --git a/src/Identity.hs b/src/Identity.hs
index ff63353..96346d8 100644
--- a/src/Identity.hs
+++ b/src/Identity.hs
@@ -2,9 +2,12 @@ module Identity (
     Identity, IdentityData(..),
     emptyIdentity,
     finalOwner,
+    displayIdentity,
 ) where
 
+import Data.Maybe
 import Data.Text (Text)
+import qualified Data.Text as T
 
 import PubKey
 import Storage
@@ -51,3 +54,9 @@ unfoldOwners cur = cur : case idOwner $ fromStored $ signedData $ fromStored cur
 
 finalOwner :: Stored Identity -> Stored Identity
 finalOwner = last . unfoldOwners
+
+displayIdentity :: Stored Identity -> Text
+displayIdentity sidentity = T.concat
+    [ T.intercalate (T.pack " / ") $ map (fromMaybe (T.pack "<unnamed>") . idName . fromStored . signedData . fromStored) owners
+    ]
+    where owners = reverse $ unfoldOwners sidentity
-- 
cgit v1.2.3