A Clojure library to interact with the Pipeline2 Web Service API.
(require '[clojure.java.io :as io])
(require '[clojure.data.xml :as xml])
;; list all script supported by the server
(print (xml/indent-str (scripts)))
;; get help for a particular script
(print (xml/indent-str (script "dtbook-to-epub3")))
(require '[clojure.string :as string])
;; invoke a script.
;; `with-job` will take care of releasing any resources after completion
(with-job [job (job-create "sbs:dtbook-to-ebook" {:source "book.xml"} {})]
(let [results (get-results (wait-for-result job))
epub-stream (->> results
(filter #(string/ends-with? % ".epub"))
first
get-stream)]
(with-open [in epub-stream
out (io/output-stream "book.epub")]
(io/copy in out))))
;; get all jobs
(print (xml/indent-str (jobs)))
;; delete some old jobs
(doseq [id ["<job-id>"]] (job-delete id))Copyright © 2021 Swiss Library for the Blind, Visually Impaired and Print Disabled
This program and the accompanying materials are made available under the terms of the Eclipse Public License 2.0 which is available at http://www.eclipse.org/legal/epl-2.0.
This Source Code may also be made available under the following Secondary Licenses when the conditions for such availability set forth in the Eclipse Public License, v. 2.0 are satisfied: GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version, with the GNU Classpath Exception which is available at https://www.gnu.org/software/classpath/license.html.