elixir-mix-flatten.el

(defun elixir-mix-flatten (alist)
  (cond ((null alist) nil)
        ((atom alist) (list alist))
        (t (append (elixir-mix-flatten (car alist))
                   (elixir-mix-flatten (cdr alist))))))
                   
(ert-deftest test-flatten-of-list ()
  (should (equal (elixir-mix-flatten '(1 2 (3 4) 5))
                 '(1 2 3 4 5)))
  (should (equal (elixir-mix-flatten '(1 2 ("wood" "fire" (3)) 4 5))
                 '(1 2 "wood" "fire" 3 4 5))))