Add (pandoc server) library

pandoc.egg

@@ -8,12 +8,17 @@
  (license "MIT")
  (author "Lassi Kortela")
  (maintainer "Lassi Kortela")
- (dependencies medea)
+ (dependencies http-client medea scsh-process)
  (test-dependencies)
  (distribution-files
-  "pandoc.egg"
-  "pandoc.release-info"
+  "pandoc.server.chicken.scm"
   "pandoc.chicken.scm"
-  "pandoc.r5rs.scm")
+  "pandoc.egg"
+  "pandoc.r5rs.scm"
+  "pandoc.release-info")
  (components
-  (extension pandoc (source "pandoc.chicken.scm"))))
+  (extension pandoc
+             (source "pandoc.chicken.scm"))
+  (extension pandoc.server
+             (source "pandoc.server.chicken.scm")
+             (component-dependencies pandoc))))

pandoc.server.chicken.scm

@@ -0,0 +1,56 @@
+(module (pandoc server)
+
+  (pandoc-server-base-url
+   pandoc-server-strings->json
+   pandoc-server-strings->sxml
+   pandoc-server-files->json
+   pandoc-server-files->sxml)
+  
+  (import (scheme)
+          (chicken base)
+          (only (chicken port) with-input-from-string)
+          (only (chicken io) read-string)
+          (only (http-client) with-input-from-request)
+          (only (intarweb) headers make-request)
+          (only (medea) read-json write-json)
+          (only (uri-common) uri-reference)
+          (only (pandoc) pandoc-json->sxml))
+
+  (define pandoc-server-base-url
+    (make-parameter "http://localhost:8080/"))
+
+  (define (pandoc-server-strings->json input-format input-strings)
+    (with-input-from-request
+     (make-request
+      method: 'POST
+      uri: (uri-reference (string-append (pandoc-server-base-url)
+                                         "convert-batch"))
+      headers: (headers '((content-type "application/json")
+                          (accept "application/json"))))
+     (lambda ()
+       (let ((input-format (symbol->string input-format)))
+         (write-json
+          (list->vector
+           (map (lambda (input-string)
+                  (list (cons 'from input-format)
+                        (cons 'to "json")
+                        (cons 'text input-string)))
+                input-strings)))))
+     (lambda ()
+       (map (lambda (string)
+              (with-input-from-string string read-json))
+            (vector->list (read-json))))))
+
+  (define (pandoc-server-files->json input-format input-filenames)
+    (pandoc-server-strings->json
+     input-format
+     (map (lambda (filename) (with-input-from-file filename read-string))
+          input-filenames)))
+  
+  (define (pandoc-server-strings->sxml input-format input-strings)
+    (map pandoc-json->sxml
+         (pandoc-server-strings->json input-format input-strings)))
+
+  (define (pandoc-server-files->sxml input-format input-filenames)
+    (map pandoc-json->sxml
+         (pandoc-server-files->json input-format input-filenames))))