From a1c634a56aefa84668fc5bfde6845824ecc48bac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 11 Jul 2025 21:41:05 +0200
Subject: Command to show current identity details

Changelog: Added `/identity` command to show details of current identity
---
 README.md    |  3 +++
 main/Main.hs | 27 +++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/README.md b/README.md
index 8957dd7..f7ad6ae 100644
--- a/README.md
+++ b/README.md
@@ -216,6 +216,9 @@ target device with `/<number>`.
 : Drop the currently selected peer. Afterwards, the connection can be
   re-established by either side.
 
+`/identity`  
+: Show details of current identity
+
 `/update-identity`  
 : Interactively update current identity information
 
diff --git a/main/Main.hs b/main/Main.hs
index 64ba3b8..aeae7ba 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -261,6 +261,14 @@ main = do
             Nothing -> error "ref does not exist"
             Just ref -> print $ storedGeneration (wrappedLoad ref :: Stored Object)
 
+        [ "identity" ] -> do
+            loadHeads st >>= \case
+                (h : _) -> do
+                    T.putStr $ showIdentityDetails $ headLocalIdentity h
+                [] -> do
+                    T.putStrLn "no local state head"
+                    exitFailure
+
         ["update-identity"] -> do
             withTerminal noCompletion $ \term -> do
                 either (fail . showErebosError) return <=< runExceptT $ do
@@ -543,6 +551,7 @@ getSelectedOrManualContext = do
 commands :: [(String, Command)]
 commands =
     [ ("history", cmdHistory)
+    , ("identity", cmdIdentity)
     , ("peers", cmdPeers)
     , ("peer-add", cmdPeerAdd)
     , ("peer-add-public", cmdPeerAddPublic)
@@ -696,6 +705,24 @@ cmdHistory = void $ do
         [] -> do
             cmdPutStrLn $ "<empty history>"
 
+showIdentityDetails :: Foldable f => Identity f -> Text
+showIdentityDetails identity = T.unlines $ go $ reverse $ unfoldOwners identity
+  where
+    go (i : is) = concat
+        [ maybeToList $ ("Name: " <>) <$> idName i
+        , map (("Ref: " <>) . T.pack . show . refDigest . storedRef) $ idDataF i
+        , map (("ExtRef: " <>) . T.pack . show . refDigest . storedRef) $ filter isExtension $ idExtDataF i
+        , do guard $ not (null is)
+             "" : "Device:" : map ("  " <>) (go is)
+        ]
+    go [] = []
+    isExtension x = case fromSigned x of BaseIdentityData {} -> False
+                                         _ -> True
+
+cmdIdentity :: Command
+cmdIdentity = do
+    cmdPutStrLn . T.unpack . showIdentityDetails . localIdentity . fromStored =<< getLocalHead
+
 cmdUpdateIdentity :: Command
 cmdUpdateIdentity = void $ do
     term <- asks ciTerminal
-- 
cgit v1.2.3