git-annex/templates/dashboard/transfers.hamlet

<div .span9 ##{ident}>
  $maybe reldir <- relDir webapp
    <div .alert .alert-info>
      <p>
        git-annex is watching over your files in #
        <small><tt>#{reldir}</tt></small>, #
        and keeping them in sync with other repositories.
  $if null transfers
  $else
    <h2>Transfers
    $forall (transfer, info) <- transfers
      $with percent <- maybe "unknown" (showPercentage 0) $ percentComplete transfer info
        <div .row-fluid>
          <div .span10>
            <div .row-fluid>
              <h3>
                $maybe file <- associatedFile info
                  #{file}
                $nothing
                  #{key2file $ transferKey transfer}
                $case transferDirection transfer
                  $of Upload
                    &rarr;
                  $of Download
                    &larr;
                <small>
                  <a href="@{EditRepositoryR $ 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"}
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			`<div .span9 ##{ident}>`
add a alert at the top of the main part of the webapp, above the transfers display Based on feedback that it was too sparse to be clear what it's doing. 2012-09-28 17:30:29 +00:00			`$maybe reldir <- relDir webapp`
			`<div .alert .alert-info>`
			`<p>`
			`git-annex is watching over your files in #`
			`<small><tt>#{reldir}</tt></small>, #`
			`and keeping them in sync with other repositories.`
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			`$if null transfers`
			`$else`
			`<h2>Transfers`
			`$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>`
			`<h3>`
			`$maybe file <- associatedFile info`
			`#{file}`
			`$nothing`
add routes to pause/start/cancel transfers This commit includes a paydown on technical debt incurred two years ago, when I didn't know that it was bad to make custom Read and Show instances for types. As the routes need Read and Show for Transfer, which includes a Key, and deriving my own Read instance of key was not practical, I had to finally clean that up. So the compact Key read and show functions are now file2key and key2file, and Read and Show are now derived instances. Changed all code that used the old instances, compiler checked. (There were a few places, particularly in Command.Unused, and the test suite where the Show instance continue to be used for legitimate comparisons; ie show key_x == show key_y (though really in a bloom filter)) 2012-08-08 20:06:01 +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>`
			`<a href="@{EditRepositoryR $ transferUUID transfer}">`
			`#{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"}`