1. Richo Healey
  2. ident.so

Source

ident.so / lib / user.scm

(define user-from-path
  (lambda (path)
    (substring path 1 (string-length path))))

(define get-user-page
  (lambda (u response)
    (let ((user-data (get-user-by-name u)))
      (cond (user-data
          (set-response-body
            user-data
          (set-response-header
            "Content-Type" "text/json"
          response)))
      (else
        (set-response-body
            "No such user"
            response))))))


; TODO Obviously this isn't done.