style(colonnade): no box-shadow for course lists, no courses on home

removed box-shadow from scrolltable and introduced scrolltable--bordered class; removed course list from home when logged in

src/Handler/Course.hs

@@ -226,7 +226,7 @@ makeCourseTable whereClause colChoices psValidator = do
       ]
     , dbtStyle = def
       { dbsFilterLayout = defaultDBSFilterLayout
-      , dbsCellTemplate = DBSTCourse (_dbrOutput . _1) (_dbrOutput . _5) (_dbrOutput . _3) (_dbrOutput . _4)
+      , dbsTemplate = DBSTCourse (_dbrOutput . _1) (_dbrOutput . _5) (_dbrOutput . _3) (_dbrOutput . _4)
       --                             ^ course          ^ lecturer list   ^ isRegistered    ^ school
       }
     , dbtParams = def

src/Handler/Home.hs

@@ -20,7 +20,7 @@ getHomeR = do
     setTitleI MsgHomeHeading
     fromMaybe mempty upcomingExamsWidget
     maybe mempty homeUpcomingSheets muid
-    homeOpenCourses
+    maybe homeOpenCourses (const mempty) muid
 
 
 homeOpenCourses :: Widget

src/Handler/Utils/Table/Pagination.hs

@@ -439,7 +439,7 @@ data DBStyle r = DBStyle
                     -> Widget
                     -> Widget
     -- ^ Filter UI, Filter Encoding, Filter action, table
-  , dbsCellTemplate :: DBSTemplateMode r
+  , dbsTemplate :: DBSTemplateMode r
   }
 
 data DBSTemplateMode r = DBSTDefault
@@ -456,7 +456,7 @@ instance Default (DBStyle r) where
           <!-- No Filter UI -->
           ^{scrolltable}
         |]
-    , dbsCellTemplate = DBSTDefault
+    , dbsTemplate = DBSTDefault
     }
 
 defaultDBSFilterLayout :: Widget -- ^ Filter UI
@@ -1030,12 +1030,11 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
       . setParam (wIdent "pagination") Nothing
 
     table' :: HandlerSite m ~ UniWorX => WriterT x m Widget
-    table' = case dbsCellTemplate of
+    table' = let
+        columnCount :: Int64
+        columnCount = olength64 $ getColonnade dbtColonnade
+      in case dbsTemplate of
       DBSTCourse c l r s -> do
-        let
-          columnCount :: Int64
-          columnCount = olength64 $ getColonnade dbtColonnade
-        
         wRows <- forM (zip [0..length rows] rows) $ \(cid, row') -> let
           Course{..}       = row' ^. c . _entityVal
           lecturerUsers    = row' ^. l
@@ -1059,9 +1058,6 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
               piSorting' = [ sSet | sSet <- fromMaybe [] piSorting, Just (sortKey sSet) /= sortableKey ]
             return $(widgetFile "table/cell/header")
 
-          columnCount :: Int64
-          columnCount = olength64 $ getColonnade dbtColonnade
-
         wHeaders <- maybe (return Nothing) (fmap Just . genHeaders) pSortable
 
         wRows <- forM rows $ \row' -> forM (oneColonnadeEncode <$> getColonnade dbtColonnade) $ \(($ row') -> cell') -> do

templates/default-layout.lucius

@@ -328,6 +328,9 @@ input[type="button"].btn-info:hover,
 /* SCROLLTABLE */
 .scrolltable {
   overflow: auto;
+}
+
+.scrolltable--bordered {
   box-shadow: 0 0 1px 1px var(--color-grey-light);
 }
 

templates/table/colonnade.hamlet

@@ -1,5 +1,5 @@
 $newline never
-<div .scrolltable>
+<div .scrolltable .scrolltable--bordered>
   <table *{dbsAttrs'}>
     $maybe wHeaders' <- wHeaders
       <thead>

templates/table/course/colonnade.hamlet

@@ -1,12 +1,7 @@
 $newline never
 <div .scrolltable>
-  <table *{dbsAttrs'}>
+  $if null wRows && (dbsEmptyStyle == DBESHeading)
-    <tbody>
+    <p>_{dbsEmptyMessage}
-      $if null wRows && (dbsEmptyStyle == DBESHeading)
+  $else
-        <tr .table__row>
+    $forall row <- wRows
-          <td .table__td colspan=#{show columnCount}>
+      ^{row}
-            _{dbsEmptyMessage}
-      $else
-        $forall row <- wRows
-          <tr .table__row>
-            ^{row}

templates/table/course/colonnade.lucius

@@ -6,6 +6,10 @@
   --course-expanded-bg-color: var(--color-grey-light);
 }
 
+.scrolltable {
+  box-shadow: none!important;
+}
+
 .course-teaser {
   display: grid;
   grid-gap: 5px 7px;