mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

maxsize overview display and --json support

Browse source
This commit is contained in:
Joey Hess 2024-08-18 11:18:16 -04:00
parent 016edcf437
commit 99514f9d18
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 109 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Messages.hs
View file

@ -55,6 +55,7 @@ module Messages (
mkPrompter,
sanitizeTopLevelExceptionMessages,
countdownToMessage,
enableNormalOutput,
) where
import Control.Concurrent
@ -87,9 +88,7 @@ showStartMessage (StartMessage command ai si) =
where
json = JSON.startActionItem command ai si
showStartMessage (StartUsualMessages command ai si) = do
outputType <$> Annex.getState Annex.output >>= \case
QuietOutput -> Annex.setOutput NormalOutput
_ -> noop
enableNormalOutput
showStartMessage (StartMessage command ai si)
showStartMessage (StartNoMessage _) = noop
showStartMessage (CustomOutput _) =
@ -379,3 +378,9 @@ countdownToMessage n showmsg
| otherwise = do
let !n' = pred n
return n'
enableNormalOutput :: Annex ()
enableNormalOutput =
outputType <$> Annex.getState Annex.output >>= \case
QuietOutput -> Annex.setOutput NormalOutput
_ -> noop