sort-deps.lm

defun unique (item i list)
  eq?
    .indexOf list item
    i 

def deps-json "
  {
    \"mongo\": [],
    \"tzinfo\": [\"thread_safe\"],
    \"uglifier\": [\"execjs\"],
    \"execjs\": [\"thread_safe\", \"json\"],
    \"redis\": []
  }
"
    
def deps-map (.parse js/JSON deps-json)

defun get-deps (name)
  or
    get-attr deps-map name
    '()

defun compute (deps)
  .reduce deps
    lambda (acc dep)
      .concat
        acc
        compute
          get-deps dep
        list dep
    '()

defun sort-deps (deps)
  def computed-keys
    compute
      .keys js/Object deps
  .filter
    computed-keys
    unique
    
sort-deps deps-map