From 48d281703cd27cf0a5f0ebfd2838264f97623fdd Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Sun, 30 May 2021 12:21:07 -0700
Subject: [PATCH] Add changes from Homework 4b.

---
 scss/style.scss            | 14 +++++++++++++-
 src/ClassSchedule/View.elm |  4 ++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/scss/style.scss b/scss/style.scss
index 7402243..f7589c5 100644
--- a/scss/style.scss
+++ b/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;
+}
diff --git a/src/ClassSchedule/View.elm b/src/ClassSchedule/View.elm
index 005f866..add26b8 100644
--- a/src/ClassSchedule/View.elm
+++ b/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