From 311c083a7786ff83b4810a507fb7af492b20121d Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Tue, 15 Nov 2022 18:55:03 -0500 Subject: [dynamic] Add srfi-197 stub --- dynamic/capabilities/comment-form.scm | 33 +++++++++++++++++++++++++++++++++ srfi-197.scm | 4 ++++ 2 files changed, 37 insertions(+) create mode 100644 dynamic/capabilities/comment-form.scm create mode 100644 srfi-197.scm 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 +;;; +;;; 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 +;;; . + +(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") -- cgit v1.3