nchurch

(ns modern-cljs.login
  (:require-macros [hiccups.core :as h])
  (:require [domina :as dom]
            [hiccups.runtime]
            [domina.events :as ev]
            [domina.xpath :as xp]))

(def ^:dynamic *password-re* #"^(?=.*\d).{4,8}$")

(def ^:dynamic *email-re* #"^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")

nchurch

(defproject enfocus.demo "1.0.0-SNAPSHOT"
  :description "FIXME: write description"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [ring "1.0.1"]
                 [enfocus "0.9.1-SNAPSHOT"]]
  :dev-dependencies [[lein-eclipse "1.0.0"]
                     [lein-cljsbuild "0.1.8"]]
  :cljsbuild {
              :builds [{:source-path "src/enfocus/demo"
                        :compiler {:output-to "resources/public/cljs/bootstrap.js"}

nchurch

(ns scaffoldjs.views.default
  (:use [noir.core :only [defpartial]]
        [noir.cljs.core :as cljs]
        [hiccup.page :only [include-css html5]]))

(defpartial layout [& content]
  (html5
   [:head
    [:title "scaffoldjs"]
    (include-css "/css/bootstrap.css")

nchurch

(ns ffind.core)

(defn argtest [func inp outp]
  (try
    (if (= (apply (eval func) inp) outp) func false)
    (catch Exception e false)))

(defn ffind-in [nmspc inp outp]
  (binding [*out* (java.io.StringWriter.)]
    (vec (filter #(argtest % inp outp) (keys (ns-publics nmspc))))))

nchurch

(defn argtest [func inp outp]
  (try
    (if (= (apply (eval func) inp) outp) func false)
    (catch Exception e false)))

(defn ffind-in [nmspc inp outp]
  (binding [*out* (java.io.StringWriter.)]
    (filter #(argtest % inp outp) (keys (ns-publics nmspc)))))