From 4455bb6d65b7a9ccc426461d9d20d40f242a689f Mon Sep 17 00:00:00 2001 From: gered Date: Sat, 29 Mar 2014 13:35:16 -0400 Subject: [PATCH] begin implementing a flf loader --- src/clj_figlet/core.clj | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/src/clj_figlet/core.clj b/src/clj_figlet/core.clj index d52ac60..753923b 100644 --- a/src/clj_figlet/core.clj +++ b/src/clj_figlet/core.clj @@ -1,6 +1,16 @@ -(ns clj-figlet.core) +(ns clj-figlet.core + (:import (java.io File)) + (:require [clojure.string :as str])) + +(defn- parse-flf-header [header-line] + (let [parts (str/split header-line #" ")] + {:hardblank (-> parts first last) + :height (Integer/parseInt (nth parts 1)) + :num-comments (Integer/parseInt (nth parts 5))})) + +(defn load-flf [file] + (let [lines (str/split (slurp file) #"\n") + header (parse-flf-header (first lines)) + char-lines (drop (inc (:num-comments header)) lines)] + )) -(defn foo - "I don't do a whole lot." - [x] - (println x "Hello, World!"))