Add error reporting with status codes and API response details

Changed

 src/fjo/repos.sgl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

Diff

@@ -136,13 +136,14 @@

136

(define (tool-repos-create args)

137

(let* ((org (dict-ref args org:))

138

(name (dict-ref args name:))

−139

(desc (dict-ref args description: ""))

−140

(result (forgejo-create-org-repo (fjo-base-url) (fjo-token)

−141

org name desc)))

−142

(if result

+139

(desc (dict-ref args description: "")))

+140

(guard (e (else

+141

(string-append "Failed to create repository: "

+142

(exception-message e))))

+143

(let ((result (forgejo-create-org-repo (fjo-base-url) (fjo-token)

+144

org name desc)))

145

(string-append "Created repository " org "/" name ".\n"

−144

"URL: " (dict-ref result html_url: ""))

−145

"Failed to create repository.")))

+146

"URL: " (dict-ref result html_url: ""))))))

147

148

(define (tool-topics-list args)

149

(let* ((owner (dict-ref args owner:))