Reference & list

1 files changed, 17 insertions, 0 deletions

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