(define (matcher path)
    (define (match? p) (string=? path (sprintf "/~A" (titleize (page-title p)))))
    (let ((pages (load-pages)))
      (cond ((and (not (string=? "/" path)) (find match? pages))
             => (cut list #t <>))
            (else (list #f pages)))))