(ns auto-ap.views.pages.ledger.table
  (:require [auto-ap.subs :as subs]
            [auto-ap.views.components.paginator :refer [paginator]]
            [auto-ap.views.components.sorter :refer [sorted-column]]
            [auto-ap.views.utils :refer [date->str dispatch-event nf]]
            [goog.string :as gstring]
            [re-frame.core :as re-frame]))

(defn table [{:keys [id ledger-page status on-params-change vendors params check-boxes checked on-check-changed expense-event]}]
  (let [opc (fn [p]
              (on-params-change (merge @params p )))]
    (fn [{:keys [id ledger-page status on-params-change vendors checked]}]
      (let [{:keys [sort-by asc]} @params
            {:keys [journal-entries start end count total]} @ledger-page
            selected-client @(re-frame/subscribe [::subs/client])
            percentage-size (if selected-client "25%" "33%")]
        [:div
         [paginator {:start start :end end :count count :total total
                     :on-change (fn [p ]
                                  (on-params-change (merge @params p)))}]
         "Showing " (inc start) "-" end "/" total
         
         [:table.table.is-fullwidth.compact
          [:thead  
           [:tr  
            (when-not selected-client
              [sorted-column {:on-sort opc
                              :style {:width percentage-size :cursor "pointer"}
                              :sort-key "client"
                              :sort-by sort-by
                              :asc asc}
               "Client"])

            [sorted-column {:on-sort opc
                            :style {:width percentage-size :cursor "pointer"}
                            :sort-key "description-original"
                            :sort-by sort-by
                            :asc asc}
             "Vendor"]

            

            
            [sorted-column {:on-sort opc
                            :style {:width "8em" :cursor "pointer"}
                            :sort-key "date"
                            :sort-by sort-by
                            :asc asc}
             "Date"]
            [sorted-column {:on-sort opc
                            :style {:width percentage-size :cursor "pointer"}
                            :sort-key "account"
                            :sort-by sort-by
                            :asc asc}
             "Account"]
            [sorted-column {:on-sort opc
                            :style {:width "8em" :cursor "pointer"}
                            :sort-key "amount"
                            :class "has-text-right"
                            :sort-by sort-by
                            :asc asc}
             "Debit"]

            [sorted-column {:on-sort opc
                            :style {:width "8em" :cursor "pointer"}
                            :sort-key "amount"
                            :class "has-text-right"
                            :sort-by sort-by
                            :asc asc}
             "Credit"]

            

            [sorted-column {:on-sort opc
                            :style {:width "8em" :cursor "pointer"}
                            :sort-key "status"
                            :sort-by sort-by
                            :asc asc}
             "Status"]]]
          [:tbody
           (if (:loading @status)
             [:tr 
              [:td {:col-span 5}
               [:i.fa.fa-spin.fa-spinner]]]
             (->> 
              (for [{:keys [client vendor status date amount id line-items] :as i} (:journal-entries @ledger-page)]
                (into 
                 [^{:key id}
                  [:tr {:class (:class i)}
                   (when-not selected-client
                     [:td (:name client)])
                   [:td (if vendor
                          (:name vendor)
                          (str "Merchant '" "Hello"  "'"))]
                   #_[:td description-original]
                   [:td (date->str date) ]
                   [:td ]
                   [:td.has-text-right (nf amount )]
                   [:td.has-text-right (nf amount )]
                   
                   [:td status]]]
                 (for [{:keys [debit credit location account]} line-items]
                   [:tr {:class (:class i)}
                    (when-not selected-client
                      [:td ])
                    [:td ]
                    #_[:td description-original]
                    [:td ]
                    [:td location ": " (:name account)]
                    [:td.has-text-right (when debit (nf debit ))]
                    [:td.has-text-right (when credit (nf credit ))]
                    
                    [:td status]]
                   )))
              (mapcat identity)))]]]))))