comments

parking.scm

@@ -6,6 +6,7 @@
 (import srfi-1)
 (import (chicken io))
 (import srfi-13)
+(import srfi-14)
 
 (define (curry fn a)
   (lambda (b)
@@ -64,7 +65,8 @@
 
 ;;; Given a list of either symbols or strings and an association list:
 ;;; look up every symbol from left to right in the association list and replace it with the value found
-;;; then concatenate the resulting list of strings
+;;; then concatenate the resulting list of strings.
+;;; Inspired by Python 3's dictionary formatting string syntax.
 (define (format-assoc statement ln)
   (apply string-append
          (map (curry2 upon symbol? (compose ->string (curry (flip value) ln))) statement)))
@@ -76,7 +78,7 @@
 ;;; The API key is an alphanumeric string of length 32
 ;;; The Linköping municipal open data API key generator portal is located at http://opendata.linkoping.se
 (define parking-key
-  (with-input-from-file "key-parking" read-line))
+  (string-delete char-set:whitespace (with-input-from-file "key-parking" read-line)))
 
 ;;; Get a list of parking lots with various metadata from the municipal servers.
 ;;; It should be noted that this API is both glitchy and bugged. Two bugs have been noted: