Demo of treewalk

tax-lines-to-hiccup.clj

(ns myproject
  "FIXME: my new org.corfield.new/scratch project."
  (:require [clojure.walk :as walk]))

(def lines
  (list {:reference-number "invoice 1"
               :status "unreleased"}
              (list {:invoice "invoice 1"
                     :account "100"
                     :desp "customer invoice line"
                     :tax-amount 2000
                     :id 1}
                    (list {:invoice "inovice 1"
                           :tax-amount 200
                           :id 1}
                          (list {:invoice "inovice 1"
                                 :tax-amount 200
                                 :id 2}
                                (list {:invoice "inovice 1"
                                       :tax-amount 200
                                       :id 3}))))))

(defn hiccup-tag
  [ele]
  (cond
    (some? (:reference-number ele)) :customer-invoice
    (some? (:desp ele)) :customer-invoice-line
    :else :customer-invoice-tax-line))

(defn f
  [x]
  (if (list? x)
    (let [ele (first x)
          tag (hiccup-tag ele)]
      (vec (conj x tag)))
    x))

(walk/postwalk f lines)

(comment
[:customer-invoice
 {:reference-number "invoice 1", :status "unreleased"}
 [:customer-invoice-line
  {:invoice "invoice 1",
   :account "100",
   :desp "customer invoice line",
   :tax-amount 2000,
   :id 1}
  [:customer-invoice-tax-line
   {:invoice "inovice 1", :tax-amount 200, :id 1}
   [:customer-invoice-tax-line
    {:invoice "inovice 1", :tax-amount 200, :id 2}
    [:customer-invoice-tax-line
     {:invoice "inovice 1", :tax-amount 200, :id 3}]]]]]
)

version-2.clj

(ns myproject
  "FIXME: my new org.corfield.new/scratch project."
  (:require [clojure.walk :as walk]))

(def lines
  (list {:reference-number "invoice 1"
         :status "unreleased"}
        (list {:invoice "invoice 1"
               :account "100"
               :desp "customer invoice line"
               :tax-amount 2000
               :id 1}
              (list {:invoice "inovice 1"
                     :tax-amount 200
                     :id 1}
                    {:invoice "inovice 1"
                     :tax-amount 200
                     :id 2}
                    (list {:invoice "inovice 1"
                           :tax-amount 200
                           :id 3})))))

(defn hiccup-tag
  [ele]
  (cond
    (some? (:reference-number ele)) :customer-invoice
    (some? (:desp ele)) :customer-invoice-line
    :else :customer-invoice-tax-line))

(defn f
  [x]
  (if (list? x)
    (let [ele (first x)
          tag (hiccup-tag ele)]
      (vec (conj x tag)))
    x))

(walk/postwalk f lines)

(defn -main
  "Invoke me with clojure -M -m myproject"
  [& args]
  (println "-main with" args))

(comment
  [:customer-invoice
 {:reference-number "invoice 1", :status "unreleased"}
 [:customer-invoice-line
  {:invoice "invoice 1",
   :account "100",
   :desp "customer invoice line",
   :tax-amount 2000,
   :id 1}
  [:customer-invoice-tax-line
   {:invoice "inovice 1", :tax-amount 200, :id 1}
   {:invoice "inovice 1", :tax-amount 200, :id 2}
   [:customer-invoice-tax-line
    {:invoice "inovice 1", :tax-amount 200, :id 3}]]]]
)