cljam.io.fasta.util

(ns cljam.io.fasta.util
  (:require [cljam.util :refer [space?]]))

(defn header-line?
  [line]
  (= (first line) \>))

(def ^:private vertial-bar (char 0x7c))

(defn- vertial-bar?
  [c]
  (= c vertial-bar))

(defn- header-blank?
  [c]
  (or (space? c)
      (vertial-bar? c)))

(defn parse-header-line
  [line]
  (let [line (subs line 1)]
    {:name (->> line
                (take-while #(not (header-blank? %)))
                (apply str))
     :desc (->> line
                (drop-while #(not (header-blank? %)))
                (drop 1)
                (apply str))}))