Initial commit

README.md

@@ -0,0 +1,51 @@
+## What
+
+A small program to print today's menu from your chosen Unicafe restaurant.
+
+I give absolutely no guarantees on how well the program runs.
+
+## Why
+
+I was bored and wanted to learn Racket.
+
+## Installation
+
+### Preferred method
+
+Before running, install Racket from your operating system's preferred source.
+
+Copy `unicafe.rkt` to your preferred location.
+
+### Alternative method
+
+You can download a release and run that directly, without Racket installed. This executable is quite a bit larger in size (~11M), as it probably bundles much of Racket with it. The executable has been created with `raco exe`.
+
+## Usage
+
+Run `unicafe.rkt exactum` to get the menu for Exactum's Unicafe.
+
+For a list of valid cafe names, run `unicafe.rkt --help`.
+
+Example output:
+
+```
+$ unicafe.rkt exactum chemicum
+
+Exactum
+-------
+No food :(
+
+Chemicum
+--------
+Vegaani
+Kikherne-pähkinäpataa
+
+Päivän lounas
+Uunihalloumipasta
+
+Päivän lounas
+Rapea kalaleike, ruohosipulikermaviiliä
+
+Makeasti
+Vadelmamoussea ja rapeaa granolaa
+```

unicafe.rkt

@@ -0,0 +1,91 @@
+#!/usr/bin/env racket
+#lang racket/base
+(require racket/list 
+ racket/format 
+ racket/port 
+ racket/string
+ racket/cmdline
+ net/url
+ json
+ racket/date)
+
+; https://docs.racket-lang.org/json/index.html
+; https://medium.com/chris-opperwall/practical-racket-using-a-json-rest-api-3d85eb11cc2d
+; https://unicafe.fi/wp-json/swiss/v1/restaurants/?lang=fi
+
+(define chosen-cafes
+ (command-line
+ #:usage-help
+ "Get today's menu for your chosen Unicafe restaurant"
+ "Give any number of unicafe restaurant names as argument (case insensitive)"
+ ""
+ "List of valid unicafe names, as of writing this:"
+ "\tKaivopiha, WELL Terkko, WELL Kaisa-talo, Viikuna, Soc&Kom, "
+ "\tRotunda, Ravintola Oliver, Porthania Opettajien ravintola, "
+ "\tPorthania, Physicum, Pesco & Vege Topelias, Olivia, Metsätalo, "
+ "\tMeilahti, Infokeskus, Exactum, Chemicum, "
+ "\tChemicum Opettajien ravintola, Cafe Portaali, Biokeskus" 
+
+ #:args args
+
+ (map (lambda (arg)
+ (string-downcase arg))
+ args)))
+
+(if (empty? chosen-cafes)
+ ((displayln "Enter at least one unicafe name\n (Hint: use the --help argument for a list of cafe names)")
+ (exit))
+ (void))
+
+(define (get-json url)
+ (call/input-url (string->url url)
+ get-pure-port
+ (compose string->jsexpr port->string)))
+
+(define cafedata (get-json "https://unicafe.fi/wp-json/swiss/v1/restaurants/?lang=fi"))
+
+
+(define (pad-number number)
+ (~a number #:min-width 2 #:align 'right #:left-pad-string "0"))
+
+(define today (string-append (pad-number (date-day (current-date))) 
+ "." 
+ (pad-number (date-month (current-date)))))
+
+; Find the cafes whose names are in `chosen-cafes`
+(define cafes (filter (lambda (cafe)
+ (member (string-downcase (hash-ref cafe 'title)) chosen-cafes))
+ cafedata))
+
+(if (empty? cafes) (displayln "None of the arguments matched a Unicafe name \n (Hint: use the --help argument for a list of cafe names)") (void))
+
+(define (print-json json) 
+ (displayln (jsexpr->string json)))
+
+(define (get-lunch cafe)
+ (define today-lunch
+ (filter (lambda (day)
+ (string-contains? (hash-ref day 'date) today))
+ cafe))
+ (hash-ref (first today-lunch) 'data))
+
+(displayln "")
+
+(for-each (lambda (cafe)
+ (define title (hash-ref cafe 'title))
+ (displayln title)
+ (displayln (~a "" #:min-width (string-length title) #:pad-string "-"))
+
+ (define lunch (get-lunch (hash-ref (hash-ref cafe 'menuData) 'menus)))
+ (define (yes-lunch) 
+ (for-each (lambda (choice)
+ (displayln (hash-ref (hash-ref choice 'price) 'name))
+ (displayln (hash-ref choice 'name))
+ (displayln ""))
+ lunch))
+ (define (no-lunch)
+ (displayln "No food :("))
+
+ (if (empty? lunch) (no-lunch) (yes-lunch)) 
+ (displayln ""))
+ cafes)