Merge branch 'master' into 'live'

Fixes #80

Closes #80

See merge request !67

ChangeLog.md

@@ -1,6 +1,7 @@
   * Version 01.08.2018
 
     Verbesserter Campus-Login
+    (Ersatz einer C-Bibliothek mit undokumentierter Abhängigkeit durch selbst entwickelten Haskell-Code erlaubt nun auch Umlaute.)
 
   * Version 31.07.2018
 

src/Foundation.hs

@@ -822,6 +822,14 @@ pageActions (TermCourseListR tid) =
       , menuItemAccessCallback' = return True
       }
   ]
+pageActions (CourseListR) =
+  [ PageActionPrime $ MenuItem
+      { menuItemLabel = "Neuen Kurs anlegen"
+      , menuItemIcon  = Just "book"
+      , menuItemRoute = CourseNewR
+      , menuItemAccessCallback' = return True
+      }
+  ]
 pageActions (CourseR tid csh CShowR) =
   [ PageActionPrime $ MenuItem
       { menuItemLabel = "Kurs Editieren"

src/Handler/Course.hs

@@ -38,13 +38,40 @@ type CourseTableData = DBRow (Entity Course, Int64, Bool)
 colCourse :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
 colCourse = sortable (Just "course") (i18nCell MsgCourse)
           $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } ->
-            anchorCell (CourseR courseTerm courseShorthand CShowR) [whamlet|#{display courseName}|]
+            anchorCell (CourseR courseTerm courseShorthand CShowR)
+              [whamlet|#{display courseName}|]
+
+colCourseDescr :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
+colCourseDescr = sortable (Just "course") (i18nCell MsgCourse)
+          $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } -> mappend
+            ( anchorCell (CourseR courseTerm courseShorthand CShowR) [whamlet|#{display courseName}|] )
+            ( case courseDescription of
+                Nothing      -> mempty
+                (Just descr) -> cell [whamlet| <span style="float:right"> ^{modalStatic descr} |]
+            )
+
+colDescription :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
+colDescription = sortable Nothing (i18nCell MsgCourseDescription)
+          $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } ->
+            case courseDescription of
+              Nothing      -> mempty
+              (Just descr) -> cell $ modalStatic descr
 
 colCShort :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
 colCShort = sortable (Just "cshort") (i18nCell MsgCourseShort)
           $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } ->
             anchorCell (CourseR courseTerm courseShorthand CShowR) [whamlet|#{display courseShorthand}|]
 
+colCShortDescr :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
+colCShortDescr = sortable (Just "cshort") (i18nCell MsgCourseShort)
+          $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } -> mappend
+            ( anchorCell (CourseR courseTerm courseShorthand CShowR) [whamlet|#{display courseShorthand}|] )
+            ( case courseDescription of
+                Nothing      -> mempty
+                (Just descr) -> cell
+                  [whamlet|<span style="float:right"> ^{modalStatic descr} |]
+            )
+
 colTerm :: IsDBTable m a => Colonnade _ CourseTableData (DBCell m a)
 colTerm = sortable (Just "term") (i18nCell MsgTerm)
           $ \DBRow{ dbrOutput=(Entity cid Course{..}, _, _) } ->
@@ -136,7 +163,7 @@ getCourseListR :: Handler Html
 getCourseListR = do -- TODO: Suchfunktion für Kurse und Kürzel!!!
   muid <- maybeAuthId
   let colonnade = widgetColonnade $ mconcat
-        [ colCourse
+        [ colCourseDescr
         , colCShort
         , colTerm
         , maybe mempty (const colRegistered) muid
@@ -149,6 +176,10 @@ getCourseListR = do -- TODO: Suchfunktion für Kurse und Kürzel!!!
     setTitleI MsgCourseListTitle
     [whamlet|TODO: Such-/Filterfunktion hier einbauen|] -- TODO
     $(widgetFile "courses")
+    [whamlet|
+      ^{modal "#UNIQUE_ID_98765" (Just "Test Inhalt für Modal")}
+      <div .tooltip__handle #UNIQUE_ID_98765>?
+    |]
 
 getTermCurrentR :: Handler Html
 getTermCurrentR = do
@@ -164,7 +195,7 @@ getTermCourseListR tid = do
   muid <- maybeAuthId
   let colonnade = widgetColonnade $ mconcat
         [ dbRow
-        , colCShort
+        , colCShortDescr
         , colRegFrom
         , colRegTo
         , colParticipants

src/Handler/Utils/Templates.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}
+{-# LANGUAGE NoImplicitPrelude, TemplateHaskell, QuasiQuotes #-}
 
 module Handler.Utils.Templates where
 
@@ -7,8 +7,17 @@ import Import.NoFoundation
 lipsum :: WidgetT site IO ()
 lipsum = $(widgetFile "widgets/lipsum")
 
-modal :: [Char] -> Maybe [Char] -> WidgetT site IO ()
+modalStatic :: Html -> WidgetT site IO ()
-modal modalTrigger (Just modalContent) = do
+modalStatic modalContent = do
+  uniqueId <- newIdent
+  let modalTrigger = cons '#' uniqueId -- SJ: I am confused why this is needed here?
+      modalId :: Int32
+      modalId = 13
+  $(widgetFile "widgets/modalStatic")
+  [whamlet|<div .tooltip__handle ##{uniqueId}>?|] -- SJ: confused why ## is needed here either?
+
+modal :: Text -> Maybe [Char] -> WidgetT site IO ()
+modal modalTrigger (Just modalContent) = do -- WARNING: ModalContent should not have length 11. SJ: This is possibly bad. See Template!
   let
     modalId :: Int32
     modalId = 13

templates/standalone/tooltip.lucius

@@ -2,59 +2,59 @@
   position: relative;
   display: inline-block;
 
-  .tooltip__handle {
-    background-color: var(--color-dark);
-    border-radius: 50%;
-    height: 1.5rem;
-    width: 1.5rem;
-    line-height: 1.5rem;
-    font-size: 1.2rem;
-    color: white;
-    display: inline-block;
-    text-align: center;
-    cursor: default;
-    margin: 0 10px;
-  }
-
-  .tooltip__content {
-    position: absolute;
-    top: -10px;
-    transform: translateY(-100%);
-    left: 3px;
-    width: 275px;
-    z-index: 10;
-    background-color: #fafafa;
-    border-radius: 4px;
-    padding: 13px 17px;
-    box-shadow: 0 0 20px 4px rgba(0, 0, 0, 0.1);
-
-    &.to-left {
-      left: auto;
-      right: 3px;
-
-      &::after {
-        left: auto;
-        right: 10px;
-      }
-    }
-
-    &::after {
-      content: '';
-      width: 16px;
-      height: 16px;
-      background-color: #fafafa;
-      transform: rotate(45deg);
-      position: absolute;
-      left: 10px;
-      bottom: -8px;
-    }
-  }
-
   .hidden {
     display: none;
   }
 }
 
+.tooltip__handle {
+  background-color: var(--color-dark);
+  border-radius: 50%;
+  height: 1.5rem;
+  width: 1.5rem;
+  line-height: 1.5rem;
+  font-size: 1.2rem;
+  color: white;
+  display: inline-block;
+  text-align: center;
+  cursor: default;
+  margin: 0 10px;
+}
+
+.tooltip__content {
+  position: absolute;
+  top: -10px;
+  transform: translateY(-100%);
+  left: 3px;
+  width: 275px;
+  z-index: 10;
+  background-color: #fafafa;
+  border-radius: 4px;
+  padding: 13px 17px;
+  box-shadow: 0 0 20px 4px rgba(0, 0, 0, 0.1);
+
+  &.to-left {
+    left: auto;
+    right: 3px;
+
+    &::after {
+      left: auto;
+      right: 10px;
+    }
+  }
+
+  &::after {
+    content: '';
+    width: 16px;
+    height: 16px;
+    background-color: #fafafa;
+    transform: rotate(45deg);
+    position: absolute;
+    left: 10px;
+    bottom: -8px;
+  }
+}
+
 @media (max-width: 768px) {
 
   .js-tooltip {

templates/widgets/modalStatic.hamlet

@@ -0,0 +1,2 @@
+<div .modal.js-modal #modal-#{modalId} data-trigger=#{modalTrigger} data-closeable=true>
+  #{modalContent}