order to xml

Author: tamizhvendan

clojure/wheel/project.clj

@@ -15,7 +15,8 @@
                  [clj-http "3.10.0"]
                  [com.ibm.mq/com.ibm.mq.allclient "9.1.0.0"]
                  [clojurewerkz/quartzite "2.1.0"]
-                 [funcool/cuerdas "2.0.5"]]
+                 [funcool/cuerdas "2.0.5"]
+                 [org.clojure/data.xml "0.0.8"]]
   :main ^:skip-aot wheel.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all}

clojure/wheel/src/wheel/oms/address.clj

@@ -11,7 +11,4 @@
 (s/def ::pincode (s/int-in 110001 855118))
 
 (s/def ::address (s/keys :req-un [::first-name ::line1 ::city ::state ::pincode]
-                          :opt-un [::last-name ::line2]))
-
-(s/def ::shipping ::address)
-(s/def ::billing ::address)
+                          :opt-un [::last-name ::line2]))

clojure/wheel/src/wheel/oms/order.clj

@@ -3,31 +3,69 @@
             [wheel.oms.address :as addr]
             [wheel.oms.payment :as payment]
             [wheel.oms.order-line :as order-line]
-            [wheel.string :as w-str]))
+            [wheel.string :as w-str]
+            [clojure.data.xml :as xml]))
 
 (s/def ::order-no w-str/not-blank?)
 (s/def ::payments (s/coll-of ::payment/payment :min-count 1))
 (s/def ::order-lines (s/coll-of ::order-line/order-line :min-count 1))
-(s/def ::order (s/keys :req-un [::order-no ::addr/shipping ::addr/billing ::payments
+(s/def ::billing-address ::addr/address)
+(s/def ::shipping-address ::addr/address)
+(s/def ::order (s/keys :req-un [::order-no ::shipping-address ::billing-address ::payments
                                 ::order-lines]))
 
+(defn address-to-xml [{:keys [first-name last-name line1
+                              line2 city state pincode]}]
+  {:attrs {:FirstName first-name
+           :LastName last-name
+           :State state
+           :City city
+           :Pincode pincode}
+   :ext [:Extn {:IRLAddressLine1 line1
+                :IRLAddressLine2 line2}]})
+
+(defn to-xml [order]
+  {:pre [(s/assert ::order order)]}
+  (let [{:keys [order-no billing-address order-lines 
+                shipping-address payments]} order
+        {bill-to-attrs :attrs
+         bill-to-ext :ext} (address-to-xml billing-address)
+        {ship-to-attrs :attrs
+         ship-to-ext :ext} (address-to-xml shipping-address)]
+    (-> [:Order {:OrderNo order-no}
+         [:PersonInfoBillTo bill-to-attrs bill-to-ext]
+         [:PersonInfoShipTo ship-to-attrs ship-to-ext]
+         [:PaymentDetailsList 
+          (map (fn [{:keys [amount reference-id]}]
+                 [:PaymentDetails {:ProcessedAmount amount
+                                   :Reference1 reference-id}]) payments)]
+         [:OrderLines
+          (map (fn [{:keys [id sale-price]}]
+                 [:OrderLine 
+                  [:Item {:ItemID id}]
+                  [:LinePriceInfo {:LineTotal sale-price}]])
+               order-lines)]]
+        xml/sexp-as-element
+        xml/indent-str)))
+
 (comment
-  (s/valid? ::order {:order-no "181219-001-345786"
-                     :payments [{:amount 900M
-                                 :reference-id "000000-1545216772601"}]
-                     :order-lines [{:id "200374"
-                                    :sale-price 900M}]
-                     :billing  {:first-name "Tamizhvendan"
-                                :last-name  "Sembiyan"
-                                :line1      "Plot No 222"
-                                :line2      "Ashok Nagar 42nd Street"
-                                :city       "Chennai"
-                                :state      "TamilNadu"
-                                :pincode    600001}
-                     :shipping {:first-name "Tamizhvendan"
-                                :last-name  "Sembiyan"
-                                :line1      "Plot No 222"
-                                :line2      "Ashok Nagar 42nd Street"
-                                :city       "Chennai"
-                                :state      "TamilNadu"
-                                :pincode    600001}}))
+  (s/check-asserts true)
+  (spit "test.xml" (to-xml {:order-no "181219-001-345786"
+                :payments [{:amount 900M
+                            :reference-id "000000-1545216772601"}]
+                :order-lines [{:id "200374"
+                               :sale-price 900M}]
+                :billing-address  {:first-name "Tamizhvendan"
+                                   :last-name  "Sembiyan"
+                                   :line1      "Plot No 222"
+                                   :line2      "Ashok Nagar 42nd Street"
+                                   :city       "Chennai"
+                                   :state      "TamilNadu"
+                                   :pincode    600001}
+                :shipping-address {:first-name "Tamizhvendan"
+                                   :last-name  "Sembiyan"
+                                   :line1      "Plot No 222"
+                                   :line2      "Ashok Nagar 42nd Street"
+                                   :city       "Chennai"
+                                   :state      "TamilNadu"
+                                   :pincode    600001}})))

clojure/wheel/test.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?><Order OrderNo="181219-001-345786">
+  <PersonInfoBillTo FirstName="Tamizhvendan" LastName="Sembiyan" State="TamilNadu" City="Chennai" Pincode="600001">
+    <Extn IRLAddressLine1="Plot No 222" IRLAddressLine2="Ashok Nagar 42nd Street"/>
+  </PersonInfoBillTo>
+  <PersonInfoShipTo FirstName="Tamizhvendan" LastName="Sembiyan" State="TamilNadu" City="Chennai" Pincode="600001">
+    <Extn IRLAddressLine1="Plot No 222" IRLAddressLine2="Ashok Nagar 42nd Street"/>
+  </PersonInfoShipTo>
+  <PaymentDetailsList>
+    <PaymentDetails ProcessedAmount="900" Reference1="000000-1545216772601"/>
+  </PaymentDetailsList>
+  <OrderLines>
+    <OrderLine>
+      <Item ItemID="200374"/>
+      <LinePriceInfo LineTotal="900"/>
+    </OrderLine>
+  </OrderLines>
+</Order>