feat(workflows): explanation text

frontend/src/app.sass

@@ -975,6 +975,9 @@ th, td
   font-style: italic
   @extend .note
 
+  emph
+    font-style: normal
+
 // SORTABLE TABLE-HEADERS
 .table__th.sortable
   position: relative

src/Handler/Workflow/Instance/List.hs

@@ -169,6 +169,7 @@ workflowInstanceListR rScope = do
 
   siteLayoutMsg heading $ do
     setTitleI title
+    let mPitch = Just $(i18nWidgetFile "workflow-instance-list-explanation")
     $(widgetFile "workflows/instances")
   where
     toInitiateRoute win = _WorkflowScopeRoute # (rScope, WorkflowInstanceR win WIInitiateR)
@@ -210,7 +211,11 @@ getTopWorkflowInstanceListR = do
             toInitiateRoute = toInitiateRoute' rScope
             toEditRoute = toEditRoute' rScope
             toListRoute = toListRoute' rScope
+            mPitch :: Maybe Widget
+            mPitch = Nothing
         showHeadings = Map.keys gInstances /= [WSGlobal]
+        pitch = $(i18nWidgetFile "workflow-instance-list-explanation")
+
     $(widgetFile "workflows/top-instances")
   
   where

src/Handler/Workflow/Workflow/List.hs

@@ -316,5 +316,4 @@ workflowWorkflowList (title, heading) WWListColumns{..} sqlPred = do
 
   siteLayoutMsg heading $ do
     setTitleI title
-
-    workflowTable
+    $(widgetFile "workflows/workflow-list")

templates/i18n/workflow-instance-list-explanation/de-de-formal.hamlet

@@ -0,0 +1,8 @@
+$newline never
+<p>
+  Bei Workflows handelt es sich um Modellierungen von verwaltungstechnischen Abläufen in Uni2work.
+<p>
+  Unten aufgelistet sehen sie diejenigen <emph>Workflow-Instanzen</emph>, also einem konkreten Bereich (z.B. einem Semester oder einem Institut) zugeordnete Sorten von Abläufen, mit denen Sie aktuell interagieren können.
+<p>
+  Mit „Workflow starten“ können Sie, sofern Sie die nötigen Berechtigungen haben, einen neuen Ablauf starten. #
+  Abläufe, bei denen Sie beteiligt sind, finden Sie unter „Laufende Workflows“.

templates/i18n/workflow-instance-list-explanation/en-eu.hamlet

@@ -0,0 +1,8 @@
+$newline never
+<p>
+  Workflows are a method of modelling administrative processes within Uni2work.
+<p>
+  Listed below are those <emph>Workflow instances</emph>, i.e. types of processes assigned to concrete scopes (e.g. a term or school), with which you may currently interact.
+<p>
+  Using “Start workflow” you can, if you have the neccessary permissions, initiate a new process. #
+  Under “Running workflows” you will find those processes with which you are associated.

templates/workflows/instances.hamlet

@@ -1,19 +1,23 @@
 $newline never
-<ul .workflow-instances>
-  $forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc) <- instances
-    <li>
-      $maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc
-        <p .workflow-instance--title>
-          #{workflowInstanceDescriptionTitle}
-      $nothing
-        <p .workflow-instance--name>
-          #{workflowInstanceName}
+$maybe pitch <- mPitch
+  <section .explanation>
+    ^{pitch}
+<section>
+  <ul .workflow-instances>
+    $forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc) <- instances
+      <li>
+        $maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc
+          <p .workflow-instance--title>
+            #{workflowInstanceDescriptionTitle}
+        $nothing
+          <p .workflow-instance--name>
+            #{workflowInstanceName}
 
-      <div .workflow-instance--actions .buttongroup>
-        ^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName}
-        ^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName}
-        ^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName}
+        <div .workflow-instance--actions .buttongroup>
+          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName}
+          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName}
+          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName}
 
-      $maybe desc <- workflowInstanceDescriptionDescription =<< mDesc
-        <div .workflow-instance--description>
-          #{desc}
+        $maybe desc <- workflowInstanceDescriptionDescription =<< mDesc
+          <div .workflow-instance--description>
+            #{desc}

templates/workflows/top-instances.hamlet

@@ -1,4 +1,6 @@
 $newline never
+<section .explanation>
+  ^{pitch}
 $forall (rScope, instances) <- Map.toList gInstances
   <section>
     $if showHeadings

templates/workflows/workflow-list.hamlet

@@ -0,0 +1,3 @@
+$newline never
+<section>
+  ^{workflowTable}