            source_date source_edition source_publisher source_rights source_title
            multimedia_type multimedia_content narrator produced_date
            revision revision_date revision_description
-           total_time audio_format
+           total_time audio_format production_type
            library_number]}] ; only books imported from the libray have this
   [:dtbook {:xmlns "http://www.daisy.org/z3986/2005/dtbook/"
             :version "2005-3" :xml:lang language}

    :blurb "Blurbs"
    :contributors "Contributors"
    :enclosures "Talking book enclosures"
    :end "End of book"}})

(def ^:private doctype
  (str


(defn default-book
  "Return an default book sexp"
  [title creator language]
  (let [t (partial translate language)]
    [:book
     [:frontmatter
      [:doctitle (format (t :title_creator_fmt) title creator)]
      [:docauthor creator]]
     [:bodymatter
      [:level1 [:h1] [:p]]]]))

(defn periodical
  "Return an default periodical sexp"
  [title creator]
  [:book
   [:frontmatter
    [:doctitle title]
    [:docauthor creator]]
   [:bodymatter
    [:level1 [:h1] [:p]]]])

