More client functions

3 files changed, 33 insertions, 1 deletions

diff --git a/templates/default-layout.cassius b/templates/default-layout.cassius
index 31389d8..e3aaa52 100644
--- a/templates/default-layout.cassius
+++ b/templates/default-layout.cassius
@@ -47,7 +47,7 @@ table table td, table table th, .table table td, .table table th
     margin: 0
   .formError
     color: #800
-  .printSuccess, .insertSuccess
+  .printSuccess, .insertSuccess, .appendSuccess, .saveSuccess
     color: #080
   .insertAmbiguous
     color: inherit
diff --git a/templates/list.cassius b/templates/list.cassius
new file mode 100644
index 0000000..5a4c58d
--- /dev/null
+++ b/templates/list.cassius
@@ -0,0 +1,4 @@
+#listActions form
+  display: block
+  div
+    display: inline-block
\ No newline at end of file
diff --git a/templates/list.hamlet b/templates/list.hamlet
new file mode 100644
index 0000000..a69ef1d
--- /dev/null
+++ b/templates/list.hamlet
@@ -0,0 +1,28 @@
+<div .table .main>
+  <div .tr .sepBelow>
+    <div .td>Item
+    <div .td>Type
+  $forall WithType item itemType <- Set.toAscList list
+    <div .tr .color>
+      <div .td .kind>#{item}
+      <div .td .type>#{itemType}
+    <form method=post enctype=#{nDraftEnc} .sepAbove .tr>
+      <div .td>
+        ^{nDraftView}
+      <div .td>
+        <button type=submit :Set.null list:disabled>
+          Save
+    $if not (null drafts')
+      <form method=post enctype=#{oDraftEnc} .tr>
+        <div .td>
+          ^{oDraftView}
+        <div .td>
+          <button type=submit :Set.null list:disabled>
+            Append
+    $if not (null printers')
+      <form method=post enctype=#{printEnc} .tr>
+        <div .td>
+          ^{printView}
+        <div .td>
+          <button type=submit :Set.null list:disabled>
+            Print