wip

hbs2-cli/hbs2-cli.cabal

@@ -111,6 +111,7 @@ library
       HBS2.CLI.Run.Help
 
     build-depends:    base
+                    , magic
 
     hs-source-dirs:   lib
 

hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs

@@ -25,6 +25,10 @@ import Data.Maybe
 import Data.Text.Encoding qualified as TE
 import Data.Text qualified as Text
 
+import Magic.Data
+import Magic.Init       (magicLoadDefault,magicOpen)
+import Magic.Operations (magicFile)
+
 {- HLINT ignore "Functor law" -}
 
 metaFromSyntax :: [Syntax c] -> HashMap Text Text
@@ -120,6 +124,15 @@ metaDataEntries = do
           StringLike rest  -> notice $ "FILE" <+> pretty rest
           _ -> pure ()
 
+        -- meta <- liftIO do
+        --           magic <- magicOpen [MagicMimeType,MagicMime,MagicMimeEncoding]
+        --           magicLoadDefault magic
+        --           mime <- magicFile magic fn
+
+        --           pure [ "file-name:" <+> dquotes (pretty $ takeFileName fn)
+        --                , "mime-type:" <+> dquotes (pretty mime)
+        --                ]
+
         error $ show $ pretty args
 
   entry $ bindMatch "cbor:base58" $ \case