; lib/gitea/web.sx — sx-gitea Phase 1: browse views over dream. ; ; Pure request -> response handlers: repo list, repo home, tree/blob/raw ; browse at any ref (branch, tag, or cid), commit log, single-commit diff, ; plus a small JSON API for repo create/list/delete. No auth yet — Phase 2 ; (access) gates these routes. ; ; Requires: lib/gitea/repo.sx, lib/dream/{types,router,middleware,error, ; html,json,api}.sx ; ── html scaffolding ───────────────────────────────────────────────── (define gitea/w-page (fn (title body) (dream-html (str "" (dream-escape title) "" body "")))) (define gitea/w-repo-link (fn (full) (str "
  • " (dream-escape full) "
    • "))) ; ── pages ──────────────────────────────────────────────────────────── (define gitea/w-index (fn (forge req) (gitea/w-page "repositories" (str "

    Repositories

    ")))) (define gitea/w-branch-item (fn (owner name b) (str "
  • " (dream-escape b) "
    • "))) (define gitea/w-repo-home (fn (forge req) (let ((owner (dream-param req "owner")) (name (dream-param req "name"))) (let ((rec (gitea/repo-get forge owner name))) (if (nil? rec) (dream-not-found) (let ((branches (git/branches (gitea/repo-git forge owner name)))) (gitea/w-page (str owner "/" name) (str "

    " (dream-escape (str owner "/" name)) "

    " "

    " (dream-escape (or (get rec :description) "")) "

    " "

    visibility: " (dream-escape (get rec :visibility)) "

    " (if (empty? branches) "

    empty repository

    " (str "

    Branches

    ")))))))))) (define gitea/w-branches (fn (forge req) (let ((owner (dream-param req "owner")) (name (dream-param req "name"))) (if (not (gitea/repo-exists? forge owner name)) (dream-not-found) (gitea/w-page (str owner "/" name " branches") (str "

    Branches

    ")))))) ; resolve the owner/name/ref/** of a browse request down to a tree entry; ; nil on any miss (unknown repo, bad ref, bad path) (define gitea/w-entry (fn (forge req) (let ((owner (dream-param req "owner")) (name (dream-param req "name")) (ref (dream-param req "ref")) (path (or (dream-param req "**") ""))) (if (not (gitea/repo-exists? forge owner name)) nil (let ((grepo (gitea/repo-git forge owner name))) (let ((cid (gitea/resolve-ref grepo ref))) (if (nil? cid) nil (let ((entry (gitea/tree-at grepo cid path))) (if (nil? entry) nil {:name name :path path :grepo grepo :entry entry :owner owner :ref ref}))))))))) (define gitea/w-entry-item (fn (hit n kind) (let ((base (if (equal? kind "tree") "tree" "blob"))) (let ((sub (if (equal? (get hit :path) "") n (str (get hit :path) "/" n)))) (str "
  • " (dream-escape n) "
    • "))))) (define gitea/w-tree (fn (forge req) (let ((hit (gitea/w-entry forge req))) (if (or (nil? hit) (not (equal? (get (get hit :entry) :kind) "tree"))) (dream-not-found) (let ((tree (git/read (get hit :grepo) (get (get hit :entry) :cid)))) (gitea/w-page (str (get hit :owner) "/" (get hit :name) ": /" (get hit :path)) (str "

    " (dream-escape (str (get hit :owner) "/" (get hit :name))) "

    " "

    /" (dream-escape (get hit :path)) "

    " ""))))))) (define gitea/w-blob (fn (forge req) (let ((hit (gitea/w-entry forge req))) (if (or (nil? hit) (not (equal? (get (get hit :entry) :kind) "blob"))) (dream-not-found) (let ((data (git/blob-data (git/read (get hit :grepo) (get (get hit :entry) :cid))))) (gitea/w-page (str (get hit :owner) "/" (get hit :name) ": " (get hit :path)) (str "

    " (dream-escape (get hit :path)) "

    " "
    "
              (dream-escape data)
              "
    "))))))) (define gitea/w-raw (fn (forge req) (let ((hit (gitea/w-entry forge req))) (if (or (nil? hit) (not (equal? (get (get hit :entry) :kind) "blob"))) (dream-not-found) (dream-text (git/blob-data (git/read (get hit :grepo) (get (get hit :entry) :cid)))))))) (define gitea/w-commit-item (fn (grepo owner name c) (let ((obj (git/read grepo c))) (str "
  • " (dream-escape (or (git/commit-message obj) "")) " " c "
    • ")))) (define gitea/w-commits (fn (forge req) (let ((owner (dream-param req "owner")) (name (dream-param req "name")) (ref (dream-param req "ref"))) (if (not (gitea/repo-exists? forge owner name)) (dream-not-found) (let ((grepo (gitea/repo-git forge owner name))) (let ((cid (gitea/resolve-ref grepo ref))) (if (nil? cid) (dream-not-found) (gitea/w-page (str owner "/" name " commits") (str "

    Commits

      " (join "" (map (fn (c) (gitea/w-commit-item grepo owner name c)) (git/log grepo cid))) "
    "))))))))) ; single commit: message/author/parents, plus the diff against the first ; parent (root commits list their files instead) (define gitea/w-commit (fn (forge req) (let ((owner (dream-param req "owner")) (name (dream-param req "name")) (cidp (dream-param req "cid"))) (if (not (gitea/repo-exists? forge owner name)) (dream-not-found) (let ((grepo (gitea/repo-git forge owner name))) (let ((obj (git/read grepo cidp))) (if (or (nil? obj) (not (git/commit? obj))) (dream-not-found) (let ((parents (git/commit-parents obj))) (let ((detail (if (empty? parents) (str "

    Files

    ") (str "
    " (dream-escape (git/commit-diff-unified grepo (first parents) cidp)) "
    ")))) (gitea/w-page (str "commit " cidp) (str "

    " (dream-escape (or (git/commit-message obj) "")) "

    " "

    author: " (dream-escape (or (git/commit-author obj) "")) "

    " "

    cid: " cidp "

    " detail))))))))))) ; ── json api ───────────────────────────────────────────────────────── (define gitea/w-json-status (fn (status v) (dream-response status {:content-type "application/json"} (dream-json-encode v)))) (define gitea/w-api-repos (fn (forge req) (dream-json-value (gitea/repos forge)))) (define gitea/w-api-repo-create (fn (forge req) (let ((body (dream-json-body req))) (let ((res (gitea/repo-create! forge (get body :owner) (get body :name) {:description (or (get body :description) "") :created-at (or (get body :created-at) 0) :visibility (or (get body :visibility) "public")}))) (cond ((get res :conflict) (gitea/w-json-status 409 {:error "exists"})) ((get res :error) (gitea/w-json-status 400 {:error (get res :error)})) (else (gitea/w-json-status 201 {:name (get res :name) :owner (get res :owner) :visibility (get res :visibility)}))))))) (define gitea/w-api-repo-delete (fn (forge req) (if (gitea/repo-delete! forge (dream-param req "owner") (dream-param req "name")) (dream-json-value {:deleted true}) (dream-not-found)))) ; ── routes ─────────────────────────────────────────────────────────── ; /api/* is listed first so an owner segment can never shadow it (owner ; names matching router words are rejected by gitea/valid-name? anyway). (define gitea/routes (fn (forge) (list (dream-get "/" (fn (req) (gitea/w-index forge req))) (dream-get "/api/repos" (fn (req) (gitea/w-api-repos forge req))) (dream-post "/api/repos" (fn (req) (gitea/w-api-repo-create forge req))) (dream-delete "/api/repos/:owner/:name" (fn (req) (gitea/w-api-repo-delete forge req))) (dream-get "/:owner/:name" (fn (req) (gitea/w-repo-home forge req))) (dream-get "/:owner/:name/branches" (fn (req) (gitea/w-branches forge req))) (dream-get "/:owner/:name/commits/:ref" (fn (req) (gitea/w-commits forge req))) (dream-get "/:owner/:name/commit/:cid" (fn (req) (gitea/w-commit forge req))) (dream-get "/:owner/:name/tree/:ref/**" (fn (req) (gitea/w-tree forge req))) (dream-get "/:owner/:name/blob/:ref/**" (fn (req) (gitea/w-blob forge req))) (dream-get "/:owner/:name/raw/:ref/**" (fn (req) (gitea/w-raw forge req)))))) (define gitea/app (fn (forge) (dream-make-app (gitea/routes forge))))