chore(profile): towards exam table in profile data (WIP)

towards #2347

src/Handler/Utils/Table/Cells.hs

@@ -400,6 +400,19 @@ examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} =
   wgtCell [whamlet|#{examOccurrenceName}:^{formatTimeRangeW SelFormatDateTime examOccurrenceStart examOccurrenceEnd}|]
 
 
+examCell :: IsDBTable m a => Course -> Exam -> DBCell m a
+examCell Course{..} Exam{..} = anchorCell link name `mappend` desc
+  where
+    link = CExamR courseTerm courseSchool courseShorthand examName EShowR
+    name = citext2widget examName
+    desc = case examDescription of
+            Nothing      -> mempty
+            (Just descr) -> cell [whamlet|
+              $newline never
+              <div>
+                ^{modal "Beschreibung" (Right $ toWidget descr)}
+              |]
+
 -- also see Handler.Utils.Widgets.companyWidget
 companyCell :: IsDBTable m a => CompanyShorthand -> CompanyName -> Bool -> DBCell m a
 companyCell csh cname isSupervisor = anchorCell curl name