(in-package :cl-user)
(defpackage cl-yaml
  (:use :cl)
  (:nicknames :yaml)
  (:import-from :yaml.parser
                :register-scalar-converter
                :register-sequence-converter
                :register-mapping-converter)
  (:import-from :yaml.emitter
                :emit-object
                :print-scalar)
  (:import-from :yaml.scalar
                :*yaml-11-integers*)
  (:export :parse
           :emit
           :emit-to-string
           :register-scalar-converter
           :register-sequence-converter
           :register-mapping-converter
           :emit-object
           :print-scalar
           :*yaml-11-integers*)
  (:documentation "The main YAML interface."))
(in-package :yaml)

(defgeneric parse (input &key multi-document-p)
  (:documentation "Parse a YAML string or a pathname to a YAML file into Lisp
 data."))

(defmethod parse ((input string) &key multi-document-p)
  (let ((parsed (yaml.parser:parse-string input)))
    (if multi-document-p
        parsed
        (second parsed))))

(defmethod parse ((input pathname) &key multi-document-p)
  (parse (uiop:read-file-string input)
         :multi-document-p multi-document-p))

(defun emit (value stream)
  (yaml.emitter:emit value stream))

(defun emit-to-string (value)
  (yaml.emitter:emit-to-string value))