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/referenceListing.hamlet | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 templates/referenceListing.hamlet

(limited to 'templates/referenceListing.hamlet')

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