From 9ffe06a1ddbbd91cd0c8aed8d0c8670843a40c4f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 21 May 2024 06:26:41 +0300
Subject: [PATCH] wip

---
 fixme-new/lib/Fixme/Run.hs | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index 08d004f1..e8294f16 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -522,8 +522,14 @@ list_ tpl a = do
         liftIO $ hPutDoc stdout what
 
 
-cat_ :: FixmePerks m => Text -> FixmeM m ()
-cat_ hash = do
+catFixmeMetadata :: FixmePerks m => Text -> FixmeM m ()
+catFixmeMetadata = cat_ True
+
+catFixme :: FixmePerks m => Text -> FixmeM m ()
+catFixme = cat_ False
+
+cat_ :: FixmePerks m => Bool -> Text -> FixmeM m ()
+cat_ metaOnly hash = do
 
   (before,after)  <- asks fixmeEnvCatContext >>= readTVarIO
   gd  <- fixmeGetGitDirCLIOpt
@@ -541,6 +547,11 @@ cat_ hash = do
 
       Fixme{..} <- ContT $ maybe1 fme' (pure ())
 
+      when metaOnly do
+        for_ (HM.toList fixmeAttr) $ \(k,v) -> do
+          liftIO $ print $ (pretty k <+> pretty v)
+        exit ()
+
       let gh' = HM.lookup "blob" fixmeAttr
 
       -- FIXME: define-fallback-action
@@ -768,8 +779,12 @@ run what = do
           debug $ "list" <+> pretty n
           list_ n whatever
 
+
+        ListVal [SymbolVal "cat", SymbolVal "metadata", FixmeHashLike hash] -> do
+          catFixmeMetadata hash
+
         ListVal [SymbolVal "cat", FixmeHashLike hash] -> do
-          cat_ hash
+          catFixme hash
 
         ListVal [SymbolVal "delete", FixmeHashLike hash] -> do
           delete hash