diff --git a/hy_odoo/utils.hy b/hy_odoo/utils.hy new file mode 100644 index 0000000..113788c --- /dev/null +++ b/hy_odoo/utils.hy @@ -0,0 +1,33 @@ +;; -*- coding: utf-8 -*- +;; +;; Copyright 2021 Fabien Bourgeois +;; +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU Affero General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU Affero General Public License for more details. +;; +;; You should have received a copy of the GNU Affero General Public License +;; along with this program. If not, see . + +" Hy General Utils " + +(defn pick [keys record] + (reduce + (fn [acc key] + (do + (assoc acc key (get record key)) + (return acc))) + keys + {})) + +(defn pick-values [keys record] + (list + (map + (fn [key] (get record key)) + keys)))