templates/transfers.hamlet


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

<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};">