urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 11:24:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

kh: respect slog priority

Browse Source 
When printing slogs, if priority is greater than zero, prefix with '>'
characters, and adjust the slog color.
This commit is contained in:
fang 2021-06-17 23:48:48 +02:00
parent eadd7aad01
commit 288c2121d1
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/hs/urbit-king/lib/Urbit/Vere/Term.hs
View File

@ -307,13 +307,24 @@ localClient doneSignal = fst <$> mkRAcquire start stop
writeSlog ls slog = do
TermSize width height <- readTVarIO termSizeVar
T.hijack (fromIntegral height) do
-- TODO: Ignoring priority for now. Priority changes the color of,
-- and adds a prefix of '>' to, the output.
let lines = fmap unTape $ wash (WashCfg 0 width) $ tankTree $ snd slog
T.putCsi 'm' [90] --NOTE print slogs in grey
let lines = fmap (pref . unTape) $
wash (WashCfg 0 width) $ tankTree $ snd slog
T.putCsi 'm' styl
forM (intersperse "\n" lines) $ \line -> putStr line
T.putCsi 'm' [0]
pure ls
where
prio = fromIntegral $ fst slog
maxp = 3
styl
| prio == 3 = [31]
| prio == 2 = [33]
| prio == 1 = [32]
| otherwise = [90]
pref
| prio > 0 && prio <= maxp =
((replicate prio '>' ++ replicate (1 + maxp - prio) ' ') ++)
| otherwise = id
{-
Figure out how long to wait to show the spinner. When we