s.clj

(clojure.string/split (slurp "my.file") #"\e")

(-> "my.file"
    slurp
    (clojure.string/split #"\e"))


(-> "my.file"
    slurp
    (clojure.string/split #"\e")

    (filter #(re-find #"foo" %))    


    clojure.repl/pprint)


(defn char-seq                                                                                                                                                                                                   
  "Returns a lazy-seq of char from rdr.                                                                                                                                                                          
   Note: Adapted from clojure.core/line-seq"                                                                                                                                                                     
  [rdr] (let [c (.read rdr)]                                                                                                                                                                                     
          (when (not= -1 c)                                                                                                                                                                                      
            (cons (char c) (lazy-seq (char-seq rdr))))))                                                                                                                                                         
                                                                                                                                                                                                                 
(defn line-seq+                                                                                                                                                                                                  
  "Like clojure.core/line-seq but the line separator is customizable."                                                                                                                                           
  [rdr line-sep]                                                                                                                                                                                                 
  (->> rdr                                                                                                                                                                                                       
       char-seq                                                                                                                                                                                                  
       (partition-by ∈{line-sep})                                                                                                                                                                                
       (remove       ∈{[line-sep]})                                                                                                                                                                              
       (map #(reduce str %))))                                                                                                                                                                                   
                                                                                                                                                                                                                 
(comment "example:"                                                                                                                                                                                              
  (line-seq+ (io/reader (io/file "my.file")) \e))