hara.print.table — hara/print.table 3.0.12

*properties-file* clj

attach-state clj

(attach-state {:keys [state initial file log] :as struct})

used with component, adds watch on record that incorporates state

detach-state clj

(detach-state {:keys [state file log] :as struct})

used with component, remove watch on record that incorporates state

file-out clj

(file-out atom {:keys [transform] :as opts :or {transform identity}})

adds watch to atom, saving its contents to file on every change

(def out-file (str (fs/create-tmpdir) "/test.txt"))

(swap! (file-out (atom 1) {:path out-file}) inc)

(read-string (slurp out-file)) => 2

generate-basic-table clj

(generate-basic-table rows)

(generate-basic-table ks rows)

generates a table for output

(generate-basic-table [:id :value] [{:id 1 :value "a"} {:id 2 :value "b"}])

=> (ascii ["| :id | :value |" "|-----+--------|" "| 1 | "a" |" "| 2 | "b" |"])

generate-single-table clj

(generate-single-table m {:keys [id-key headers sort-key] :as opts})

generates a single table

(generate-single-table {"[e-mail]" {:id 1 :value "a"} "[e-mail]" {:id 2 :value "b"}} {:headers [:id :email :value] :sort-key :email :id-key :email}) => (ascii ["| :id | :email | :value |" "|-----+-----------+--------|" "| 1 | "[e-mail]" | "a" |" "| 2 | "[e-mail]" | "b" |"])

log-out clj

(log-out atom {:keys [transform] :as opts :or {transform identity}})

adds watch to atom, logging the contents on every change

(with-out-str (swap! (log-out (atom 1) {}) inc))

parse-basic-table clj

(parse-basic-table s)

reads a table from a string

(parse-basic-table (ascii ["| :id | :value |" "|-----+--------|" "| 1 | "a" |" "| 2 | "b" |"])) => {:headers [:id :value] :data [{:id 1 :value "a"} {:id 2 :value "b"}]}

parse-single-table clj

(parse-single-table s {:keys [id-key] :as opts})

generates a single table

(parse-single-table (ascii ["| :id | :email | :value |" "|-----+-----------+--------|" "| 1 | "[e-mail]" | "a" |" "| 2 | "[e-mail]" | "b" |"])

{:headers [:id :email :value] :sort-key :email :id-key :email}) => {"[e-mail]" {:id 1 :value "a"} "[e-mail]" {:id 2 :value "b"}}

read-table clj

(read-table {:keys [path suffix headers levels sort-key id-key body?] :as opts})

generates a single table

(read-table {:path "dev/scratch/test.db" :suffix "txt" :levels 1 :headers {:account [:id :email :value] :info [:id :name]} :sort-key {:info :name} :id-key {:account :email}}) => {:account {"[e-mail]" {:id 1 :value "a"} "[e-mail]" {:id 2 :value "b"}} :info {1 {:name "Chris"} 2 {:name "David"} 3 {:name "Cain"}}}

read-value clj multimethod

reads a value from a file

(read-value {:path "dev/scratch/test.db" :format :table}) => {:account {"[e-mail]" {:id 1, :value "a"}, "[e-mail]" {:id 2, :value "b"}}, :info {3 {:name "Cain"}, 1 {:name "Chris"}, 2 {:name "David"}}}

write-table clj

(write-table data
             {:keys [path suffix headers levels sort-key id-key body?]
              :as opts})

generates a single table

(write-table {:account {"[e-mail]" {:id 1 :value "a"} "[e-mail]" {:id 2 :value "b"}} :info {1 {:name "Chris"} 2 {:name "David"} 3 {:name "Cain"}}} {:path "dev/scratch/test.db" :suffix "txt" :levels 1 :headers {:account [:id :email :value] :info [:id :name]} :sort-key {:info :name} :id-key {:account :email}}) => {:account (ascii ["| :id | :email | :value |" "|-----+-----------+--------|" "| 1 | "[e-mail]" | "a" |" "| 2 | "[e-mail]" | "b" |"])

:info (ascii
       ["| :id |   :name |"
        "|-----+---------|"
        "|   3 |  \"Cain\" |"
        "|   1 | \"Chris\" |"
        "|   2 | \"David\" |"])}

write-value clj multimethod

write a value to file

(write-value {:account {"[e-mail]" {:id 1 :value "a"} "[e-mail]" {:id 2 :value "b"}} :info {3 {:name "Cain"} 1 {:name "Chris"} 2 {:name "David"}}} {:path "dev/scratch/test.db" :format :table :suffix "txt" :levels 1 :headers {:account [:id :email :value] :info [:id :name]} :sort-key {:info :name} :id-key {:account :email}})