diff options
| -rw-r--r-- | dynamic/capabilities/comment-form.scm | 33 | ||||
| -rw-r--r-- | srfi-197.scm | 4 |
2 files changed, 37 insertions, 0 deletions
diff --git a/dynamic/capabilities/comment-form.scm b/dynamic/capabilities/comment-form.scm new file mode 100644 index 0000000..beded53 --- /dev/null +++ b/dynamic/capabilities/comment-form.scm @@ -0,0 +1,33 @@ +;;; Copyright © 2019 - 2022 Jakob L. Kreuze <zerodaysfordays@sdf.org> +;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see +;;; <http://www.gnu.org/licenses/>. + +(define-module (dynamic capabilities comment-form) + #:use-module (dynamic util) + #:use-module (haunt html) + #:use-module (ice-9 match) + #:use-module (jakob theme) + #:use-module (json) + #:use-module (web request) + #:use-module (web response) + #:use-module (web uri) + #:export (get-comment-form)) + +(define (get-comment-form request body) + "API endpoint handler for querying for the comments on a particular post + +This is a wrapper around `get-comments-by-slug'." + (values '((content-type . (text/html))) + (sxml->html-string (theme #:content '(p "Hello, world!"))))) diff --git a/srfi-197.scm b/srfi-197.scm new file mode 100644 index 0000000..93fc0ab --- /dev/null +++ b/srfi-197.scm @@ -0,0 +1,4 @@ +(define-module (srfi-197) + #:export (chain chain-and chain-when chain-lambda nest nest-reverse)) + +(include "ext-srfi-197/srfi-197-syntax-case.scm") |