git-annex/templates/dashboard/transfers.hamlet

<div ##{ident}>
  <h2>Transfers
  $if transfersrunning
    $forall (transfer, info) <- transfers
      $with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
        <div .row-fluid>
          <div .span10>
            <div .row-fluid>
              <h3 .forcewrap>
                $maybe file <- associatedFile info
                  #{file}
                $nothing
                  #{key2file $ transferKey transfer}
                $case transferDirection transfer
                  $of Upload
                    &rarr;
                  $of Download
                    &larr;
                <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
                        <small .pull-right><b>#{percent} of #{size}</b></small>
                      $else
                        <small .pull-right>paused at #{percent} of #{size}</small>
                    $else
                        <small .pull-right>queued (#{size})</small>
            <div .row-fluid>
              <div .progress .progress-striped>
                <div .bar style="width: #{percent};">
          <div .btn-group .span2>
            $if isrunning info
              ^{actionButton (PauseTransferR transfer) Nothing (Just "pause") "btn" "icon-pause"}
            $else
              ^{actionButton (StartTransferR transfer) Nothing (Just "continue") "btn" "icon-play"}
            ^{actionButton (CancelTransferR transfer) Nothing (Just "cancel") "btn" "icon-remove"}
  $if scanrunning
    <img src="@{StaticR activityicon_gif}" alt=""> #
    Scanning for files to transfer
  $else
    $if (not transfersrunning)
      <i>
        (No file transfers running)
webapp: Repository list is now included in the dashboard, and other UI tweaks. 2013-03-15 04:34:42 +00:00			`<div ##{ident}>`
			`<h2>Transfers`
move display of transfer scan in progress to transfers section of dashboard This way it's only visible when transfers are not running, which is about what a user would expect. 2013-03-19 16:51:22 +00:00			`$if transfersrunning`
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. 2012-07-29 07:23:17 +00:00			`$forall (transfer, info) <- transfers`
			`$with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info`
			`<div .row-fluid>`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`<div .span10>`
			`<div .row-fluid>`
better word wrapping 2013-03-20 22:21:43 +00:00			`<h3 .forcewrap>`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`$maybe file <- associatedFile info`
better word wrapping 2013-03-20 22:21:43 +00:00			`#{file}`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`$nothing`
better word wrapping 2013-03-20 22:21:43 +00:00			`#{key2file $ transferKey transfer}`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`$case transferDirection transfer`
			`$of Upload`
			`→`
			`$of Download`
			`←`
hyperlink to repository edit form from transfer display 2012-10-17 18:45:58 +00:00			`<small>`
webapp: Improve UI around remote that have no annex.uuid set, either because setup of them is incomplete, or because the remote git repository is not a git-annex repository. Complicated by such repositories potentially being repos that should have an annex.uuid, but it failed to be gotten, perhaps due to the past ssh repo setup bugs. This is handled now by an Upgrade Repository button. 2013-11-07 22:02:00 +00:00			`<a href="@{EditRepositoryR $ RepoUUID $ transferUUID transfer}">`
hyperlink to repository edit form from transfer display 2012-10-17 18:45:58 +00:00			`#{maybe "unknown" Remote.name $ transferRemote info}`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`$with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer`
			`$if isJust $ startedTime info`
display "paused" when transfer is paused This makes the buttons in the UI a little clearer. I'd prefer to enable the barberpole animation for running transfers, but that is jerky looking due to the way the dashboard is updated. 2012-08-29 22:34:50 +00:00			`$if isrunning info`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`<small .pull-right><b>#{percent} of #{size}</b></small>`
display "paused" when transfer is paused This makes the buttons in the UI a little clearer. I'd prefer to enable the barberpole animation for running transfers, but that is jerky looking due to the way the dashboard is updated. 2012-08-29 22:34:50 +00:00			`$else`
			`<small .pull-right>paused at #{percent} of #{size}</small>`
add pause/start and cancel buttons to transfer display 2012-08-08 18:14:19 +00:00			`$else`
			`<small .pull-right>queued (#{size})</small>`
			`<div .row-fluid>`
			`<div .progress .progress-striped>`
			`<div .bar style="width: #{percent};">`
			`<div .btn-group .span2>`
fix button display for paused transfer 2012-08-10 22:50:21 +00:00			`$if isrunning info`
add tooltips 2012-09-27 16:55:00 +00:00			`^{actionButton (PauseTransferR transfer) Nothing (Just "pause") "btn" "icon-pause"}`
fix button display for paused transfer 2012-08-10 22:50:21 +00:00			`$else`
add tooltips 2012-09-27 16:55:00 +00:00			`^{actionButton (StartTransferR transfer) Nothing (Just "continue") "btn" "icon-play"}`
			`^{actionButton (CancelTransferR transfer) Nothing (Just "cancel") "btn" "icon-remove"}`
animate syncing and other activity icons 2013-04-09 02:54:02 +00:00			`$if scanrunning`
			`<img src="@{StaticR activityicon_gif}" alt=""> #`
			`Scanning for files to transfer`
move display of transfer scan in progress to transfers section of dashboard This way it's only visible when transfers are not running, which is about what a user would expect. 2013-03-19 16:51:22 +00:00			`$else`
animate syncing and other activity icons 2013-04-09 02:54:02 +00:00			`$if (not transfersrunning)`
move display of transfer scan in progress to transfers section of dashboard This way it's only visible when transfers are not running, which is about what a user would expect. 2013-03-19 16:51:22 +00:00			`<i>`
			`(No file transfers running)`