;; Copyright 2019-2022 Fabien Bourgeois <fabien@yaltik.com>
;;
;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at https://mozilla.org/MPL/2.0/.

" Odoo related macros "

(defmacro o-cmod [model-name] `(. cls env [~model-name]))
(defmacro o-mod [model-name] `(. self env [~model-name]))
(defmacro o-cref [ref-name] `((. cls env ref) ~ref-name))
(defmacro o-ref [ref-name] `((. self env ref) ~ref-name))

(defmacro hydm [hy-domain]
  "Generate Odoo domain from Hy like tuple domain"
  (setv op (second hy-domain)
        field (hy.mangle (get hy-domain 2))
        value (get hy-domain 3))
 `#(~field ~op ~value))

; Odoo ORM macros

#_(defmacro/g! compute-fn [field dependencies body]
    "Macro to make computed definition smoother"
    (setv fname f"_compute_{(hy.mangle field)}" descr f"Computes {field}"
          dependencies (list (map hy.mangle dependencies)))
    (import hy.models [HySymbol]
      `(defn [(.depends api ~@dependencies)] ~(HySymbol fname) [self]
         ~descr
         ~body)))

(defmacro compute-field [fname body]
  "Takes fname Symbol and body to create computed field"
  (setv fn-name f"_compute_{(hy.mangle fname)}")
  `(setv ~fname (~@body :compute ~fn-name)))

; Backend macros

(defmacro __ [sentence] `((py "_") ~sentence))

(defmacro logger []
  `(do
    (import logging)
    (setv _logger (.getLogger logging --name--))))

(defmacro pdb [] `(do (import [pdb [set-trace]]) (set-trace)))