;; -*- coding: utf-8 -*-
;;
;;    Copyright 2021 Fabien Bourgeois <fabien@yaltik.com>
;;
;;    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 <http://www.gnu.org/licenses/>.

" 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)))