From 24fe4e1cb32ac3d79ce6a2f10d38697a2c133c4a Mon Sep 17 00:00:00 2001 From: Fabien BOURGEOIS Date: Wed, 17 Feb 2021 19:00:26 +0100 Subject: [PATCH] [ADD]General utils --- hy_odoo/utils.hy | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 hy_odoo/utils.hy 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)))