CS-565/Homework-4
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add changes from Homework 4b.

Browse Source
This commit is contained in:
Danila Fedorin 2021-05-30 12:21:07 -07:00
parent 69f8de7f2e
commit 48d281703c
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scss/style.scss
View File

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

4
src/ClassSchedule/View.elm
View File

@ -259,9 +259,9 @@ viewClassSchedule m =
container xs = div [ class "column-container" ] <| container xs = div [ class "column-container" ] <|
List.map (\(c, ci) -> viewCourseBlock ci c) xs List.map (\(c, ci) -> viewCourseBlock ci c) xs
in 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" ] <| [ 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 viewModel : Model -> Html Msg