1. (defn read-file-lines [file-text]
  2. (let [file-lines (str/split-lines file-text)]
  3. (for [[i txt] (partition 2 (interleave (range (count file-lines))
  4. file-lines))]
  5. {:line-num (inc i) :text txt})))