merge two repository screens into one

Assistant/WebApp/Configurators.hs

@@ -49,20 +49,13 @@ getConfigR = ifM (inFirstRun)
 		$(widgetFile "configurators/main")
 	)
 
-{- Lists different types of repositories that can be added. -}
+{- Lists known repositories, followed by options to add more. -}
-getAddRepositoryR :: Handler RepHtml
+getRepositoriesR :: Handler RepHtml
-getAddRepositoryR = bootstrap (Just Config) $ do
+getRepositoriesR = bootstrap (Just Config) $ do
 	sideBarDisplay
-	setTitle "Add repository"
+	setTitle "Repositories"
-	$(widgetFile "configurators/addrepository")
-
-{- Lists known repositories. -}
-getListRepositoriesR :: Handler RepHtml
-getListRepositoriesR = bootstrap (Just Config) $ do
-	sideBarDisplay
-	setTitle "Repository list"
 	repolist <- lift repoList
-	$(widgetFile "configurators/listrepositories")
+	$(widgetFile "configurators/repositories")
 
 {- A numbered list of known repositories, including the current one. -}
 repoList :: Handler [(String, String)]
@@ -217,7 +210,7 @@ getAddDriveR = bootstrap (Just Config) $ do
 		FormSuccess (RemovableDrive { mountPoint = d }) -> lift $ do
 			go $ T.unpack d
 			setMessage $ toHtml $ T.unwords ["Added", d]
-			redirect ListRepositoriesR
+			redirect RepositoriesR
 		_ -> do
 			let authtoken = webAppFormAuthToken
 			$(widgetFile "configurators/adddrive")

Assistant/WebApp/routes

@@ -4,10 +4,9 @@
 /about AboutR GET
 
 /config ConfigR GET
-/config/repository/add AddRepositoryR GET
+/config/repository RepositoriesR GET
 /config/repository/add/drive AddDriveR GET
 /config/repository/first FirstRepositoryR GET
-/config/repository/list ListRepositoriesR GET
 
 /transfers/#NotificationId TransfersR GET
 /sidebar/#NotificationId SideBarR GET

templates/configurators/intro.hamlet

@@ -8,7 +8,7 @@
         repositories on your devices ...
         <h2>
           But no other repositories are set up yet.
-        <a .btn .btn-primary .btn-large href="@{AddRepositoryR}">Add another repository</a>
+        <a .btn .btn-primary .btn-large href="@{RepositoriesR}">Add another repository</a>
       $else
         $if barelyenough
           <span .badge .badge-warning>#{numrepos}</span>
@@ -23,6 +23,6 @@
                   #{num}
                 <td>
                   #{name}
-        <a .btn .btn-primary .btn-large href="@{AddRepositoryR}">Add another repository</a>
+        <a .btn .btn-primary .btn-large href="@{RepositoriesR}">Add another repository</a>
         <p>
           Or just sit back, watch the magic, and get on with using your files.

templates/configurators/listrepositories.hamlet

@@ -1,9 +0,0 @@
-<div .span9>
-  <table .table .table-striped .table-condensed>
-    <tbody>
-      $forall (num, name) <- repolist
-        <tr>
-          <td>
-            #{num}
-          <td>
-            #{name}

templates/configurators/main.hamlet

@@ -2,14 +2,8 @@
   <div .row-fluid>
     <div .span4>
       <h3>
-        <a href="@{AddRepositoryR}">
+        <a href="@{RepositoriesR}">
-          Add repositories
+          Manage repositories
      <p>
-       Distribute the files in this repository to other devices;
+       Distribute the files in this repository to other devices,
-       make backups; and more by adding repositories.
+       make backups, and more, by adding repositories.
-    <div .span4>
-      <h3>
-        <a href="@{ListRepositoriesR}">
-          Repository list
-     <p>
-       An overview of your repositories.

templates/configurators/repositories.hamlet

@@ -1,9 +1,21 @@
 <div .span9>
+  <h2>
+    Your repositories
+  <table .table .table-condensed>
+    <tbody>
+      $forall (num, name) <- repolist
+        <tr>
+          <td>
+            #{num}
+          <td>
+            #{name}
+  <h2>
+    Add more repositories
   <div .row-fluid>
     <div .span4>
       <h3>
         <a href="@{AddDriveR}">
-          Add a removable drive
+          <i .icon-plus></i> Removable drive
       <p>
         Clone this repository to a USB drive, memory stick, or other #
         removable media.
@@ -13,15 +25,15 @@
         between computers. 
     <div .span4>
       <h3>
-        Pair with a local computer
+        <i .icon-plus></i> Local computer
       <p>
-        Automatically keep files in sync between computers on your #
+        Pair with a local computer to automatically keep files in sync #
-        local network.
+        between computers on your local network.
       <p>
         For easy sharing with family and friends, or between your devices.
     <div .span4>
       <h3>
-        Connect to your phone
+        <i .icon-plus></i> Phone
       <p>
         Save photos and recordings from your phone.
       <p>
@@ -29,7 +41,7 @@
   <div .row-fluid>
     <div .span4>
       <h3>
-        Store data in the cloud
+        <i .icon-plus></i> The cloud
       <p>
         Store your data on a third-party cloud platform, #
         including Amazon S3, Box.com, and Rsync.net.
@@ -38,7 +50,7 @@
         With strong encryption to protect your privacy.
     <div .span4>
       <h3>
-        Clone to a remote server
+        <i .icon-plus></i> Remote server
       <p>
         Set up a repository on a remote server using #
         <tt>ssh</tt> or <tt>rsync</tt>.

templates/page.hamlet

@@ -17,7 +17,7 @@
               Current Repository: #{reldir}
               <b .caret></b>
             <ul .dropdown-menu>
-               <li><a href="@{AddRepositoryR}">Add another repository</a></li>
+               <li><a href="@{RepositoriesR}">Add another repository</a></li>
       $nothing
 <div .container-fluid>
   <div .row-fluid>