congyu/Hakysidian
1
Fork 0
Code Issues Pull Requests Activity

fix a tui bug

Browse Source
This commit is contained in:
丛宇
2026-03-26 15:57:32 +08:00
parent d4629ec8e7
commit 55719f3444
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/site.hs
View File

@@ -324,10 +324,10 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu
border = "+" ++ replicate (cols - 2) '-' ++ "+" border = "+" ++ replicate (cols - 2) '-' ++ "+"
infoRows = infoRows =
[ dashboardRow cols ("Project : " ++ projectRoot), [ dashboardRow cols ("Project : " ++ projectRoot),
dashboardRow cols ("Output : " ++ destinationDirectory config), -- dashboardRow cols ("Output : " ++ destinationDirectory config),
dashboardRow cols ("Preview : " ++ renderServerStatus watchSettings serverStatus), dashboardRow cols ("Preview : " ++ renderServerStatus watchSettings serverStatus),
dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)", -- dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)",
dashboardRow cols ("Change : " ++ dashboardLastChange dashboard), -- dashboardRow cols ("Change : " ++ dashboardLastChange dashboard),
dashboardRow cols ("Build : " ++ dashboardLastBuild dashboard) dashboardRow cols ("Build : " ++ dashboardLastBuild dashboard)
] ]
headerRows = headerRows =
@@ -345,7 +345,7 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu
takeLast availableLogRows (dashboardLogLines dashboard) takeLast availableLogRows (dashboardLogLines dashboard)
screenRows = take rows (headerRows ++ logRows ++ footerRows) screenRows = take rows (headerRows ++ logRows ++ footerRows)
putStr "\ESC[2J\ESC[H" putStr "\ESC[2J\ESC[H"
putStr (unlines screenRows) putStr (intercalate "\n" screenRows)
hFlush stdout hFlush stdout
writeIORef renderStateRef currentRenderState writeIORef renderStateRef currentRenderState