(define-page (regexp "/style/.*\\.css")
  (lambda (path)
    (let ((scss-file (filepath:join-path
                      (L retrojnet-root
                         "style"
                         (string-append
                          (filepath:take-base-name path)
                          ".scss")))))
      (awful-response-headers '((content-type text/css)))
      (if (file-exists? scss-file)
          (with-output-to-string
            (lambda () (scss->css (eval (last (read-file scss-file))))))
          "/* Not found! */"))) ;;XXX: proper 404 would be better
  no-template: #t)