 (defn- letter? [s]
   (and (string? s)
        (.test #"[a-zA-Z]" s)))
+
+;; if dir is "C:\" on Windows, we don't need the extra path separator
+(defn- print-dir [dir]
+  (str dir
+       (when (not= (last dir) path-separator)
+          path-separator)))
 
 ;;------------------------------------------------------------------------------
 ;; State-effecting

(sablono/defhtml modal-overlay [click-fn]
  [:div.modal-overlay-120d3 {:on-click click-fn}])

(sablono/defhtml new-project-step-1 []
  [:div.modal-body-fe4db
    [:div.modal-chunk-2041a
      [:button.big-btn-a5d18 {:on-click click-new-project-btn}

      [:span.bottom-link-7d8d7 {:on-click click-go-back-btn}
        "go back"]]])

(sablono/defhtml creating-new-project [modal-state]
  [:div.modal-body-fe4db
    [:div.modal-chunk-2041a.creating-6d31a
      [:i.fa.fa-gear.fa-spin.icon-e70fb]
      "Creating project " [:strong (:new-project-name modal-state)]]])

;; TODO: implement this, GitHub Issue #46
; (sablono/defhtml new-project-step-4 []
