Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added TOEFL IELTS and Fixed parse in init.rkt

  • Loading branch information...
commit 67ad127a9905ecf1e99a36a761d46af813f91b7b 1 parent d9a84ae
gradadmin authored committed
Showing with 13 additions and 2 deletions.
  1. +11 −1 go.rkt
  2. +2 −1  init.rkt
View
12 go.rkt
@@ -476,6 +476,7 @@
(match toefl:kind
[(? bson-null?) bson-null]
['None bson-null]
+ ['IELTS (hash-ref** toefl:t 'read)]
['IBT (hash-ref** toefl:t 'read)]
['PBT (hash-ref** toefl:t 'reading)]))
(define toefl:listening
@@ -484,12 +485,14 @@
(match toefl:kind
[(? bson-null?) bson-null]
['None bson-null]
+ ['IELTS (hash-ref** toefl:t 'write)]
['IBT (hash-ref** toefl:t 'write)]
['PBT (hash-ref** toefl:t 'writing)]))
(define toefl:speaking/structure
(match toefl:kind
[(? bson-null?) bson-null]
['None bson-null]
+ ['IELTS (hash-ref** toefl:t 'speak)]
['IBT (hash-ref** toefl:t 'speak)]
['PBT (hash-ref** toefl:t 'structure)]))
@@ -540,7 +543,7 @@
(tr (td ([colspan "4"]) nbsp))
- (tr (th "TOEFL") (td ,{(sym-from toefl:kind 'None 'IBT 'PBT) . => . toefl:kind})
+ (tr (th "TOEFL") (td ,{(sym-from toefl:kind 'None 'IELTS 'IBT 'PBT) . => . toefl:kind})
(th "Date") (td ,{(optional-date toefl:date) . => . toefl:date}))
(tr (th "Reading") (td ,{(optional-number-in-range toefl:reading 0 100) . => . toefl:reading})
(th "Listening") (td ,{(optional-number-in-range toefl:listening 0 100) . => . toefl:listening}))
@@ -572,6 +575,13 @@
(match toefl:kind
[(? bson-null?) bson-null]
['None bson-null]
+ ['IELTS
+ (hasheq 'kind 'IELTS
+ 'date toefl:date
+ 'read toefl:reading
+ 'write toefl:writing
+ 'listen toefl:listening
+ 'speak toefl:speaking/structure)]
['IBT
(hasheq 'kind 'IBT
'date toefl:date
View
3  init.rkt
@@ -75,9 +75,10 @@
(printf "Adding ~a ~a~n" FirstName LastName)
+ ;; TODO: Add the check for an apostrophe to the regexp on Lastname such as O'Neill
(define (get-pdf-type type)
(define this-pdf
- (build-path pdf-path (format "~a~a~a.pdf" LastName (regexp-replace* #rx" " FirstName "") type)))
+ (build-path pdf-path (format "~a~a~a.pdf" (regexp-replace* #rx" " LastName "") (regexp-replace* #rx" " FirstName "") type)))
(cond
[(file-exists? this-pdf)
(define this-pdf-bytes
Please sign in to comment.
Something went wrong with that request. Please try again.