(define
  sx-url-to-expr
  (fn
    (path)
    (cond
      (or (= path "/") (= path "/sx/") (= path "/sx"))
      "home"
      (starts-with? path "/sx/")
      (join " " (split (slice path 4 (len path)) "."))
      (starts-with? path "/")
      (join " " (split (slice path 1 (len path)) "."))
      :else path)))

(define
  sx-auto-quote
  (fn
    (expr env)
    (cond
      (and (symbol? expr) (not (env-has? env (symbol-name expr))))
      (symbol-name expr)
      (list? expr)
      (map (fn (e) (sx-auto-quote e env)) expr)
      :else expr)))

(define
  sx-eval-page
  (fn
    (path-expr env)
    (cek-try
      (fn
        ()
        (let
          ((exprs (sx-parse path-expr)))
          (when
            (not (empty? exprs))
            (let
              ((expr (if (= (len exprs) 1) (first exprs) exprs))
                (quoted (sx-auto-quote expr env))
                (callable (if (symbol? quoted) (list quoted) quoted)))
              (eval-expr callable env)))))
      (fn (err) nil))))

(define
  sx-handle-request
  (fn
    (path headers env shell-vars)
    (let
      ((is-ajax (or (has-key? headers "sx-request") (has-key? headers "hx-request")))
        (path-expr (sx-url-to-expr path))
        (page-ast (sx-eval-page path-expr env)))
      (if
        (nil? page-ast)
        nil
        (let
          ((nav-path (if (and (>= (len path) 4) (= (slice path 0 4) "/sx/")) path (str "/sx" path))))
          {:page-ast page-ast :nav-path nav-path :is-ajax is-ajax})))))