Move office hours to defns.rkt.

Author: dvanhorn

www/defns.rkt

@@ -64,3 +64,25 @@
               "Thursday, November 20, 11:59PM"
               "Thursday, December 4, 11:59PM")
             (sub1 i)))
+
+(define office-hours
+  (itemlist
+   #:style 'compact
+   (item "Monday"
+         (itemlist
+          (item "9:00am–12:00pm — Zhonqi")
+          (item "12:00pm–3:00pm — Ben")))
+   (item "Tuesday"
+         (itemlist
+          (item "5:00pm–8:00pm - Kalyan (IRB, 2nd Floor)")))
+   (item "Wednesday"
+         (itemlist
+          (item "9:00am–12:00pm — Zhonqi")
+          (item "12:00pm–3:00pm — Ben")))
+   (item "Thursday"
+         (itemlist
+          (item "10:00am–1:00pm — Zinat")
+          (item "5:00pm–8:00pm — Kalyan (IRB, 2nd Floor)")))
+   (item "Friday"
+         (itemlist
+          (item "11:00am–2:00pm — Zinat")))))

www/main.scrbl

@@ -6,16 +6,12 @@
       	  "defns.rkt"
           "utils.rkt")
 
-@(define (blockquote . strs)
-   (make-nested-flow (make-style "blockquote" '(command))
-                     (decode-flow strs)))
-
-
 @(define accessible
    (style #f (list (js-addition "js/accessibility.js")
                    (attributes '((lang . "en"))))))
 
-@title[#:style accessible @courseno]{: Design and Implementation of Programming Languages}
+@title[#:style accessible @courseno]{: Design and Implementation of
+Programming Languages}
 
 @image[#:scale 1/2 #:style float-right]{img/wizard.png}
 
@@ -40,61 +36,24 @@ implement several related languages.
 	        #;(list prof2 prof2-email)
 		staff)]
 
-
-@;{
-@tabular[#:style 'boxed
-         #:row-properties '(bottom-border ())
-	 (list (list @bold{Time}  @bold{Monday} @bold{Tuesday} @bold{Wednesday} @bold{Thursday}  @bold{Friday})
-               (list      "8 AM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "9 AM"  'cont        'cont           'cont            'cont         'cont)
-	       (list     "10 AM"  'cont        'cont           'cont            'cont         'cont)
-	       (list     "11 AM"  'cont        'cont           'cont            'cont         'cont)
-	       (list     "12 PM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "1 PM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "2 PM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "3 PM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "4 PM"  'cont        'cont           'cont            'cont         'cont)
-	       (list      "5 PM"  'cont        'cont           'cont            'cont         'cont))]
-}
-
 @bold{Communications:} @link[@elms-url]{ELMS}, @link[@piazza]{Piazza}
 
-@bold{Assumptions:} This course assumes you know the material in CMSC 330 and
-CMSC 216. In particular, you need to know how to program in a functional
-programming language like OCaml and some familiarity with programming in C and
-Assembly. See the @seclink["Texts"]{Texts} page for references to brush up on
-this material.
+@bold{Assumptions:} This course assumes you know the material in CMSC
+330 and CMSC 216. In particular, you need to know how to program in a
+functional programming language like OCaml and some familiarity with
+programming in C and Assembly. See the @seclink["Texts"]{Texts} page
+for references to brush up on this material.
 
-@bold{Disclaimer:} All information on this web page is tentative and subject to
-change. Any substantive change will be accompanied with an announcement to the
-class via ELMS.
+@bold{Disclaimer:} All information on this web page is tentative and
+subject to change. Any substantive change will be accompanied with an
+announcement to the class via ELMS.
 
 @bold{Feedback:} We welcome anonymous feedback on the course and its
 staff using this @link[feedback]{form}.
 
 @bold{TA office hours:} @office-hour-location (unless otherwise noted)
 
-@itemlist[
- #:style 'compact
- @item{Monday
-  @itemlist[
-   @item{9:00–12:00 — Zhonqi}
-   @item{12:00–3:00 — Ben}]}
- @item{Tuesday
-  @itemlist[
-   @item{5:00–8:00 - Kalyan (IRB, 2nd Floor)}]}
- @item{Wednesday
-  @itemlist[
-   @item{9:00–12:00 — Zhonqi}
-   @item{12:00–3:00 — Ben}]}
- @item{Thursday
-  @itemlist[
-   @item{10:00–1:00 — Zinat}
-   @item{5:00–8:00 - Kalyan (IRB, 2nd Floor)}]}
- @item{Friday
-  @itemlist[
-   @item{11:00–2:00 — Zinat}]}
-]     
+@office-hours
 
 @include-section{syllabus.scrbl}
 @include-section{texts.scrbl}