   (-> [(str "ID=" (:id m))
        (str "Number=" (nil->dot (:number m)))
        (str "Type=" (nil->dot (:type m)))
-       (str "Description=\"" (:description m) "\"")]
+       (str "Description=\"" (escape-special-chars (:description m)) "\"")]
       (cond->
         (:idx m) (conj (str "IDX=" (:idx m))))
       (pack-meta-info m [:id :number :type :description :idx])))

  (-> [(str "ID=" (:id m))
       (str "Number=" (nil->dot (:number m)))
       (str "Type=" (nil->dot (:type m)))
       (str "Description=\"" (:description m) "\"")]
      (cond->
        (:source m) (conj (str "Source=\"" (:source m) "\""))
        (:version m) (conj (str "Version=\"" (:version m) "\""))
        (:idx m) (conj (str "IDX=" (:idx m))))
      (pack-meta-info m [:id :number :type :description :source :version :idx])))

(defn- stringify-meta-info-filter
  [m]
  (-> [(str "ID=" (:id m))
       (str "Description=\"" (:description m) "\"")]
      (cond->
        (:idx m) (conj (str "IDX=" (:idx m))))
      (pack-meta-info m [:id :description :idx])))

      (cond->
        (:genomes m) (conj (str "Genomes=" (:genomes m)))
        (:mixture m) (conj (str "Mixture=" (:mixture m))))
      (conj (str "Description=\"" (escape-special-chars (:description m)) "\""))
      (pack-meta-info m [:id :genomes :mixture :description])))

(defn- stringify-meta-info-pedigree
