add pause/start and cancel buttons to transfer display

This commit is contained in:
Joey Hess 2012-08-08 14:14:19 -04:00
parent fb4b19deed
commit 96950a3b40
3 changed files with 33 additions and 21 deletions

View file

@ -5,21 +5,33 @@
$forall (transfer, info) <- transfers $forall (transfer, info) <- transfers
$with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info $with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
<div .row-fluid> <div .row-fluid>
<h3> <div .span10>
$maybe file <- associatedFile info <div .row-fluid>
#{file} <h3>
$nothing $maybe file <- associatedFile info
#{show $ transferKey transfer} #{file}
$case transferDirection transfer $nothing
$of Upload #{show $ transferKey transfer}
&rarr; $case transferDirection transfer
$of Download $of Upload
&larr; &rarr;
<small>#{maybe "unknown" Remote.name $ transferRemote info}</small> $of Download
$with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer &larr;
$if isJust $ startedTime info <small>#{maybe "unknown" Remote.name $ transferRemote info}</small>
<small .pull-right><b>#{percent} of #{size}</b></small> $with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
$else $if isJust $ startedTime info
<small .pull-right>queued (#{size})</small> <small .pull-right><b>#{percent} of #{size}</b></small>
<div .progress .progress-striped> $else
<div .bar style="width: #{percent};"> <small .pull-right>queued (#{size})</small>
<div .row-fluid>
<div .progress .progress-striped>
<div .bar style="width: #{percent};">
<div .btn-group .span2>
$if isNothing (startedTime info)
<button .btn>
<i .icon-play title="start"></i>
$else
<button .btn>
<i .icon-pause title="pause"></i>
<button .btn>
<i .icon-remove title="cancel"></i>

View file

@ -14,4 +14,4 @@
Its development was made possible by # Its development was made possible by #
<a href="http://git-annex.branchable.com/design/assistant/thanks/"> <a href="http://git-annex.branchable.com/design/assistant/thanks/">
many excellent people many excellent people
. <i class="icon-heart"></i> . <i .icon-heart></i>

View file

@ -7,12 +7,12 @@
$case icon $case icon
$of Nothing $of Nothing
$of Just name $of Just name
<i class="icon-#{name}"></i> # <i .icon-#{name}></i> #
#{h} #{h}
$else $else
$case icon $case icon
$of Nothing $of Nothing
$of Just name $of Just name
<i class="icon-#{name}"></i> # <i .icon-#{name}></i> #
<strong>#{h}</strong> # <strong>#{h}</strong> #
#{message} #{message}