1. Richo Healey
  2. ident.so

Source

ident.so / datastore / file.scm

(define get-user-by-name
  (lambda (name)
    (let ((u (assoc name user-mapping)))
      (if u
        (cadr u)
        #f))))

(define user-mapping
  (map
    (lambda (file)
      (let ((username (if (string-suffix? "json" file)
                          (substring file 0 (- (string-length file) 5))
                          file)))
        (list username . ((read-all (string-append "people/" file))))))
    (directory "people")))