Add changes from Homework 4b.

scss/style.scss

@@ -68,6 +68,11 @@ body {
     }
 }
 
+.schedule-table {
+    width: 100%;
+    padding: 1rem;
+}
+
 .feather {
     vertical-align: middle;
     height: 1rem;
@@ -77,7 +82,8 @@ body {
     border: 1px solid black;
     padding: 0.25rem;
     border-radius: 0.25rem;
-
+    display: inline-block;
+    text-align: center;
     vertical-align: middle;
 }
 
@@ -120,6 +126,8 @@ body {
         overflow: hidden;
         text-overflow: ellipsis;
     }
+
+    overflow: hidden;
 }
 
 .column-container {
@@ -134,3 +142,7 @@ body {
     padding: 0.25rem;
     text-align: center;
 }
+
+.time-column {
+    padding-right: 1rem;
+}

src/ClassSchedule/View.elm

@@ -259,9 +259,9 @@ viewClassSchedule m =
         container xs = div [ class "column-container" ] <|
             List.map (\(c, ci) -> viewCourseBlock ci c) xs
     in
-        Debug.log (Debug.toString cellDict) <| div [ class "table-wrapper", style "width" "100%", style "padding" "1rem" ]
+        div [ class "table-wrapper", class "schedule-table" ]
             [ div [ class "week-grid" ] <|
-                header ++ (List.concatMap (\i -> span [ style "padding-right" "1rem" ] [ text <| viewTime <| from24 (i+8)] :: List.map container (time i)) times)
+                header ++ (List.concatMap (\i -> span [ class "time-column" ] [ text <| viewTime <| from24 (i+8)] :: List.map container (time i)) times)
             ]
 
 viewModel : Model -> Html Msg