From d738cbb9e4c6189147ecd85cf77dd6402c67c6b0 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sat, 20 Apr 2024 20:01:21 +0300
Subject: [PATCH] wip, code browse

---
 hbs2-tests/hbs2-tests.cabal        | 1 +
 hbs2-tests/test/playground/Main.hs | 8 +++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/hbs2-tests/hbs2-tests.cabal b/hbs2-tests/hbs2-tests.cabal
index 0eb62ee5..a54d843d 100644
--- a/hbs2-tests/hbs2-tests.cabal
+++ b/hbs2-tests/hbs2-tests.cabal
@@ -949,6 +949,7 @@ executable test-playground
         , skylighting-core
         , skylighting
         , skylighting-lucid
+        , lucid
         , text
 
 
diff --git a/hbs2-tests/test/playground/Main.hs b/hbs2-tests/test/playground/Main.hs
index 19fdd016..8fbca5fc 100644
--- a/hbs2-tests/test/playground/Main.hs
+++ b/hbs2-tests/test/playground/Main.hs
@@ -19,11 +19,14 @@ import Skylighting.Core
 import Skylighting.Types
 import Skylighting.Syntax
 import Skylighting.Tokenizer
+import Skylighting.Format.HTML.Lucid as Lucid
+import Lucid qualified as Lucid
 
 import Skylighting
 import Data.Text (Text)
 import Data.Text qualified as Text
 import qualified Data.Text.IO as Text
+import qualified Data.Text.Lazy.IO as LT
 
 -- желаемое поведение: добавить в новую версию A какое-нибудь поле так,
 -- что бы предыдущие записи продолжали десериализоваться без этого поля,
@@ -142,7 +145,10 @@ main = do
           case tokenize config syntax code of
               Left err -> putStrLn $ "Ошибка токенизации: " ++ show err
               Right tokens -> do
-                  mapM_ print tokens
+                  let fo = defaultFormatOpts { numberLines = False, ansiColorLevel = ANSI256Color  }
+                  let code = Lucid.formatHtmlBlock fo tokens
+                  let txt = Lucid.renderText code
+                  LT.putStrLn txt
 
 
 main' :: IO ()