From 7bc954b779a9bc4e1c5e60f2648101c62ed22e72 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 14 Mar 2017 18:33:42 +0100
Subject: Reference & list

---
 templates/default-layout.cassius  | 44 +++++++++++++++++++++++++--------------
 templates/inventoryListing.hamlet |  4 ++--
 templates/referenceListing.hamlet | 17 +++++++++++++++
 3 files changed, 47 insertions(+), 18 deletions(-)
 create mode 100644 templates/referenceListing.hamlet

(limited to 'templates')

diff --git a/templates/default-layout.cassius b/templates/default-layout.cassius
index 492cde8..c1ccf72 100644
--- a/templates/default-layout.cassius
+++ b/templates/default-layout.cassius
@@ -1,5 +1,8 @@
+.main
+  min-width: 20em
 .table
   display: table
+  border-collapse: collapse
 .table div
   vertical-align: middle
 .td
@@ -21,25 +24,32 @@
   display: table-cell
   text-align: left
   padding: 0.25em
+.kind:only-child
+  text-align: center
 .table .table .td, .table .table .tc, .table .table .th, .table .table .kind
   padding: 0
-.error
-  background-color: #fdd
-  text-align: center
-  color: #c00
+#messages
   list-style-type: none
+  margin: 1em auto 1em 0
+  padding: 0
+  text-align: center
+  font-weight: bold
+  .formError
+    color: #800
+  .printSuccess
+    color: #080
 button
   width: 6em
-  display:inline-text
+  display: inline-block
 .day hr
   width: 2em
   border: 1px solid #ddd
   border-style: solid none solid none
-.sepBelow > div, .sepAbove > div
+.sepBelow, .sepAbove
   border: 2px none #ddd
-.sepBelow > div
+.sepBelow
   border-bottom-style: solid
-.sepAbove > div
+.sepAbove
   border-top-style: solid
 .color:nth-child(even)
   background-color: #f0f0f0
@@ -50,26 +60,28 @@ body > div
 .table > h1
   display: table-caption
 nav ul
-  display:block
+  display: block
   text-align: center
+  padding: 0
   li
-    display:inline-block
+    display: inline-block
     font-variant: small-caps
     font-size: 1.5em
     font-weight: bold
     a
-      text-decoration:none
-      color:#aaa
+      text-decoration: underline
+      color: #aaa
     a:hover
-      color:inherit
+      text-decoration: none
   li.active
     a
-      color:inherit
+      color: inherit
+      text-decoration: none
   li::before
-    content:" | "
+    content: " | "
     color: #ddd
   li:first-child::before
-    content:""
+    content: ""
 label.checkbox
   input
     vertical-align: middle
diff --git a/templates/inventoryListing.hamlet b/templates/inventoryListing.hamlet
index 7c2c06b..be80993 100644
--- a/templates/inventoryListing.hamlet
+++ b/templates/inventoryListing.hamlet
@@ -13,9 +13,9 @@
           <button type=submit>
             Insert
   $forall Entity itemId Item{..} <- stock
-    $if Just itemId == (preview updateItem =<< formState)
+    $if Just itemId == (preview updateId =<< formState)
       $with Just UpdateForm{..} <- formState
-         <form .tr .color action=@{UpdateItemR fsUpdateItem}##{toPathPiece fsUpdateItem} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateItem}>
+         <form .tr .color action=@{UpdateItemR fsUpdateId}##{toPathPiece fsUpdateId} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateId}>
            ^{fsUpdateForm}
            <div .td>
              <button type=submit>
diff --git a/templates/referenceListing.hamlet b/templates/referenceListing.hamlet
new file mode 100644
index 0000000..b2b294c
--- /dev/null
+++ b/templates/referenceListing.hamlet
@@ -0,0 +1,17 @@
+<div .table>
+  <div .tr .sepBelow>
+    <div .th>Description
+    <div .th>Actions
+  $if isJust (preview insertForm =<< formState)
+    $with Just InsertForm{..} <- formState
+      <form .tr .sepBelow action=@{ReferenceListingR} method=post enctype=#{fsInsertEncoding}>
+        ^{fsInsertForm}
+        <div .td>
+          <button type=submit>
+            Insert
+  $forall Entity referenceId Reference{..} <- reference
+    <div .tr .color ##{toPathPiece referenceId}>
+      <div .kind>#{referenceKind}
+      <form .td method=post action=@{DeleteRefItemR referenceId}>
+        <button type=submit>
+          Delete
-- 
cgit v1.2.3