fix a tui bug

This commit is contained in:
2026-03-26 15:57:32 +08:00
parent d4629ec8e7
commit 55719f3444
+4 -4
View File
@@ -324,10 +324,10 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu
border = "+" ++ replicate (cols - 2) '-' ++ "+"
infoRows =
[ dashboardRow cols ("Project : " ++ projectRoot),
dashboardRow cols ("Output : " ++ destinationDirectory config),
-- dashboardRow cols ("Output : " ++ destinationDirectory config),
dashboardRow cols ("Preview : " ++ renderServerStatus watchSettings serverStatus),
dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)",
dashboardRow cols ("Change : " ++ dashboardLastChange dashboard),
-- dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)",
-- dashboardRow cols ("Change : " ++ dashboardLastChange dashboard),
dashboardRow cols ("Build : " ++ dashboardLastBuild dashboard)
]
headerRows =
@@ -345,7 +345,7 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu
takeLast availableLogRows (dashboardLogLines dashboard)
screenRows = take rows (headerRows ++ logRows ++ footerRows)
putStr "\ESC[2J\ESC[H"
putStr (unlines screenRows)
putStr (intercalate "\n" screenRows)
hFlush stdout
writeIORef renderStateRef currentRenderState