biilmann/project.clj

## project.clj
(defproject appengine-test-app "1.0.0-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [net.cgrand/moustache "1.0.0-SNAPSHOT"]
                 [hiccup "0.3.0"]
                 [ring/ring-core "0.2.0"]
                 [ring/ring-jetty-adapter "0.2.0"]
                 [uk.org.alienscience/form-dot-clj "0.0.3"]]
  :dev-dependencies [[appengine-magic "0.3.2"]
                     [swank-clojure "1.2.1"]
                     [gaka "0.2.0"]
                     [ring/ring-devel "0.2.0"]])

## various.clj
;; From form-dot-clj.server-side:

(defn- check-integer
  "Returns a function to convert and check an integer."
  [min max error-message]
  (fn [s]
    (try
      (let [i (Integer. s)]
        (if-not (and (>= i min) (<= i max))
          {:error error-message}
          {:value i}))
      (catch NumberFormatException e
        {:error error-message}))))

; and

(defvar- validation-fns
  {:maxlength maxlength
   :integer check-integer})

(defn- generate-check-fn
  "Generate a check function for the given check"
  [check args]
  (if (contains? validation-fns check)
    (apply (validation-fns check) args)))

(defn generate-check-fns
  "Generate server side check functions from a field definition"
  [field]
  (remove nil?
          (map (fn [x] (generate-check-fn x (field x)))
               (field :validation-seq))))

;; From form-dot-clj.core

(defmacro def-field
  "Creates a var with the given name to hold a field definition.
   e.g
    (def-field username [:maxlength 20])  ;; creates (var username)"
  [field-name & validation]
  (let [field-def (build-field-def validation)
        server-checks (into [] (server/generate-check-fns field-def))
        field (assoc field-def :server-checks server-checks)]
  `(def ~field-name ~field)))


;; From my own code:

(def-field player-number [:integer 0 40 "Must be a valid player number"])
	(defproject appengine-test-app "1.0.0-SNAPSHOT"
	:description "FIXME: write"
	:dependencies [[org.clojure/clojure "1.2.0"]
	[org.clojure/clojure-contrib "1.2.0"]
	[net.cgrand/moustache "1.0.0-SNAPSHOT"]
	[hiccup "0.3.0"]
	[ring/ring-core "0.2.0"]
	[ring/ring-jetty-adapter "0.2.0"]
	[uk.org.alienscience/form-dot-clj "0.0.3"]]
	:dev-dependencies [[appengine-magic "0.3.2"]
	[swank-clojure "1.2.1"]
	[gaka "0.2.0"]
	[ring/ring-devel "0.2.0"]])
	;; From form-dot-clj.server-side:

	(defn- check-integer
	"Returns a function to convert and check an integer."
	[min max error-message]
	(fn [s]
	(try
	(let [i (Integer. s)]
	(if-not (and (>= i min) (<= i max))
	{:error error-message}
	{:value i}))
	(catch NumberFormatException e
	{:error error-message}))))

	; and

	(defvar- validation-fns
	{:maxlength maxlength
	:integer check-integer})

	(defn- generate-check-fn
	"Generate a check function for the given check"
	[check args]
	(if (contains? validation-fns check)
	(apply (validation-fns check) args)))

	(defn generate-check-fns
	"Generate server side check functions from a field definition"
	[field]
	(remove nil?
	(map (fn [x] (generate-check-fn x (field x)))
	(field :validation-seq))))

	;; From form-dot-clj.core

	(defmacro def-field
	"Creates a var with the given name to hold a field definition.
	e.g
	(def-field username [:maxlength 20]) ;; creates (var username)"
	[field-name & validation]
	(let [field-def (build-field-def validation)
	server-checks (into [] (server/generate-check-fns field-def))
	field (assoc field-def :server-checks server-checks)]
	`(def ~field-name ~field)))


	;; From my own code:

	(def-field player-number [:integer 0 40 "Must be a valid player number"])