            themes)))
 
 (defun generate-site-files ()
-  (delete-directory "./html")
+  (if (file-exists-p "./html")
+    (delete-directory "./html" t))
+  (mkdir "./html")
   (generate-theme-files)
   (append-to-file
    (generate-index-html (get-string-from-file "./templates/layout.html")

;; requires s.el to be available and loaded
(require 's)
(require 'cl-lib)


(defun generate-theme-files ()
  (mapc
   (lambda (theme)
     ;; (helm-themes--load-theme theme)
     (htmlize-file "./sample.exs" (concat "./html/" theme ".html")))
   (sorted-helm-themes)))

