#-noscript

(ql:quickload '(:lquery :fwoar-lisputils :alexandria :net.didierverna.clon))

#-noscript
(ql:quickload '(:lquery
                :fwoar-lisputils
                :alexandria
                :net.didierverna.clon))

    (inline root)
    "p[title]"
    (combine (attr "title")
             (text))
    (map-apply (lambda (ref text)
                 (list 'ref work
                       (serapeum:string-join (fwoar.string-utils:split " " (elt (fwoar.string-utils:split "," ref) 1)))
                       text)))))

   (inline root)
   "p[title]"
   (combine (attr "title")
            "a:first-child")
   (map-apply (lambda (ref sibling)
                (let* ((sibling (elt sibling 0))
                       (parent (plump:parent sibling))
                       (text (progn (plump:remove-child sibling)
                                    (plump:text parent))))
                  (list 'ref
                        work
                        (serapeum:string-join
                         (fwoar.string-utils:split " "
                                                   ref)
                         "")
                        text))))))

  (alexandria:with-output-to-file (s out-fn :if-exists :append :if-does-not-exist :create)

  (alexandria:with-output-to-file (s out-fn
                                     :if-exists :append
                                     :if-does-not-exist :create)

  (net.didierverna.clon:defsynopsis (:postfix "OUT FILES...")))

  (net.didierverna.clon:defsynopsis (:postfix "OUT FILES...")
    (flag :short-name "h" :long-name "help"
          :description "Get help")))

#-noscript