controller.clj

(ns vbank.controller
  (:require [vbank.db :as db]
            [vbank.logic.utils :as utils]
            [vbank.logic.operations :as l-o]))


(defn create-operation
  [account-number type timestamp amount]
  (db/insert-operation account-number type timestamp amount)
  {:account-number account-number :type type :timestamp timestamp :amount amount}) ; TODO: Refactor

(defn get-operations [] (db/get-operations))

(defn get-balance-by-account-number
  [account-number]
  (->> (db/get-operations)
       (l-o/filter-operations-by-account-number account-number)
       (l-o/calculate-balance)))



(defn get-statement-by-account-number
  [account-number initial-date final-date]
  (->> (db/get-operations)
       (l-o/filter-operations-by-account-number account-number initial-date final-date)
       (l-o/build-statement)
       (l-o/sort-by-day-timestamp)))

(defn get-debt-by-account-number
  [account-number]
  (->> (db/get-operations)
       (l-o/filter-operations-by-account-number account-number)
       (l-o/build-statement)
       (l-o/sort-by-day-timestamp)
       (l-o/build-debt-periods)))