mirror of
http://101.35.51.105:3000/congyu/Hakysidian.git
synced 2026-04-27 21:40:50 +08:00
fix a tui bug
This commit is contained in:
+4
-4
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user