c8e1e3dada
To prevent any further mistakes like 301aff34c4
This commit was sponsored by Francois Marier on Patreon.
40 lines
1.9 KiB
Text
40 lines
1.9 KiB
Text
<div ##{ident}>
|
|
<h2>Transfers
|
|
$if transfersrunning
|
|
$forall (transfer, info) <- transfers
|
|
$with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
|
|
<div .row>
|
|
<div .col-sm-10>
|
|
<h3 .forcewrap .small-margin-top .tiny-margin-bottom>
|
|
#{desc transfer info}
|
|
$case transferDirection transfer
|
|
$of Upload
|
|
→
|
|
$of Download
|
|
←
|
|
<small>
|
|
<a href="@{EditRepositoryR $ RepoUUID $ transferUUID transfer}">
|
|
#{maybe "unknown" Remote.name $ transferRemote info}
|
|
$with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
|
|
$if isJust $ startedTime info
|
|
$if isrunning info
|
|
<span .pull-right><b>#{percent} of #{size}</b>
|
|
$else
|
|
<span .pull-right>paused at #{percent} of #{size}
|
|
$else
|
|
<span .pull-right>queued (#{size})
|
|
<div .progress .progress-striped .small-margin-bottom>
|
|
<div .progress-bar style="width: #{percent};">
|
|
<div .btn-group .col-sm-2 .small-margin-top>
|
|
$if isrunning info
|
|
^{actionButton (PauseTransferR transfer) Nothing (Just "pause") "btn btn-default btn-sm" "glyphicon-pause"}
|
|
$else
|
|
^{actionButton (StartTransferR transfer) Nothing (Just "continue") "btn btn-default btn-sm" "glyphicon-play"}
|
|
^{actionButton (CancelTransferR transfer) Nothing (Just "cancel") "btn btn-default btn-sm" "glyphicon-remove"}
|
|
$if scanrunning
|
|
<img src="@{StaticR activityicon_gif}" alt=""> #
|
|
Scanning for files to transfer
|
|
$else
|
|
$if (not transfersrunning)
|
|
<i>
|
|
(No file transfers running)
|