Implement list view

1 files changed, 33 insertions, 0 deletions

diff --git a/templates/inventoryList.hamlet b/templates/inventoryList.hamlet
new file mode 100644
index 0000000..9bf48f1
--- /dev/null
+++ b/templates/inventoryList.hamlet
@@ -0,0 +1,33 @@
+<ul>
+  $forall WithType (Entity itemId Item{..}) itemType <- stock
+    <li .color>
+      <div .kindType>
+        <span .kind>#{itemKind}
+        <span .type>#{itemType}
+      <ul .info>
+        $case itemBought
+          $of DateKnown d
+            <li>
+              <div>
+                <div>Bought
+                <div>#{dayFormat d}
+          $of _
+        $case itemExpires
+          $of DateKnown d
+            <li>
+              <div>
+                <div>Expires
+                <div :d < today:.expired :d < addDays 7 today:.expireWeek :d < addGregorianMonthsRollOver 1 today:.expireMonth>
+                  #{dayFormat d}
+          $of _
+        $case itemOpened
+          $of DateKnown d
+            <li>
+              <div>
+                <div>Opened
+                <div>#{dayFormat d}
+          $of DateUnknown
+            <li .content>Open
+          $of _
+        $if itemRunningLow
+          <li .content>Running low