hans/racket-wiki
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactoring by skill

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-29 22:22:49 +02:00
parent 67fce7a330
commit 649ff0d7c5
22 changed files with 1598 additions and 1644 deletions
Download Patch File Download Diff File Expand all files Collapse all files
server.rkt
+9 -9
View File
@@ -357,22 +357,22 @@ CSS
(define (people-list-handler config req)
(require-role
config req 'reader
(lambda (_session)
(λ (_session)
(json-response (hash 'people (list-people config #t))))))
(define (people-create-handler config req)
(require-write-role
config req 'editor
(lambda (_session)
(with-handlers ((exn:fail? (lambda (e) (json-error 400 (exn-message e)))))
(λ (_session)
(with-handlers ((exn:fail? (λ (e) (json-error 400 (exn-message e)))))
(define body (request-json req))
(json-response (create-person! config (hash-ref body 'name "")) #:code 201)))))
(define (people-update-handler config req id)
(require-write-role
config req 'editor
(lambda (_session)
(with-handlers ((exn:fail? (lambda (e) (json-error 400 (exn-message e)))))
(λ (_session)
(with-handlers ((exn:fail? (λ (e) (json-error 400 (exn-message e)))))
(define body (request-json req))
(define active (hash-ref body 'active #t))
(unless (boolean? active)
@@ -441,7 +441,7 @@ CSS
(define (concept-map-version-delete-handler config req slug version)
(require-write-role
config req 'editor
(lambda (_session)
(λ (_session)
(if (delete-concept-map-version! config slug version)
(json-response (hash 'ok #t))
(json-error 404 "Concept map history item not found")))))
@@ -841,12 +841,12 @@ CSS
(if (string-ci=? (bytes->string/latin-1 (request-method req)) "GET")
(require-role
config req 'reader
(lambda (_session)
(λ (_session)
(json-response (hash 'styles (or (read-cmap-styles config) 'null)))))
(require-write-role
config req 'editor
(lambda (_session)
(with-handlers ([exn:fail? (lambda (e) (json-error 400 (exn-message e)))])
(λ (_session)
(with-handlers ([exn:fail? (λ (e) (json-error 400 (exn-message e)))])
(define body (request-json req))
(json-response
(hash 'styles