summaryrefslogtreecommitdiff
path: root/templates/transfers.hamlet
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-29 03:23:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-29 03:23:17 -0400
commit62dac858807da8fb62ce55adbed84cfe582367b2 (patch)
treeca84c8b1eac3a35c576e9ff7117b53c1ffd5c2e0 /templates/transfers.hamlet
parente96107caf3745d658a36e0ad7716dd07a57657a2 (diff)
update the sidebar by long polling
Needs to use a different NotificationBroadcaster, and not replace the whole sidebar div, but instead add in new content. However, it's 3:30 am.
Diffstat (limited to 'templates/transfers.hamlet')
-rw-r--r--templates/transfers.hamlet53
1 files changed, 26 insertions, 27 deletions
diff --git a/templates/transfers.hamlet b/templates/transfers.hamlet
index 417ba3d62..bc69d7f87 100644
--- a/templates/transfers.hamlet
+++ b/templates/transfers.hamlet
@@ -1,30 +1,29 @@
-<span ##{ident}>
- <div .span9>
- $if null transfers
- <h2>No current transfers
- $else
- <h2>Transfers
- $forall (transfer, info) <- transfers
- $with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
- <div .row-fluid>
- <h3>
- $maybe file <- associatedFile info
- #{file}
- $nothing
- #{show $ transferKey transfer}
- $case transferDirection transfer
- $of Upload
- &rarr;
- $of Download
- &larr;
- <small>#{maybe "unknown" Remote.name $ transferRemote info}</small>
- $with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
- $if isJust $ startedTime info
- <small .pull-right><b>#{percent} of #{size}</b></small>
- $else
- <small .pull-right>queued (#{size})</small>
- <div .progress .progress-striped>
- <div .bar style="width: #{percent};">
+<div .span9 ##{ident}>
+ $if null transfers
+ <h2>No current transfers
+ $else
+ <h2>Transfers
+ $forall (transfer, info) <- transfers
+ $with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
+ <div .row-fluid>
+ <h3>
+ $maybe file <- associatedFile info
+ #{file}
+ $nothing
+ #{show $ transferKey transfer}
+ $case transferDirection transfer
+ $of Upload
+ &rarr;
+ $of Download
+ &larr;
+ <small>#{maybe "unknown" Remote.name $ transferRemote info}</small>
+ $with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
+ $if isJust $ startedTime info
+ <small .pull-right><b>#{percent} of #{size}</b></small>
+ $else
+ <small .pull-right>queued (#{size})</small>
+ <div .progress .progress-striped>
+ <div .bar style="width: #{percent};">
$if warnNoScript
<noscript>
<div .navbar .navbar-fixed-bottom>