Implement old bar.hs

1 files changed, 49 insertions, 0 deletions

diff --git a/templates/inventoryListing.hamlet b/templates/inventoryListing.hamlet
new file mode 100644
index 0000000..7c2c06b
--- /dev/null
+++ b/templates/inventoryListing.hamlet
@@ -0,0 +1,49 @@
+<div .table>
+  <div .tr .sepBelow>
+    <div .th>Description
+    <div .th>Bought
+    <div .th>Expires
+    <div .th>Opened
+    <div .th>Actions
+  $if isJust (preview insertForm =<< formState)
+    $with Just InsertForm{..} <- formState
+      <form .tr .sepBelow action=@{InventoryListingR} method=post enctype=#{fsInsertEncoding}>
+        ^{fsInsertForm}
+        <div .td>
+          <button type=submit>
+            Insert
+  $forall Entity itemId Item{..} <- stock
+    $if Just itemId == (preview updateItem =<< formState)
+      $with Just UpdateForm{..} <- formState
+         <form .tr .color action=@{UpdateItemR fsUpdateItem}##{toPathPiece fsUpdateItem} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateItem}>
+           ^{fsUpdateForm}
+           <div .td>
+             <button type=submit>
+               Save Changes
+    $else
+      <div .tr .color ##{toPathPiece itemId}>
+        <div .kind>#{itemKind}
+        <div .td .day>
+          $maybe bought <- itemBought
+            #{dayFormat bought}
+          $nothing
+            <hr>
+        <div .td .day>
+          $maybe expires <- itemExpires
+            #{dayFormat expires}
+          $nothing
+            <hr>
+        <div .td .day>
+          $maybe opened <- itemOpened
+            #{dayFormat opened}
+          $nothing
+            <form method=post action=@{OpenItemR itemId}>
+              <button type=submit>
+                Open
+        <div .td>
+          <form method=get action=@{UpdateItemR itemId}##{toPathPiece itemId}>
+            <button type=submit>
+              Edit
+          <form method=post action=@{DeleteItemR itemId}>
+            <button type=submit>
+              Delete