(ns yaml-table.config
  (:require [cljs.nodejs :as node]
            [cljs.core.async :refer [close! take! put! chan <! >! alts!]])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]]))

#_(defn chan-matching-yaml-object->chan-array-columns [c1]
    (let [c2 (chan 1)]
      (go 
       (>! c2 (.-options (<! c1))))
     c2))

(defn yaml-config-string->chan-matching-yaml-object [s, table-name]
  (let
   [yaml (node/require "js-yaml") 
    fs   (node/require "fs") 
    c    (chan 1)]
   (go (.safeLoadAll yaml s
         (fn [returned-yaml-object] 
           (go 
            (if (= (aget returned-yaml-object "table") table-name)
              (do 
		  (>! c returned-yaml-object)
                  (close! c))))))) 
   c))

; test:;
; (go (println (<! (yaml-table-config->chan-matching-yaml-object ".dec"))));;;
; todo: set default location of .yaml-table to $HOME;;;;;
(defn yaml-table-config->chan-matching-yaml-object [table-name]
  (yaml-config-string->chan-matching-yaml-object 
    (.readFileSync (node/require "fs") (str (aget node/process "env" "HOME") "/.yaml-table") "utf8") table-name))