├── .gitignore ├── .travis.yml ├── README.md ├── doc ├── css │ └── default.css ├── index.html ├── js │ ├── jquery.min.js │ └── page_effects.js ├── noir.content.defaults.html ├── noir.content.getting-started.html ├── noir.cookies.html ├── noir.core.html ├── noir.exception.html ├── noir.options.html ├── noir.request.html ├── noir.response.html ├── noir.server.handler.html ├── noir.server.html ├── noir.session.html ├── noir.statuses.html ├── noir.util.crypt.html ├── noir.util.gae.html ├── noir.util.test.html └── noir.validation.html ├── history.md ├── project.clj ├── resources └── public │ ├── css │ ├── noir.css │ └── reset.css │ └── img │ ├── noir-bg.png │ └── noir-logo.png ├── src └── noir │ ├── content │ ├── defaults.clj │ └── getting_started.clj │ ├── core.clj │ ├── exception.clj │ ├── options.clj │ ├── request.clj │ ├── server.clj │ ├── server │ └── handler.clj │ ├── statuses.clj │ └── util │ ├── gae.clj │ └── test.clj └── test └── noir └── test ├── core.clj └── validation.clj /.gitignore: -------------------------------------------------------------------------------- 1 | pom.xml 2 | /target/ 3 | *jar 4 | /lib/ 5 | /classes/ 6 | .lein-deps-sum 7 | .lein-failures 8 | autodoc/ 9 | docs/ 10 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | language: clojure 2 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # Noir 2 | 3 | We recommend you use [Compojure](https://github.com/weavejester/compojure) and 4 | [lib-noir](https://github.com/noir-clojure/lib-noir) instead. This project isn't 5 | really maintained anymore. For more info, see http://blog.raynes.me/blog/2012/12/13/moving-away-from-noir/ 6 | 7 | A framework for writing clojure websites. Noir is currently being used in production at https://www.readyforzero.com 8 | 9 | Learn more at [Web Noir](http://www.webnoir.org) and see [Pinot](https://github.com/ibdknox/pinot) for its ClojureScript counterpart. 10 | 11 | ## Usage 12 | 13 | The best way to get started with noir is with the [leiningen](https://github.com/technomancy/leiningen) noir plugin. 14 | 15 | For Leiningen 1 run: 16 | 17 | ```bash 18 | lein plugin install lein-noir 1.2.1 19 | lein noir new my-website 20 | ``` 21 | For Leiningen 2 run instead (you may also [specify the lein-noir version to use in profiles.clj](https://github.com/technomancy/leiningen/wiki/Upgrading)): 22 | ```bash 23 | lein new noir my-website 24 | ``` 25 | 26 | Then continue: 27 | ```bash 28 | cd my-website 29 | lein run 30 | ``` 31 | 32 | If you want to include Noir in an already created leiningen project, simply add this to your dependencies: 33 | 34 | ```clojure 35 | [noir "1.2.2"] 36 | ``` 37 | 38 | ## Docs 39 | * [Web Noir](http://www.webnoir.org) 40 | 41 | ## Roadmap 42 | 43 | * Annotated examples of all public functions 44 | * More tutorials 45 | 46 | ## License 47 | 48 | Copyright (C) 2011 Chris Granger 49 | 50 | Distributed under the Eclipse Public License, the same as Clojure. 51 | -------------------------------------------------------------------------------- /doc/css/default.css: -------------------------------------------------------------------------------- 1 | body { 2 | font-family: sans-serif; 3 | font-size: 11pt; 4 | } 5 | 6 | pre, code { 7 | font-family: Monaco, DejaVu Sans Mono, Consolas, monospace; 8 | font-size: 9pt; 9 | } 10 | 11 | h2 { 12 | font-weight: normal; 13 | font-size: 18pt; 14 | margin: 10px 0 0.4em 0; 15 | } 16 | 17 | #header, #content, .sidebar { 18 | position: fixed; 19 | } 20 | 21 | #header { 22 | top: 0; 23 | left: 0; 24 | right: 0; 25 | height: 20px; 26 | background: #444; 27 | color: #fff; 28 | padding: 5px; 29 | } 30 | 31 | #content { 32 | top: 30px; 33 | right: 0; 34 | bottom: 0; 35 | overflow: auto; 36 | background: #fff; 37 | color: #333; 38 | padding: 0 1em; 39 | } 40 | 41 | .sidebar { 42 | position: fixed; 43 | top: 30px; 44 | bottom: 0; 45 | overflow: auto; 46 | } 47 | 48 | #namespaces { 49 | background: #e6e6e6; 50 | border-right: solid 1px #bbb; 51 | left: 0; 52 | width: 250px; 53 | } 54 | 55 | #vars { 56 | background: #eeeeee; 57 | border-right: solid 1px #ccc; 58 | left: 251px; 59 | width: 200px; 60 | } 61 | 62 | .namespace-index { 63 | left: 251px; 64 | } 65 | 66 | .namespace-docs { 67 | left: 452px; 68 | } 69 | 70 | #header { 71 | background: -moz-linear-gradient(top, #555 0%, #222 100%); 72 | background: -webkit-linear-gradient(top, #555 0%, #333 100%); 73 | background: -o-linear-gradient(top, #555 0%, #222 100%); 74 | background: -ms-linear-gradient(top, #555 0%, #222 100%); 75 | background: linear-gradient(top, #555 0%, #222 100%); 76 | box-shadow: 0 0 10px #555; 77 | z-index: 100; 78 | } 79 | 80 | #header h1 { 81 | margin: 0; 82 | padding: 0; 83 | font-size: 12pt; 84 | font-weight: normal; 85 | text-shadow: -1px -1px 0px #333; 86 | } 87 | 88 | #header a, .sidebar a { 89 | display: block; 90 | color: #333; 91 | text-decoration: none; 92 | } 93 | 94 | #header a { 95 | color: #fff; 96 | } 97 | 98 | .sidebar a { 99 | color: #333; 100 | } 101 | 102 | .sidebar h3 { 103 | margin: 0; 104 | padding: 10px 0.5em 0 0.5em; 105 | font-size: 14pt; 106 | font-weight: normal 107 | } 108 | 109 | .sidebar ul { 110 | padding: 0.5em 0em; 111 | margin: 0; 112 | } 113 | 114 | .sidebar li { 115 | display: block; 116 | } 117 | 118 | .sidebar li a { 119 | padding: 0.5em 0.8em; 120 | } 121 | 122 | #namespaces li.current a { 123 | border-left: 0.3em solid #a33; 124 | padding-left: 0.5em; 125 | color: #a33; 126 | } 127 | 128 | #vars li.current a { 129 | border-left: 0.3em solid #33a; 130 | padding-left: 0.5em; 131 | color: #33a; 132 | } 133 | 134 | #content h3 { 135 | margin-bottom: 0.5em; 136 | font-size: 13pt; 137 | font-weight: bold; 138 | } 139 | 140 | .public { 141 | margin-top: 1.5em; 142 | margin-bottom: 2.0em; 143 | } 144 | 145 | .public:last-child { 146 | margin-bottom: 20%; 147 | } 148 | 149 | .index { 150 | padding: 0; 151 | } 152 | 153 | .index * { 154 | display: inline; 155 | } 156 | 157 | .index li { 158 | padding: 0 .5em; 159 | } 160 | 161 | .index ul { 162 | padding-left: 0; 163 | } 164 | 165 | .usage code { 166 | display: block; 167 | color: #008; 168 | } 169 | -------------------------------------------------------------------------------- /doc/index.html: -------------------------------------------------------------------------------- 1 | 2 | Noir 1.3.0-beta1 API documentation

Noir 1.3.0-beta1 API documentation

Noir - a clojure web framework

noir.cookies

Stateful access to cookie values
 3 |

Public variables and functions:

noir.core

Functions to work with partials and pages.
 4 |

Public variables and functions:

noir.options

Allows access to Noir's server options
 5 |

Public variables and functions:

noir.request

Functions for accessing the original request object from within noir handlers
 6 |

Public variables and functions:

noir.response

Simple response helpers to change the content type, redirect, or return a canned response
 7 |

Public variables and functions:

noir.server

A collection of functions to handle Noir's server and add middleware to the stack.
 8 |

Public variables and functions:

noir.server.handler

Handler generation functions used by noir.server and other ring handler libraries.
 9 |

Public variables and functions:

noir.session

Stateful session handling functions. Uses a memory-store by
10 | default, but can use a custom store by supplying a :session-store
11 | option to server/start.

Public variables and functions:

noir.statuses

If no pages are defined that match a request, a status page is used based on the
12 | the HTTP status code of the response. This contains the function necessary to get
13 | or set these status pages.

Public variables and functions:

noir.util.crypt

Simple functions for hashing strings and comparing them. Typically used for storing passwords.
14 |

Public variables and functions:

noir.util.gae

Functions to help run noir on Google App Engine.
15 |

Public variables and functions:

noir.util.test

A set of utilities for testing a Noir project
16 |

Public variables and functions:

noir.validation

Functions for validating input and setting string errors on fields.
17 | All fields are simply keys, meaning this can be a general error storage and
18 | retrieval mechanism for the lifetime of a single request. Errors are not
19 | persisted and are cleaned out at the end of the request.

Public variables and functions:

-------------------------------------------------------------------------------- /doc/js/jquery.min.js: -------------------------------------------------------------------------------- 1 | /*! jQuery v1.6.4 http://jquery.com/ | http://jquery.org/license */ 2 | (function(a,b){function cu(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cr(a){if(!cg[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ch||(ch=c.createElement("iframe"),ch.frameBorder=ch.width=ch.height=0),b.appendChild(ch);if(!ci||!ch.createElement)ci=(ch.contentWindow||ch.contentDocument).document,ci.write((c.compatMode==="CSS1Compat"?"":"")+""),ci.close();d=ci.createElement(a),ci.body.appendChild(d),e=f.css(d,"display"),b.removeChild(ch)}cg[a]=e}return cg[a]}function cq(a,b){var c={};f.each(cm.concat.apply([],cm.slice(0,b)),function(){c[this]=a});return c}function cp(){cn=b}function co(){setTimeout(cp,0);return cn=f.now()}function cf(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ce(){try{return new a.XMLHttpRequest}catch(b){}}function b$(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g0){c!=="border"&&f.each(e,function(){c||(d-=parseFloat(f.css(a,"padding"+this))||0),c==="margin"?d+=parseFloat(f.css(a,c+this))||0:d-=parseFloat(f.css(a,"border"+this+"Width"))||0});return d+"px"}d=bv(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0,c&&f.each(e,function(){d+=parseFloat(f.css(a,"padding"+this))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+this+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+this))||0)});return d+"px"}function bl(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bd,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bk(a){f.nodeName(a,"input")?bj(a):"getElementsByTagName"in a&&f.grep(a.getElementsByTagName("input"),bj)}function bj(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bi(a){return"getElementsByTagName"in a?a.getElementsByTagName("*"):"querySelectorAll"in a?a.querySelectorAll("*"):[]}function bh(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bg(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c=f.expando,d=f.data(a),e=f.data(b,d);if(d=d[c]){var g=d.events;e=e[c]=f.extend({},d);if(g){delete e.handle,e.events={};for(var h in g)for(var i=0,j=g[h].length;i=0===c})}function U(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function M(a,b){return(a&&a!=="*"?a+".":"")+b.replace(y,"`").replace(z,"&")}function L(a){var b,c,d,e,g,h,i,j,k,l,m,n,o,p=[],q=[],r=f._data(this,"events");if(!(a.liveFired===this||!r||!r.live||a.target.disabled||a.button&&a.type==="click")){a.namespace&&(n=new RegExp("(^|\\.)"+a.namespace.split(".").join("\\.(?:.*\\.)?")+"(\\.|$)")),a.liveFired=this;var s=r.live.slice(0);for(i=0;ic)break;a.currentTarget=e.elem,a.data=e.handleObj.data,a.handleObj=e.handleObj,o=e.handleObj.origHandler.apply(e.elem,arguments);if(o===!1||a.isPropagationStopped()){c=e.level,o===!1&&(b=!1);if(a.isImmediatePropagationStopped())break}}return b}}function J(a,c,d){var e=f.extend({},d[0]);e.type=a,e.originalEvent={},e.liveFired=b,f.event.handle.call(c,e),e.isDefaultPrevented()&&d[0].preventDefault()}function D(){return!0}function C(){return!1}function m(a,c,d){var e=c+"defer",g=c+"queue",h=c+"mark",i=f.data(a,e,b,!0);i&&(d==="queue"||!f.data(a,g,b,!0))&&(d==="mark"||!f.data(a,h,b,!0))&&setTimeout(function(){!f.data(a,g,b,!0)&&!f.data(a,h,b,!0)&&(f.removeData(a,e,!0),i.resolve())},0)}function l(a){for(var b in a)if(b!=="toJSON")return!1;return!0}function k(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(j,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNaN(d)?i.test(d)?f.parseJSON(d):d:parseFloat(d)}catch(g){}f.data(a,c,d)}else d=b}return d}var c=a.document,d=a.navigator,e=a.location,f=function(){function K(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(K,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/\d/,n=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,o=/^[\],:{}\s]*$/,p=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,q=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,r=/(?:^|:|,)(?:\s*\[)+/g,s=/(webkit)[ \/]([\w.]+)/,t=/(opera)(?:.*version)?[ \/]([\w.]+)/,u=/(msie) ([\w.]+)/,v=/(mozilla)(?:.*? rv:([\w.]+))?/,w=/-([a-z]|[0-9])/ig,x=/^-ms-/,y=function(a,b){return(b+"").toUpperCase()},z=d.userAgent,A,B,C,D=Object.prototype.toString,E=Object.prototype.hasOwnProperty,F=Array.prototype.push,G=Array.prototype.slice,H=String.prototype.trim,I=Array.prototype.indexOf,J={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=n.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.6.4",length:0,size:function(){return this.length},toArray:function(){return G.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?F.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),B.done(a);return this},eq:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(G.apply(this,arguments),"slice",G.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:F,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j0)return;B.resolveWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").unbind("ready")}},bindReady:function(){if(!B){B=e._Deferred();if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",C,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",C),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&K()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNaN:function(a){return a==null||!m.test(a)||isNaN(a)},type:function(a){return a==null?String(a):J[D.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!E.call(a,"constructor")&&!E.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||E.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw a},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(o.test(b.replace(p,"@").replace(q,"]").replace(r,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(x,"ms-").replace(w,y)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i1?h.call(arguments,0):c,--e||g.resolveWith(g,h.call(b,0))}}var b=arguments,c=0,d=b.length,e=d,g=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred();if(d>1){for(;c
a",d=a.getElementsByTagName("*"),e=a.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=a.getElementsByTagName("input")[0],k={leadingWhitespace:a.firstChild.nodeType===3,tbody:!a.getElementsByTagName("tbody").length,htmlSerialize:!!a.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55$/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:a.className!=="t",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,k.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,k.optDisabled=!h.disabled;try{delete a.test}catch(v){k.deleteExpando=!1}!a.addEventListener&&a.attachEvent&&a.fireEvent&&(a.attachEvent("onclick",function(){k.noCloneEvent=!1}),a.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),k.radioValue=i.value==="t",i.setAttribute("checked","checked"),a.appendChild(i),l=c.createDocumentFragment(),l.appendChild(a.firstChild),k.checkClone=l.cloneNode(!0).cloneNode(!0).lastChild.checked,a.innerHTML="",a.style.width=a.style.paddingLeft="1px",m=c.getElementsByTagName("body")[0],o=c.createElement(m?"div":"body"),p={visibility:"hidden",width:0,height:0,border:0,margin:0,background:"none"},m&&f.extend(p,{position:"absolute",left:"-1000px",top:"-1000px"});for(t in p)o.style[t]=p[t];o.appendChild(a),n=m||b,n.insertBefore(o,n.firstChild),k.appendChecked=i.checked,k.boxModel=a.offsetWidth===2,"zoom"in a.style&&(a.style.display="inline",a.style.zoom=1,k.inlineBlockNeedsLayout=a.offsetWidth===2,a.style.display="",a.innerHTML="
",k.shrinkWrapBlocks=a.offsetWidth!==2),a.innerHTML="
t
",q=a.getElementsByTagName("td"),u=q[0].offsetHeight===0,q[0].style.display="",q[1].style.display="none",k.reliableHiddenOffsets=u&&q[0].offsetHeight===0,a.innerHTML="",c.defaultView&&c.defaultView.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",a.appendChild(j),k.reliableMarginRight=(parseInt((c.defaultView.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0),o.innerHTML="",n.removeChild(o);if(a.attachEvent)for(t in{submit:1,change:1,focusin:1})s="on"+t,u=s in a,u||(a.setAttribute(s,"return;"),u=typeof a[s]=="function"),k[t+"Bubbles"]=u;o=l=g=h=m=j=a=i=null;return k}(),f.boxModel=f.support.boxModel;var i=/^(?:\{.*\}|\[.*\])$/,j=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!l(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i=f.expando,j=typeof c=="string",k=a.nodeType,l=k?f.cache:a,m=k?a[f.expando]:a[f.expando]&&f.expando;if((!m||e&&m&&l[m]&&!l[m][i])&&j&&d===b)return;m||(k?a[f.expando]=m=++f.uuid:m=f.expando),l[m]||(l[m]={},k||(l[m].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?l[m][i]=f.extend(l[m][i],c):l[m]=f.extend(l[m],c);g=l[m],e&&(g[i]||(g[i]={}),g=g[i]),d!==b&&(g[f.camelCase(c)]=d);if(c==="events"&&!g[c])return g[i]&&g[i].events;j?(h=g[c],h==null&&(h=g[f.camelCase(c)])):h=g;return h}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e=f.expando,g=a.nodeType,h=g?f.cache:a,i=g?a[f.expando]:f.expando;if(!h[i])return;if(b){d=c?h[i][e]:h[i];if(d){d[b]||(b=f.camelCase(b)),delete d[b];if(!l(d))return}}if(c){delete h[i][e];if(!l(h[i]))return}var j=h[i][e];f.support.deleteExpando||!h.setInterval?delete h[i]:h[i]=null,j?(h[i]={},g||(h[i].toJSON=f.noop),h[i][e]=j):g&&(f.support.deleteExpando?delete a[f.expando]:a.removeAttribute?a.removeAttribute(f.expando):a[f.expando]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d=null;if(typeof a=="undefined"){if(this.length){d=f.data(this[0]);if(this[0].nodeType===1){var e=this[0].attributes,g;for(var h=0,i=e.length;h-1)return!0;return!1},val:function(a){var c,d,e=this[0];if(!arguments.length){if(e){c=f.valHooks[e.nodeName.toLowerCase()]||f.valHooks[e.type];if(c&&"get"in c&&(d=c.get(e,"value"))!==b)return d;d=e.value;return typeof d=="string"?d.replace(p,""):d==null?"":d}return b}var g=f.isFunction(a);return this.each(function(d){var e=f(this),h;if(this.nodeType===1){g?h=a.call(this,d,e.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c=a.selectedIndex,d=[],e=a.options,g=a.type==="select-one";if(c<0)return null;for(var h=g?c:0,i=g?c+1:e.length;h=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attrFix:{tabindex:"tabIndex"},attr:function(a,c,d,e){var g=a.nodeType;if(!a||g===3||g===8||g===2)return b;if(e&&c in f.attrFn)return f(a)[c](d);if(!("getAttribute"in a))return f.prop(a,c,d);var h,i,j=g!==1||!f.isXMLDoc(a);j&&(c=f.attrFix[c]||c,i=f.attrHooks[c],i||(t.test(c)?i=v:u&&(i=u)));if(d!==b){if(d===null){f.removeAttr(a,c);return b}if(i&&"set"in i&&j&&(h=i.set(a,d,c))!==b)return h;a.setAttribute(c,""+d);return d}if(i&&"get"in i&&j&&(h=i.get(a,c))!==null)return h;h=a.getAttribute(c);return h===null?b:h},removeAttr:function(a,b){var c;a.nodeType===1&&(b=f.attrFix[b]||b,f.attr(a,b,""),a.removeAttribute(b),t.test(b)&&(c=f.propFix[b]||b)in a&&(a[c]=!1))},attrHooks:{type:{set:function(a,b){if(q.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(u&&f.nodeName(a,"button"))return u.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(u&&f.nodeName(a,"button"))return u.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e=a.nodeType;if(!a||e===3||e===8||e===2)return b;var g,h,i=e!==1||!f.isXMLDoc(a);i&&(c=f.propFix[c]||c,h=f.propHooks[c]);return d!==b?h&&"set"in h&&(g=h.set(a,d,c))!==b?g:a[c]=d:h&&"get"in h&&(g=h.get(a,c))!==null?g:a[c]},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):r.test(a.nodeName)||s.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabIndex=f.propHooks.tabIndex,v={get:function(a,c){var d;return f.prop(a,c)===!0||(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},f.support.getSetAttribute||(u=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&d.nodeValue!==""?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})})),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var w=/\.(.*)$/,x=/^(?:textarea|input|select)$/i,y=/\./g,z=/ /g,A=/[^\w\s.|`]/g,B=function(a){return a.replace(A,"\\$&")};f.event={add:function(a,c,d,e){if(a.nodeType!==3&&a.nodeType!==8){if(d===!1)d=C;else if(!d)return;var g,h;d.handler&&(g=d,d=g.handler),d.guid||(d.guid=f.guid++);var i=f._data(a);if(!i)return;var j=i.events,k=i.handle;j||(i.events=j={}),k||(i.handle=k=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.handle.apply(k.elem,arguments):b}),k.elem=a,c=c.split(" ");var l,m=0,n;while(l=c[m++]){h=g?f.extend({},g):{handler:d,data:e},l.indexOf(".")>-1?(n=l.split("."),l=n.shift(),h.namespace=n.slice(0).sort().join(".")):(n=[],h.namespace=""),h.type=l,h.guid||(h.guid=d.guid);var o=j[l],p=f.event.special[l]||{};if(!o){o=j[l]=[];if(!p.setup||p.setup.call(a,e,n,k)===!1)a.addEventListener?a.addEventListener(l,k,!1):a.attachEvent&&a.attachEvent("on"+l,k)}p.add&&(p.add.call(a,h),h.handler.guid||(h.handler.guid=d.guid)),o.push(h),f.event.global[l]=!0}a=null}},global:{},remove:function(a,c,d,e){if(a.nodeType!==3&&a.nodeType!==8){d===!1&&(d=C);var g,h,i,j,k=0,l,m,n,o,p,q,r,s=f.hasData(a)&&f._data(a),t=s&&s.events;if(!s||!t)return;c&&c.type&&(d=c.handler,c=c.type);if(!c||typeof c=="string"&&c.charAt(0)==="."){c=c||"";for(h in t)f.event.remove(a,h+c);return}c=c.split(" ");while(h=c[k++]){r=h,q=null,l=h.indexOf(".")<0,m=[],l||(m=h.split("."),h=m.shift(),n=new RegExp("(^|\\.)"+f.map(m.slice(0).sort(),B).join("\\.(?:.*\\.)?")+"(\\.|$)")),p=t[h];if(!p)continue;if(!d){for(j=0;j=0&&(h=h.slice(0,-1),j=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if(!!e&&!f.event.customEvent[h]||!!f.event.global[h]){c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.exclusive=j,c.namespace=i.join("."),c.namespace_re=new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)");if(g||!e)c.preventDefault(),c.stopPropagation();if(!e){f.each(f.cache,function(){var a=f.expando,b=this[a];b&&b.events&&b.events[h]&&f.event.trigger(c,d,b.handle.elem)});return}if(e.nodeType===3||e.nodeType===8)return;c.result=b,c.target=e,d=d!=null?f.makeArray(d):[],d.unshift(c);var k=e,l=h.indexOf(":")<0?"on"+h:"";do{var m=f._data(k,"handle");c.currentTarget=k,m&&m.apply(k,d),l&&f.acceptData(k)&&k[l]&&k[l].apply(k,d)===!1&&(c.result=!1,c.preventDefault()),k=k.parentNode||k.ownerDocument||k===c.target.ownerDocument&&a}while(k&&!c.isPropagationStopped());if(!c.isDefaultPrevented()){var n,o=f.event.special[h]||{};if((!o._default||o._default.call(e.ownerDocument,c)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)){try{l&&e[h]&&(n=e[l],n&&(e[l]=null),f.event.triggered=h,e[h]())}catch(p){}n&&(e[l]=n),f.event.triggered=b}}return c.result}},handle:function(c){c=f.event.fix(c||a.event);var d=((f._data(this,"events")||{})[c.type]||[]).slice(0),e=!c.exclusive&&!c.namespace,g=Array.prototype.slice.call(arguments,0);g[0]=c,c.currentTarget=this;for(var h=0,i=d.length;h-1?f.map(a.options,function(a){return a.selected}).join("-"):"":f.nodeName(a,"select")&&(c=a.selectedIndex);return c},I=function(c){var d=c.target,e,g;if(!!x.test(d.nodeName)&&!d.readOnly){e=f._data(d,"_change_data"),g=H(d),(c.type!=="focusout"||d.type!=="radio")&&f._data(d,"_change_data",g);if(e===b||g===e)return;if(e!=null||g)c.type="change",c.liveFired=b,f.event.trigger(c,arguments[1],d)}};f.event.special.change={filters:{focusout:I,beforedeactivate:I,click:function(a){var b=a.target,c=f.nodeName(b,"input")?b.type:"";(c==="radio"||c==="checkbox"||f.nodeName(b,"select"))&&I.call(this,a)},keydown:function(a){var b=a.target,c=f.nodeName(b,"input")?b.type:"";(a.keyCode===13&&!f.nodeName(b,"textarea")||a.keyCode===32&&(c==="checkbox"||c==="radio")||c==="select-multiple")&&I.call(this,a)},beforeactivate:function(a){var b=a.target;f._data(b,"_change_data",H(b))}},setup:function(a,b){if(this.type==="file")return!1;for(var c in G)f.event.add(this,c+".specialChange",G[c]);return x.test(this.nodeName)},teardown:function(a){f.event.remove(this,".specialChange");return x.test(this.nodeName)}},G=f.event.special.change.filters,G.focus=G.beforeactivate}f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){function e(a){var c=f.event.fix(a);c.type=b,c.originalEvent={},f.event.trigger(c,null,c.target),c.isDefaultPrevented()&&a.preventDefault()}var d=0;f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.each(["bind","one"],function(a,c){f.fn[c]=function(a,d,e){var g;if(typeof a=="object"){for(var h in a)this[c](h,d,a[h],e);return this}if(arguments.length===2||d===!1)e=d,d=b;c==="one"?(g=function(a){f(this).unbind(a,g);return e.apply(this,arguments)},g.guid=e.guid||f.guid++):g=e;if(a==="unload"&&c!=="one")this.one(a,d,e);else for(var i=0,j=this.length;i0?this.bind(b,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0)}),function(){function u(a,b,c,d,e,f){for(var g=0,h=d.length;g0){j=i;break}}i=i[a]}d[g]=j}}}function t(a,b,c,d,e,f){for(var g=0,h=d.length;g+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d=0,e=Object.prototype.toString,g=!1,h=!0,i=/\\/g,j=/\W/;[0,0].sort(function(){h=!1;return 0});var k=function(b,d,f,g){f=f||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return f;var i,j,n,o,q,r,s,t,u=!0,w=k.isXML(d),x=[],y=b;do{a.exec(""),i=a.exec(y);if(i){y=i[3],x.push(i[1]);if(i[2]){o=i[3];break}}}while(i);if(x.length>1&&m.exec(b))if(x.length===2&&l.relative[x[0]])j=v(x[0]+x[1],d);else{j=l.relative[x[0]]?[d]:k(x.shift(),d);while(x.length)b=x.shift(),l.relative[b]&&(b+=x.shift()),j=v(b,j)}else{!g&&x.length>1&&d.nodeType===9&&!w&&l.match.ID.test(x[0])&&!l.match.ID.test(x[x.length-1])&&(q=k.find(x.shift(),d,w),d=q.expr?k.filter(q.expr,q.set)[0]:q.set[0]);if(d){q=g?{expr:x.pop(),set:p(g)}:k.find(x.pop(),x.length===1&&(x[0]==="~"||x[0]==="+")&&d.parentNode?d.parentNode:d,w),j=q.expr?k.filter(q.expr,q.set):q.set,x.length>0?n=p(j):u=!1;while(x.length)r=x.pop(),s=r,l.relative[r]?s=x.pop():r="",s==null&&(s=d),l.relative[r](n,s,w)}else n=x=[]}n||(n=j),n||k.error(r||b);if(e.call(n)==="[object Array]")if(!u)f.push.apply(f,n);else if(d&&d.nodeType===1)for(t=0;n[t]!=null;t++)n[t]&&(n[t]===!0||n[t].nodeType===1&&k.contains(d,n[t]))&&f.push(j[t]);else for(t=0;n[t]!=null;t++)n[t]&&n[t].nodeType===1&&f.push(j[t]);else p(n,f);o&&(k(o,h,f,g),k.uniqueSort(f));return f};k.uniqueSort=function(a){if(r){g=h,a.sort(r);if(g)for(var b=1;b0},k.find=function(a,b,c){var d;if(!a)return[];for(var e=0,f=l.order.length;e":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!j.test(b)){b=b.toLowerCase();for(;e=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(i,"")},TAG:function(a,b){return a[1].replace(i,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||k.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&k.error(a[0]);a[0]=d++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(i,"");!f&&l.attrMap[g]&&(a[1]=l.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(i,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=k(b[3],null,null,c);else{var g=k.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(l.match.POS.test(b[0])||l.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!k(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return bc[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=l.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||k.getText([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=l.attrHandle[c]?l.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=l.setFilters[e];if(f)return f(a,c,b,d)}}},m=l.match.POS,n=function(a,b){return"\\"+(b-0+1)};for(var o in l.match)l.match[o]=new RegExp(l.match[o].source+/(?![^\[]*\])(?![^\(]*\))/.source),l.leftMatch[o]=new RegExp(/(^(?:.|\r|\n)*?)/.source+l.match[o].source.replace(/\\(\d+)/g,n));var p=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(q){p=function(a,b){var c=0,d=b||[];if(e.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var f=a.length;c",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(l.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},l.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(l.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(l.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=k,b=c.createElement("div"),d="__sizzle__";b.innerHTML="

";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){k=function(b,e,f,g){e=e||c;if(!g&&!k.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return p(e.getElementsByTagName(b),f);if(h[2]&&l.find.CLASS&&e.getElementsByClassName)return p(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return p([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return p([],f);if(i.id===h[3])return p([i],f)}try{return p(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var m=e,n=e.getAttribute("id"),o=n||d,q=e.parentNode,r=/^\s*[+~]/.test(b);n?o=o.replace(/'/g,"\\$&"):e.setAttribute("id",o),r&&q&&(e=e.parentNode);try{if(!r||q)return p(e.querySelectorAll("[id='"+o+"'] "+b),f)}catch(s){}finally{n||m.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)k[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}k.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!k.isXML(a))try{if(e||!l.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return k(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="
";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;l.order.splice(1,0,"CLASS"),l.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?k.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?k.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:k.contains=function(){return!1},k.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var v=function(a,b){var c,d=[],e="",f=b.nodeType?[b]:b;while(c=l.match.PSEUDO.exec(a))e+=c[0],a=a.replace(l.match.PSEUDO,"");a=l.relative[a]?a+"*":a;for(var g=0,h=f.length;g0)for(h=g;h0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h,i,j={},k=1;if(g&&a.length){for(d=0,e=a.length;d-1:f(g).is(h))&&c.push({selector:i,elem:g,level:k});g=g.parentNode,k++}}return c}var l=S.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(U(c[0])||U(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c),g=R.call(arguments);N.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!T[a]?f.unique(e):e,(this.length>1||P.test(d))&&O.test(a)&&(e=e.reverse());return this.pushStack(e,a,g.join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/",""],legend:[1,"
","
"],thead:[1,"","
"],tr:[2,"","
"],td:[3,"","
"],col:[2,"","
"],area:[1,"",""],_default:[0,"",""]};be.optgroup=be.option,be.tbody=be.tfoot=be.colgroup=be.caption=be.thead,be.th=be.td,f.support.htmlSerialize||(be._default=[1,"div
","
"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){f(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f(arguments[0]).toArray());return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!be[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1>");try{for(var c=0,d=this.length;c1&&l0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d=a.cloneNode(!0),e,g,h;if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bh(a,d),e=bi(a),g=bi(d);for(h=0;e[h];++h)g[h]&&bh(e[h],g[h])}if(b){bg(a,d);if(c){e=bi(a),g=bi(d);for(h=0;e[h];++h)bg(e[h],g[h])}}e=g=null;return d},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=be[l]||be._default,n=m[0],o=b.createElement("div");o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]===""&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return bn.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNaN(b)?"":"alpha(opacity="+b*100+")",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bm,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bm.test(g)?g.replace(bm,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bv(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bw=function(a,c){var d,e,g;c=c.replace(bo,"-$1").toLowerCase();if(!(e=a.ownerDocument.defaultView))return b;if(g=e.getComputedStyle(a,null))d=g.getPropertyValue(c),d===""&&!f.contains(a.ownerDocument.documentElement,a)&&(d=f.style(a,c));return d}),c.documentElement.currentStyle&&(bx=function(a,b){var c,d=a.currentStyle&&a.currentStyle[b],e=a.runtimeStyle&&a.runtimeStyle[b],f=a.style;!bp.test(d)&&bq.test(d)&&(c=f.left,e&&(a.runtimeStyle.left=a.currentStyle.left),f.left=b==="fontSize"?"1em":d||0,d=f.pixelLeft+"px",f.left=c,e&&(a.runtimeStyle.left=e));return d===""?"auto":d}),bv=bw||bx,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bz=/%20/g,bA=/\[\]$/,bB=/\r?\n/g,bC=/#.*$/,bD=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bE=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bF=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bG=/^(?:GET|HEAD)$/,bH=/^\/\//,bI=/\?/,bJ=/)<[^<]*)*<\/script>/gi,bK=/^(?:select|textarea)/i,bL=/\s+/,bM=/([?&])_=[^&]*/,bN=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bO=f.fn.load,bP={},bQ={},bR,bS,bT=["*/"]+["*"];try{bR=e.href}catch(bU){bR=c.createElement("a"),bR.href="",bR=bR.href}bS=bN.exec(bR.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bO)return bO.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("
").append(c.replace(bJ,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bK.test(this.nodeName)||bE.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bB,"\r\n")}}):{name:b.name,value:c.replace(bB,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.bind(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?bX(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),bX(a,b);return a},ajaxSettings:{url:bR,isLocal:bF.test(bS[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bT},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bV(bP),ajaxTransport:bV(bQ),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?bZ(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=b$(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.resolveWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f._Deferred(),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bD.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.done,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bC,"").replace(bH,bS[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bL),d.crossDomain==null&&(r=bN.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bS[1]&&r[2]==bS[2]&&(r[3]||(r[1]==="http:"?80:443))==(bS[3]||(bS[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),bW(bP,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bG.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bI.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bM,"$1_="+x);d.url=y+(y===d.url?(bI.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bT+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=bW(bQ,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){s<2?w(-1,z):f.error(z)}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)bY(g,a[g],c,e);return d.join("&").replace(bz,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var b_=f.now(),ca=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+b_++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ca.test(b.url)||e&&ca.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ca,l),b.url===j&&(e&&(k=k.replace(ca,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cb=a.ActiveXObject?function(){for(var a in cd)cd[a](0,1)}:!1,cc=0,cd;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ce()||cf()}:ce,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cb&&delete cd[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cc,cb&&(cd||(cd={},f(a).unload(cb)),cd[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var cg={},ch,ci,cj=/^(?:toggle|show|hide)$/,ck=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cl,cm=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cn;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cq("show",3),a,b,c);for(var g=0,h=this.length;g=e.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),e.animatedProperties[this.prop]=!0;for(g in e.animatedProperties)e.animatedProperties[g]!==!0&&(c=!1);if(c){e.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){d.style["overflow"+b]=e.overflow[a]}),e.hide&&f(d).hide();if(e.hide||e.show)for(var i in e.animatedProperties)f.style(d,i,e.orig[i]);e.complete.call(d)}return!1}e.duration==Infinity?this.now=b:(h=b-this.startTime,this.state=h/e.duration,this.pos=f.easing[e.animatedProperties[this.prop]](this.state,h,0,1,e.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){for(var a=f.timers,b=0;b
";f.extend(b.style,{position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",height:"1px",visibility:"hidden"}),b.innerHTML=j,a.insertBefore(b,a.firstChild),d=b.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,this.doesNotAddBorder=e.offsetTop!==5,this.doesAddBorderForTableAndCells=h.offsetTop===5,e.style.position="fixed",e.style.top="20px",this.supportsFixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",this.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,this.doesNotIncludeMarginInBodyOffset=a.offsetTop!==i,a.removeChild(b),f.offset.initialize=f.noop},bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.offset.initialize(),f.offset.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=ct.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!ct.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cu(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cu(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a&&a.style?parseFloat(f.css(a,d,"padding")):null},f.fn["outer"+c]=function(a){var b=this[0];return b&&b.style?parseFloat(f.css(b,d,a?"margin":"border")):null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNaN(j)?i:j}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f})(window); -------------------------------------------------------------------------------- /doc/js/page_effects.js: -------------------------------------------------------------------------------- 1 | function visibleInParent(element) { 2 | var position = $(element).position().top 3 | return position >= 0 && position < $(element).offsetParent().height() 4 | } 5 | 6 | function hasFragment(link, fragment) { 7 | return $(link).attr("href").indexOf("#" + fragment) != -1 8 | } 9 | 10 | function findLinkByFragment(elements, fragment) { 11 | return $(elements).filter(function(i, e) { return hasFragment(e, fragment)}).first() 12 | } 13 | 14 | function setCurrentVarLink() { 15 | $('#vars li').removeClass('current') 16 | $('.public'). 17 | filter(function(index) { return visibleInParent(this) }). 18 | each(function(index, element) { 19 | findLinkByFragment("#vars a", element.id). 20 | parent(). 21 | addClass('current') 22 | }) 23 | } 24 | 25 | var hasStorage = (function() { try { return localStorage.getItem } catch(e) {} }()) 26 | 27 | function scrollPositionId(element) { 28 | var directory = window.location.href.replace(/[^\/]+\.html$/, '') 29 | return 'scroll::' + $(element).attr('id') + '::' + directory 30 | } 31 | 32 | function storeScrollPosition(element) { 33 | if (!hasStorage) return; 34 | localStorage.setItem(scrollPositionId(element) + "::x", $(element).scrollLeft()) 35 | localStorage.setItem(scrollPositionId(element) + "::y", $(element).scrollTop()) 36 | } 37 | 38 | function recallScrollPosition(element) { 39 | if (!hasStorage) return; 40 | $(element).scrollLeft(localStorage.getItem(scrollPositionId(element) + "::x")) 41 | $(element).scrollTop(localStorage.getItem(scrollPositionId(element) + "::y")) 42 | } 43 | 44 | function persistScrollPosition(element) { 45 | recallScrollPosition(element) 46 | $(element).scroll(function() { storeScrollPosition(element) }) 47 | } 48 | 49 | function sidebarContentWidth(element) { 50 | var widths = $(element).find('span').map(function() { return $(this).width() }) 51 | return Math.max.apply(Math, widths) 52 | } 53 | 54 | function resizeNamespaces() { 55 | var width = sidebarContentWidth('#namespaces') + 40 56 | $('#namespaces').css('width', width) 57 | $('#vars, .namespace-index').css('left', width + 1) 58 | $('.namespace-docs').css('left', $('#vars').width() + width + 2) 59 | } 60 | 61 | $(window).ready(resizeNamespaces) 62 | $(window).ready(setCurrentVarLink) 63 | $(window).ready(function() { $('#content').scroll(setCurrentVarLink) }) 64 | $(window).ready(function() { persistScrollPosition('#namespaces')}) 65 | -------------------------------------------------------------------------------- /doc/noir.content.defaults.html: -------------------------------------------------------------------------------- 1 | 2 | noir.content.defaults documentation

noir.content.defaults documentation




--------------------------------------------------------------------------------
/doc/noir.content.getting-started.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.content.getting-started documentation
noir.content.getting-started documentation



--------------------------------------------------------------------------------
/doc/noir.cookies.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.cookies documentation
noir.cookies documentation
Stateful access to cookie values
 3 | 
get
(get k)(get k default)
Get the value of a cookie from the request. k can either be a string or keyword.
 4 | If this is a signed cookie, use get-signed, otherwise the signature will not be
 5 | checked.
get-signed
(get-signed sign-key k)(get-signed sign-key k default)
Get the value of a cookie from the request using 'get'. Verifies that a signing
 6 | cookie also exists. If not, returns default or nil. 
put!
(put! k v)
Add a new cookie whose name is k and has the value v. If v is a string
 7 | a cookie map is created with :path '/'. To set custom attributes, such as
 8 | "expires", provide a map as v. Stores all keys as strings.
put-signed!
(put-signed! sign-key k v)
Adds a new cookie whose name is k and has the value v. In addition,
 9 | adds another cookie that checks the authenticity of 'v'. Sign-key
10 | should be a secret that's user-wide, session-wide or site wide (worst).



--------------------------------------------------------------------------------
/doc/noir.core.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.core documentation
noir.core documentation
Functions to work with partials and pages.
 3 | 
compojure-route
(compojure-route compojure-func)
Adds a compojure route fn to the end of the route table. These routes are queried after
 4 | those created by defpage and before the generic catch-all and resources routes.
 5 | 
 6 | These are primarily used to integrate generated routes from other libs into Noir.
custom-handler
(custom-handler & args)
Adds a handler to the end of the route table. This is equivalent to writing
 7 | a compojure route using noir's [:method route] syntax.
 8 | 
 9 | (custom-handler [:post "/login"] {:as req} (println "hello " req))
10 | => (POST "/login" {:as req} (println "hello" req))
11 | 
12 | These are primarily used to interface with other handler generating libraries, i.e. async aleph handlers.
custom-handler*
(custom-handler* route func)
Adds a handler to the end of the route table. This is equivalent to writing
13 | a compojure route using noir's [:method route] syntax, but allows functions
14 | to be created dynamically:
15 | 
16 | (custom-handler* [:post "/login"] (fn [params] (println req)))
17 | 
18 | These are primarily used to interface with other dynamic handler generating libraries
defpage
(defpage & args)
Adds a route to the server whose content is the the result of evaluating the body.
19 | The function created is passed the params of the request and the destruct param allows
20 | you to destructure that meaningfully for use in the body.
21 | 
22 | There are several supported forms:
23 | 
24 | (defpage "/foo/:id" {id :id})  an unnamed route
25 | (defpage [:post "/foo/:id"] {id :id}) a route that responds to POST
26 | (defpage foo "/foo:id" {id :id}) a named route
27 | (defpage foo [:post "/foo/:id"] {id :id})
28 | 
29 | The default method is GET.
defpartial
(defpartial fname params & body)
Create a function that returns html using hiccup. The function is callable with the given name.
30 | 
post-route
(post-route & args)
Adds a route to the end of the route table and passes the entire request to
31 | be desctructured and used in the body. These routes are guaranteed to be
32 | evaluated after those created by defpage and before the generic catch-all and
33 | resources routes.
pre-route
(pre-route & args)
Adds a route to the beginning of the route table and passes the entire request
34 | to be destructured and used in the body. These routes are the only ones to make
35 | an ordering gaurantee. They will always be in order of ascending specificity (e.g. /* ,
36 | /admin/* , /admin/user/*) Pre-routes are usually used for filtering, like redirecting
37 | a section based on privileges:
38 | 
39 | (pre-route '/admin/*' {} (when-not (is-admin?) (redirect '/login')))
render
(render route & [params])
Renders the content for a route by calling the page like a function
40 | with the given param map. Accepts either '/vals' or [:post '/vals']
url-for
(url-for route & [arg-map])
given a named route, i.e. (defpage foo "/foo/:id"), returns the url for the
41 | route. If the route takes arguments, the second argument must be a
42 | map of route arguments to values
43 | 
44 | (url-for foo {:id 3}) => "/foo/3" 



--------------------------------------------------------------------------------
/doc/noir.exception.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.exception documentation
noir.exception documentation
Functions to handle exceptions within a Noir server gracefully.
3 | 



--------------------------------------------------------------------------------
/doc/noir.options.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.options documentation
noir.options documentation
Allows access to Noir's server options
3 | 
dev-mode?
(dev-mode?)
Returns if the server is currently in development mode
4 | 
get
(get k default)(get k)
Get an option from the noir options map
5 | 



--------------------------------------------------------------------------------
/doc/noir.request.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.request documentation
noir.request documentation
Functions for accessing the original request object from within noir handlers
3 | 
ring-request
(ring-request)
Returns back the current ring request map
4 | 



--------------------------------------------------------------------------------
/doc/noir.response.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.response documentation
noir.response documentation
Simple response helpers to change the content type, redirect, or return a canned response
 3 | 
content-type
(content-type ctype content)
Wraps the response with the given content type and sets the body to the content.
 4 | 
empty
(empty)
Return a successful, but completely empty response
 5 | 
json
(json content)
Wraps the response in the json content type and generates JSON from the content
 6 | 
jsonp
(jsonp func-name content)
Generates JSON for the given content and creates a javascript response for calling
 7 | func-name with it.
redirect
(redirect url)
A header redirect to a different url
 8 | 
set-headers
(set-headers headers content)
Add a map of headers to the given response. Headers must have
 9 | string keys:
10 | 
11 | (set-headers {"x-csrf" csrf}
12 |   (common/layout [:p "hey"]))
status
(status code content)
Wraps the content in the given status code
13 | 
xml
(xml content)
Wraps the response with the content type for xml and sets the body to the content.
14 | 



--------------------------------------------------------------------------------
/doc/noir.server.handler.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.server.handler documentation
noir.server.handler documentation
Handler generation functions used by noir.server and other ring handler libraries.
3 | 
add-custom-middleware
(add-custom-middleware func & args)
Add a middleware function to all noir handlers.
4 | 
base-handler
(base-handler & [opts])
Get the most basic Noir request handler, only adding wrap-custom-middleware and wrap-request-map.
5 | 
wrap-noir-middleware
(wrap-noir-middleware handler opts)
Wrap a base handler in all of noir's middleware
6 | 
wrap-spec-routes
(wrap-spec-routes handler opts)
Wrap a handler in noir's resource and catch-all routes.
7 | 



--------------------------------------------------------------------------------
/doc/noir.server.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.server documentation
noir.server documentation
A collection of functions to handle Noir's server and add middleware to the stack.
 3 | 
add-middleware
(add-middleware func & args)
Add a middleware function to the noir server. Func is a standard ring middleware
 4 | function, which will be passed the handler. Any extra args to be applied should be
 5 | supplied along with the function.
gen-handler
(gen-handler & [opts])
Get a full Noir request handler for use with plugins like lein-ring or lein-beanstalk.
 6 | If used in a definition, this must come after views have been loaded to ensure that the
 7 | routes have already been added to the route table.
load-views
(load-views & dirs)
Require all the namespaces in the given dir so that the pages are loaded
 8 | by the server.
load-views-ns
(load-views-ns & ns-syms)
Require all the namespaces prefixed by the namespace symbol given so that the pages
 9 | are loaded by the server.
restart
(restart server)
Restart a noir server
10 | 
start
(start port & [opts])
Create a noir server bound to the specified port with a map of options and return it.
11 | The available options are:
12 | 
13 | :mode - either :dev or :prod
14 | :ns - the root namepace of your project
15 | :jetty-options - any extra options you want to send to jetty like :ssl?
16 | :base-url - the root url to prepend to generated links and resources
17 | :resource-options - a map of options for the resources route (:root or :mime-types)
18 | :session-store - an alternate store for session handling
19 | :session-cookie-attrs - custom session cookie attributes
stop
(stop server)
Stop a noir server
20 | 
wrap-route
(wrap-route route middleware & args)
Add a middleware function to a specific route. Route is a standard route you would
21 | use for defpage, func is a ring middleware function, and args are any additional args
22 | to pass to the middleware function. You can wrap the resources and catch-all routes by
23 | supplying the routes :resources and :catch-all respectively:
24 | 
25 | (wrap-route :resources some-caching-middleware)



--------------------------------------------------------------------------------
/doc/noir.session.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.session documentation
noir.session documentation
Stateful session handling functions. Uses a memory-store by
 3 | default, but can use a custom store by supplying a :session-store
 4 | option to server/start.
clear!
(clear!)
Remove all data from the session and start over cleanly.
 5 | 
flash-get
(flash-get k)(flash-get k not-found)
Retrieve the flash stored value.
 6 | 
flash-put!
(flash-put! k v)
Store a value that will persist for this request and the next.
 7 | 
get
(get k)(get k default)
Get the key's value from the session, returns nil if it doesn't exist.
 8 | 
get!
(get! k)(get! k default)
Destructive get from the session. This returns the current value of the key
 9 | and then removes it from the session.
put!
(put! k v)
Associates the key with the given value in the session
10 | 
remove!
(remove! k)
Remove a key from the session
11 | 
swap!
(swap! f & args)
Replace the current session's value with the result of executing f with
12 | the current value and args.



--------------------------------------------------------------------------------
/doc/noir.statuses.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.statuses documentation
noir.statuses documentation
If no pages are defined that match a request, a status page is used based on the
3 | the HTTP status code of the response. This contains the function necessary to get
4 | or set these status pages.
get-page
(get-page code)
Gets the content to display for the given status code
5 | 
set-page!
(set-page! code content)
Sets the content to be displayed if there is a response with the given status
6 | code. This is used for custom 404 pages, for example.



--------------------------------------------------------------------------------
/doc/noir.util.crypt.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.util.crypt documentation
noir.util.crypt documentation
Simple functions for hashing strings and comparing them. Typically used for storing passwords.
3 | 
compare
(compare raw encrypted)
Compare a raw string with an already encrypted string
4 | 
encrypt
(encrypt salt raw)(encrypt raw)
Encrypt the given string with a generated or supplied salt. Uses BCrypt for strong hashing.
5 | 



--------------------------------------------------------------------------------
/doc/noir.util.gae.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.util.gae documentation
noir.util.gae documentation
Functions to help run noir on Google App Engine.
3 | 
gae-handler
(gae-handler opts)
Create a Google AppEngine friendly handler for Noir. Use this instead
4 | of server/gen-handler for AppEngine projects.



--------------------------------------------------------------------------------
/doc/noir.util.test.html:
--------------------------------------------------------------------------------
1 | 
2 | noir.util.test documentation
noir.util.test documentation
A set of utilities for testing a Noir project
3 | 
has-body
(has-body resp cont)
Asserts that the response has the given body
4 | 
has-content-type
(has-content-type resp ct)
Asserts that the response has the given content type
5 | 
has-status
(has-status resp stat)
Asserts that the response has the given status
6 | 
send-request
(send-request route & [params])
Send a request to the Noir handler. Unlike with-noir, this will run
7 | the request within the context of all middleware.
send-request-map
(send-request-map ring-req)
Send a ring-request map to the noir handler.
8 | 
with-noir
(with-noir & body)
Executes the body within the context of Noir's bindings
9 | 



--------------------------------------------------------------------------------
/doc/noir.validation.html:
--------------------------------------------------------------------------------
 1 | 
 2 | noir.validation documentation
noir.validation documentation
Functions for validating input and setting string errors on fields.
 3 | All fields are simply keys, meaning this can be a general error storage and
 4 | retrieval mechanism for the lifetime of a single request. Errors are not
 5 | persisted and are cleaned out at the end of the request.
errors?
(errors? & field)
For all fields given return true if any field contains errors. If none of the fields
 6 | contain errors, return false. If no fields are supplied return true if any errors exist.
get-errors
(get-errors & [field])
Get the errors for the given field. This will return a vector of all error strings or nil.
 7 | 
has-value?
(has-value? v)
Returns true if v is truthy and not an empty string.
 8 | 
has-values?
(has-values? coll)
Returns true if all members of the collection has-value? This works on maps as well.
 9 | 
is-email?
(is-email? v)
Returns true if v is an email address
10 | 
max-length?
(max-length? v len)
Returns true if v is less than or equal to the given len
11 | 
min-length?
(min-length? v len)
Returns true if v is greater than or equal to the given len
12 | 
not-nil?
(not-nil? v)
Returns true if v is not nil
13 | 
on-error
(on-error field func)
If the given field has an error, execute func and return its value
14 | 
rule
(rule passed? [field error])
If the passed? condition is not met, add the error text to the given field:
15 | (rule (not-nil? username) [:username "Usernames must have a value."])
set-error
(set-error field error)
Explicitly set an error for the given field. This can be used to
16 | create complex error cases, such as in a multi-step login process.



--------------------------------------------------------------------------------
/history.md:
--------------------------------------------------------------------------------
 1 | ##Changes for 1.3.0-beta1
 2 | * BREAKING CHANGE: flashes now last the length of one non-resource request
 3 | * BREAKING CHANGE: switched to the latest hiccup: form-helpers and page-helpers have been split apart. See http://github.com/weavejester/hiccup for more details.
 4 | * BREAKING CHANGE: clj-json has been replaced with cheshire.
 5 | * BREAKING CHANGE: noir.util.middleware was removed as wrap-utf8 is done by default in ring.
 6 | * BREAKING CHANGE: noir.util.s3 has been removed. See https://github.com/weavejester/clj-aws-s3 for a replacement.
 7 | * Added noir.session/get! to have a destructive get like the old flashes
 8 | * Added noir.server/wrap-route to wrap middleware around specific routes
 9 | * Added noir.core/custom-handler* for adding dynamic route functions to the routing table.
10 | * Added noir.util.test/send-request-map for sending full ring maps
11 | * Refactored noir.server so that the jetty dependency can be excluded.
12 | * Refactored noir.response/* so that all functions compose
13 | * Fixed all generated content-types are utf-8
14 | 
15 | ##Changes for 1.2.2
16 | * Added an argless form of (noir.validation/errors?) that returns all errors
17 | * Added the ability to define routes with vars
18 | * Refactored defpage to allow for better errors when a param is passed incorrectly
19 | * Refactored url-for to be more robust
20 | * Fixed s3 var being dynamic
21 | * Fixed an issue with utf-8 routes being encoded incorrectly
22 | * Moved to ring 1.0.1 and compojure 1.0.0
23 |     * Fixes issue with no routes being loaded resulting in a 500
24 |     * Fixes issue with file names containing spaces being unreachable
25 | 
26 | ##Changes for 1.2.1
27 | * BREAKING CHANGE: (url-for) now takes a map of params instead of key-value pairs: (url-for foo {:id 2})
28 | * Changed noir.content.pages to noir.content.getting-started
29 | * Added noir.response/jsonp
30 | * Added :base-url option to noir.server so that you can run noir at different root urls
31 | * Added noir.session/swap! to do atomic updates to the session
32 | * Updated noir.content to be prettier/more informative 
33 | * Fixed pre-route to use ANY by default
34 | * Fixed issue that cause complex pre-routes not work
35 | * Fixed a couple of doc strings to be clearer
36 | * Refactored the way noir.core parses urls for routes to be significantly simpler
37 | * Removed cssgen dependency
38 | * Moved to latest Ring
39 | 
40 | ##Changes for 1.2.0
41 | 
42 | * Refactored for Clojure 1.3.0 support
43 | * Refactored server to enable custom noir handler creation
44 | * Added url decoding for routes. (defpage "/hey how" ...) will work now.
45 | * Added noir.util.gae to get Noir up on Google App Engine
46 | * Added named routes 
47 | * Added noir.request/ring-request
48 | * Added url-for to query named routes
49 | * Added noir.server/load-view-ns
50 | * Added a :resource-root option to the server
51 | * Added a :cookie-attrs option to the server
52 | * Added post-route
53 | * Added signed cookies
54 | * Added compojure-route and custom-handler to handle integration with other libs
55 | * Changed noir.validation/errors? will now return if any errors exist if no fields are supplied.
56 | * Fixed noir.validation/is-email? to use a better regex
57 | * Fixed and improved noir.util.s3
58 | * Fixed incorrect header setting for noir.response/xml
59 | * Fixed custom middleware preserves order
60 | * Fixed bugs in cookie handling that would cause incorrect retrieval
61 | * Fixed some issues with exceptions to make the 500 page more resilient
62 | * Moved to latest compojure/ring/hiccup
63 | * Added tons of tests
64 | 
65 | 
66 | ##Changes for 1.1.0
67 | 
68 | * Added session/flash-put! and sesion/flash-get
69 | * Added alternative session storage via the :session-store server option
70 | * Removed dependency on contrib
71 | * Added defaults for session/get and cookies/get
72 | * Added gen-handler for interop with other ring-based libraries
73 | * Added test utilities under noir.util.test
74 | * Added noir.util.middleware
75 | * Moved to latest compojure/ring/hiccup
76 | * Added server/stop server/restart
77 | * Fixed bug where server/start wasn't returning a server object
78 | 


--------------------------------------------------------------------------------
/project.clj:
--------------------------------------------------------------------------------
 1 | (defproject noir "1.3.0"
 2 |   :description "Noir - a clojure web framework"
 3 |   :license {:name "Eclipse Public License - v 1.0"
 4 |             :url "http://www.eclipse.org/legal/epl-v10.html"}
 5 |   :url "http://webnoir.org"
 6 |   :codox {:exclude [noir.exception noir.content.defaults
 7 |                     noir.content.getting-started]}
 8 |   :dependencies [[org.clojure/clojure "1.4.0"]
 9 |                  [lib-noir "0.2.0"]
10 |                  [compojure "1.1.3"]
11 |                  [bultitude "0.2.0"]
12 |                  [ring "1.1.6"]
13 |                  [hiccup "1.0.2"]
14 |                  [clj-stacktrace "0.2.5"]
15 |                  [org.clojure/tools.macro "0.1.1"]])
16 | 


--------------------------------------------------------------------------------
/resources/public/css/noir.css:
--------------------------------------------------------------------------------
  1 | body {
  2 |   background: url(../img/noir-bg.png);
  3 |   color: #d1d9e1;
  4 |   padding: 60px 80px;
  5 |   font-family: 'Helvetica Neue',Helvetica,Verdana;
  6 | }
  7 | #wrapper {
  8 |   margin: 0 auto;
  9 |   width: 1000px;
 10 | }
 11 | #content {
 12 |   float: left;
 13 |   display: inline;
 14 |   width: 100%;
 15 |   padding-bottom: 100px;
 16 | }
 17 | a {
 18 |   text-decoration: underline;
 19 |   color: #91979d;
 20 | }
 21 | a:hover {
 22 |   color: #6bffbd;
 23 | }
 24 | h1 {
 25 |   margin-bottom: 0px;
 26 |   color: #d1d9e1;
 27 | }
 28 | h2 {
 29 |   margin-top: 10px;
 30 |   margin-left: 60px;
 31 |   font-size: 18px;
 32 |   font-weight: normal;
 33 | }
 34 | code {
 35 |   float: left;
 36 |   display: inline;
 37 |   border-radius: 8px;
 38 |   padding: 10px;
 39 |   background: #474949;
 40 |   border: 2px solid #616363;
 41 |   font-family: Monaco, Consolas, 'Courier New';
 42 | }
 43 | .announce {
 44 |   float: left;
 45 |   display: inline;
 46 |   width: 970px;
 47 |   text-align: center;
 48 |   font-size: 20px;
 49 |   margin-top: 20px;
 50 |   margin-bottom: 110px;
 51 |   border-radius: 8px;
 52 |   padding: 10px;
 53 |   background: #3f634d;
 54 |   border: 2px solid #3c8455;
 55 |   padding: 15px;
 56 | }
 57 | #header {
 58 |   float: left;
 59 |   display: inline;
 60 |   width: 100%;
 61 |   margin-bottom: 50px;
 62 | }
 63 | #header h1 {
 64 |   float: left;
 65 |   display: inline;
 66 | }
 67 | 
 68 | #header ul {
 69 |   float: right;
 70 |   display: inline;
 71 |   list-style: none;
 72 |   margin-top: 30px;
 73 | }
 74 | #header ul li {
 75 |   float: left;
 76 |   display: inline;
 77 | }
 78 | #header ul li a {
 79 |   text-decoration: none;
 80 |   float: left;
 81 |   display: inline;
 82 |   border-radius: 8px;
 83 |   padding: 10px;
 84 |   background: #474949;
 85 |   border: 2px solid #616363;
 86 |   padding: 8px;
 87 |   margin-left: 10px;
 88 | }
 89 | #header ul li a:hover {
 90 |   background: #3f634d;
 91 |   border: 2px solid #3c8455;
 92 | }
 93 | ul.content {
 94 |   float: left;
 95 |   display: inline;
 96 | }
 97 | ul.content li {
 98 |   float: left;
 99 |   display: inline;
100 |   margin-bottom: 55px;
101 |   width: 100%;
102 | }
103 | ul.content li .left {
104 |   float: left;
105 |   display: inline;
106 |   width: 55%;
107 |   text-align: left;
108 | }
109 | ul.content li .left p {
110 |   padding: 0;
111 |   margin: 0;
112 |   font-size: 18px;
113 | }
114 | 
115 | ul.content li .right {
116 |   float: left;
117 |   display: inline;
118 |   margin-right: 5%;
119 |   width: 40%;
120 | }
121 | ul.content li .right code {
122 |   width: 100%;
123 | }
124 | 
125 | ul.content li .right p {
126 |   max-width: 440px;
127 | }
128 | #not-found {
129 |   text-align: center;
130 |   width: 600px;
131 |   margin: 0px auto;
132 |   margin-top: 200px;
133 | }
134 | #not-found h1 {
135 |   color: #6bffbd;
136 |   font-size: 32px;
137 |   margin-bottom: 20px;
138 | }
139 | #exception {
140 |   max-width: 900px;
141 | }
142 | #exception h1 {
143 |   font-size: 24px;
144 | }
145 | 
146 | #exception ul {
147 |   margin: 0;
148 |   padding: 0;
149 |   margin-top: 20px;
150 |   list-style: none;
151 | }
152 | 
153 | #exception table {
154 |   width: 100%;
155 |   margin-top: 20px;
156 |   border-collapse: collapse;
157 | }
158 | 
159 | #exception tr {
160 |   border-radius: 8px;
161 |   padding: 10px;
162 |   background: #474949;
163 |   border: 2px solid #616363;
164 |   margin-bottom: 10px;
165 |   width: 100%;
166 | }
167 | 
168 | #exception td {
169 |   padding: 10px;
170 | }
171 | 
172 | #exception .dt {
173 |   text-align: right;
174 | }
175 | 
176 | #exception .dd {
177 |   color: #91979d;
178 |   margin: 0;
179 |   padding-left: 5%;
180 | }
181 | 
182 | #exception h1 span {
183 |   font-size: 18px;
184 |   font-weight: normal;
185 |   color: #91979d;
186 | }
187 | 
188 | #exception .mine {
189 |   border-radius: 8px;
190 |   padding: 10px;
191 |   background: #3f634d;
192 |   border: 2px solid #3c8455;
193 | }
194 | 


--------------------------------------------------------------------------------
/resources/public/css/reset.css:
--------------------------------------------------------------------------------
 1 | html {
 2 | 	margin:0;
 3 | 	padding:0;
 4 | 	border:0;
 5 | }
 6 | 
 7 | body, div, span, object, iframe,
 8 | h1, h2, h3, h4, h5, h6, p, blockquote, pre,
 9 | a, abbr, acronym, address, code,
10 | del, dfn, em, img, q, dl, dt, dd, ol, ul, li,
11 | fieldset, form, label, legend,
12 | table, caption, tbody, tfoot, thead, tr, th, td,
13 | article, aside, dialog, figure, footer, header,
14 | hgroup, nav, section {
15 | 	margin: 0;
16 | 	padding: 0;
17 | 	border: 0;
18 | 	font-weight: inherit;
19 | 	font-style: inherit;
20 | 	font-size: 100%;
21 | 	font-family: inherit;
22 | 	vertical-align: baseline;
23 | }
24 | 
25 | article, aside, dialog, figure, footer, header,
26 | hgroup, nav, section {
27 | 	display:block;
28 | }
29 | 
30 | body {
31 | 	line-height: 1.5;
32 | 	background: white;
33 | }
34 | 
35 | table {
36 | 	border-collapse: separate;
37 | 	border-spacing: 0;
38 | }
39 | 
40 | caption, th, td {
41 | 	text-align: left;
42 | 	font-weight: normal;
43 | 	float:none !important;
44 | }
45 | table, th, td {
46 | 	vertical-align: middle;
47 | }
48 | 
49 | blockquote:before, blockquote:after, q:before, q:after { content: ''; }
50 | blockquote, q { quotes: "" ""; }
51 | 
52 | a img { border: none; }
53 | 
54 | /*:focus { outline: 0; }*/
55 | 
56 | 
57 | 


--------------------------------------------------------------------------------
/resources/public/img/noir-bg.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/noir-clojure/noir/bd3d13430ab75613b753bbc1e31a1b5f737fb3b6/resources/public/img/noir-bg.png


--------------------------------------------------------------------------------
/resources/public/img/noir-logo.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/noir-clojure/noir/bd3d13430ab75613b753bbc1e31a1b5f737fb3b6/resources/public/img/noir-logo.png


--------------------------------------------------------------------------------
/src/noir/content/defaults.clj:
--------------------------------------------------------------------------------
 1 | (ns
 2 |   #^{:skip-wiki true}
 3 |   noir.content.defaults
 4 |   (:use noir.core
 5 |         hiccup.core
 6 |         hiccup.page))
 7 | 
 8 | (defpartial noir-layout [& content]
 9 |             (html5
10 |               [:head
11 |                [:title "Noir"]
12 |                (include-css "/css/reset.css")
13 |                (include-css "/css/noir.css")]
14 |               [:body
15 |                [:div#wrapper
16 |                 [:div#content
17 |                  content]]]))
18 | 
19 | (defpartial min-noir-layout [& content]
20 |             (html5
21 |               [:head
22 |                [:title "Noir"]
23 |                (include-css "/css/reset.css")
24 |                (include-css "/css/noir.css")]
25 |               [:body
26 |                  content]))
27 | 
28 | (defpartial not-found []
29 |   (min-noir-layout
30 |     [:div#not-found
31 |      [:h1 "We seem to have lost that one."]
32 |      [:p "Since we couldn't find the page you were looking for, check to make sure the address is correct."]]))
33 | 
34 | (defpartial exception-item [{nams :ns in-ns? :in-ns? fq :fully-qualified f :file line :line :as ex}]
35 |       [:tr {:class (when in-ns?
36 |                      "mine")}
37 |         [:td.dt f " :: " line]
38 |         [:td.dd fq]])
39 | 
40 | (defpartial stack-trace [{exception :exception causes :causes}]
41 |             (noir-layout
42 |                [:div#exception
43 |                 [:h1 (or (:message exception) "An exception was thrown") [:span " - (" (:class exception) ")"]]
44 |                 [:table [:tbody (map exception-item (:trace-elems exception))]]
45 |                 (for [cause causes :while cause]
46 |                   [:div.cause
47 |                    (try
48 |                      [:h3 "Caused by: " (:class cause) " - " (:message cause)]
49 |                      [:table (map exception-item (:trimmed-elems cause))]
50 |                      (catch Throwable e))])]))
51 | 
52 | (defpartial internal-error []
53 |   (min-noir-layout
54 |     [:div#not-found
55 |      [:h1 "Something very bad has happened."]
56 |      [:p "We've dispatched a team of highly trained gnomes to take
57 |          care of the problem."]]))
58 | 


--------------------------------------------------------------------------------
/src/noir/content/getting_started.clj:
--------------------------------------------------------------------------------
 1 | (ns
 2 |   #^{:skip-wiki true}
 3 |   noir.content.getting-started
 4 |   (:use noir.core
 5 |         noir.content.defaults
 6 |         hiccup.element
 7 |         hiccup.page))
 8 | 
 9 | (def header-links [{:url "http://www.webnoir.org/tutorials" :text "Tutorials"}
10 |                    {:url "http://groups.google.com/group/clj-noir" :text "Google Group"}
11 |                    {:url "http://www.webnoir.org/docs/" :text "API"}])
12 | 
13 | (defpartial link [{:keys [url text]}]
14 |             (link-to url text))
15 | 
16 | (defpartial link-item [lnk]
17 |             [:li
18 |              (link lnk)])
19 | 
20 | (defpartial logo []
21 |             (link-to "http://www.webnoir.org/" (image "/img/noir-logo.png" "Noir")))
22 | 
23 | (defpartial header []
24 |             [:div#header
25 |              [:h1 (logo)]
26 |              [:ul
27 |               (map link-item header-links)]])
28 | 
29 | (defpage "/" []
30 |          (noir-layout
31 |            (header)
32 |            [:p.announce "Noir is up and running... time to start building some websites!"]
33 |            [:ul.content
34 |             [:li
35 |              [:div.right
36 |               [:pre
37 |               [:code
38 | "(defpage \"/my-page\" []
39 |   (html5
40 |     [:h1 \"This is my first page!\"]))"]]]
41 |              [:div.left
42 |               [:p "Time to get going with our first page. Let's open views/welcome.clj
43 |                   and use (defpage) to add a new page to our site. With that we can go to "
44 |                   (link-to "/my-page" "/my-page")
45 |                   " and see our handiwork."]]]
46 | 
47 |             [:li
48 |              [:div.right
49 |               [:pre
50 |               [:code
51 | "(defpartial site-layout [& content]
52 |   (html5
53 |     [:head
54 |       [:title \"my site\"]]
55 |     [:body
56 |       [:div#wrapper
57 |         content]]))"]]]
58 |              [:div.left
59 |               [:p "We really need a layout for all our pages, so let's create a
60 |                   partial (a function that returns html). We'll do that
61 |                   in views/common.clj since all your views will use it."]]]
62 | 
63 |             [:li
64 |              [:div.right
65 |               [:pre
66 |               [:code
67 | "(defpage \"/my-page\" []
68 |   (common/site-layout
69 |     [:h1 \"Welcome to my site!\"]
70 |     [:p \"Hope you like it.\"]))"]]]
71 |              [:div.left
72 |               [:p "Now we'll update our page to use the layout. Just refresh the browser
73 |                   and you'll see your change."]]]
74 | 
75 |             [:li
76 |              [:div.right
77 |               [:code "[noir.content.getting-started]"]]
78 |              [:div.left
79 |               [:p "That's it! You've created your own page. Now get rid of this one simply by
80 |                   removing the require for getting-started at the top."]]]]))
81 | 


--------------------------------------------------------------------------------
/src/noir/core.clj:
--------------------------------------------------------------------------------
  1 | (ns noir.core
  2 |   "Functions to work with partials and pages."
  3 |   (:use hiccup.core
  4 |         compojure.core)
  5 |   (:require [clojure.string :as string]
  6 |             [clojure.tools.macro :as macro]))
  7 | 
  8 | (defonce noir-routes (atom {}))
  9 | (defonce route-funcs (atom {}))
 10 | (defonce pre-routes (atom (sorted-map)))
 11 | (defonce post-routes (atom []))
 12 | (defonce compojure-routes (atom []))
 13 | 
 14 | (defn- keyword->symbol [namesp kw]
 15 |   (symbol namesp (string/upper-case (name kw))))
 16 | 
 17 | (defn- route->key [action rte]
 18 |   (let [action (string/replace (str action) #".*/" "")]
 19 |     (str action (-> rte
 20 |                     (string/replace #"\." "!dot!")
 21 |                     (string/replace #"/" "--")
 22 |                     (string/replace #":" ">")
 23 |                     (string/replace #"\*" "<")))))
 24 | 
 25 | (defn- throwf [msg & args]
 26 |   (throw (Exception. (apply format msg args))))
 27 | 
 28 | (defn- parse-fn-name [[cur :as all]]
 29 |   (let [[fn-name remaining] (if (and (symbol? cur)
 30 |                                      (or (@route-funcs (keyword (name cur)))
 31 |                                          (not (resolve cur))))
 32 |                               [cur (rest all)]
 33 |                               [nil all])]
 34 |     [{:fn-name fn-name} remaining]))
 35 | 
 36 | (defn- parse-route [[{:keys [fn-name] :as result} [cur :as all]] default-action]
 37 |   (let [cur (if (symbol? cur)
 38 |               (try
 39 |                 (deref (resolve cur))
 40 |                 (catch Exception e
 41 |                   (throwf "Symbol given for route has no value")))
 42 |               cur)]
 43 |     (when-not (or (vector? cur) (string? cur))
 44 |       (throwf "Routes must either be a string or vector, not a %s" (type cur)))
 45 |     (let [[action url] (if (vector? cur)
 46 |                          [(keyword->symbol "compojure.core" (first cur)) (second cur)]
 47 |                          [default-action cur])
 48 |           final (-> result
 49 |                     (assoc :fn-name (if fn-name
 50 |                                       fn-name
 51 |                                       (symbol (route->key action url))))
 52 |                     (assoc :url url)
 53 |                     (assoc :action action))]
 54 |       [final (rest all)])))
 55 | 
 56 | (defn- parse-destruct-body [[result [cur :as all]]]
 57 |   (when-not (some true? (map #(% cur) [vector? map? symbol?]))
 58 |     (throwf "Invalid destructuring param: %s" cur))
 59 |   (-> result
 60 |       (assoc :destruct cur)
 61 |       (assoc :body (rest all))))
 62 | 
 63 | (defn ^{:skip-wiki true} parse-args
 64 |   "parses the arguments to defpage. Returns a map containing the keys :fn-name :action :url :destruct :body"
 65 |   [args & [default-action]]
 66 |   (-> args
 67 |       (parse-fn-name)
 68 |       (parse-route (or default-action 'compojure.core/GET))
 69 |       (parse-destruct-body)))
 70 | 
 71 | (defn ^{:skip-wiki true} route->name
 72 |   "Parses a set of route args into the keyword name for the route"
 73 |   [route]
 74 |   (cond
 75 |     (keyword? route) route
 76 |     (fn? route) (keyword (:name (meta route)))
 77 |     :else (let [res (first (parse-route [{} [route]] 'compojure.core/GET))]
 78 |             (keyword (:fn-name res)))))
 79 | 
 80 | (defmacro defpage
 81 |   "Adds a route to the server whose content is the the result of evaluating the body.
 82 |   The function created is passed the params of the request and the destruct param allows
 83 |   you to destructure that meaningfully for use in the body.
 84 | 
 85 |   There are several supported forms:
 86 | 
 87 |   (defpage \"/foo/:id\" {id :id})  an unnamed route
 88 |   (defpage [:post \"/foo/:id\"] {id :id}) a route that responds to POST
 89 |   (defpage foo \"/foo:id\" {id :id}) a named route
 90 |   (defpage foo [:post \"/foo/:id\"] {id :id})
 91 | 
 92 |   The default method is GET."
 93 |   [& args]
 94 |   (let [{:keys [fn-name action url destruct body]} (parse-args args)]
 95 |     `(do
 96 |        (defn ~fn-name {::url ~url
 97 |                        ::action (quote ~action)
 98 |                        ::args (quote ~destruct)} [~destruct]
 99 |          ~@body)
100 |        (swap! route-funcs assoc ~(keyword fn-name) ~fn-name)
101 |        (swap! noir-routes assoc ~(keyword fn-name) (~action ~url {params# :params} (~fn-name params#))))))
102 | 
103 | (defmacro defpartial
104 |   "Create a function that returns html using hiccup. The function is callable with the given name. Can optionally include a docstring or metadata map, like a normal function declaration."
105 |   [fname & args]
106 |   (let [[fname args] (macro/name-with-attributes fname args)
107 |         [params & body] args]
108 |     `(defn ~fname ~params
109 |        (html
110 |         ~@body))))
111 | 
112 | (defn ^{:skip-wiki true} route-arguments
113 |   "returns the list of route arguments in a route"
114 |   [route]
115 |   (let [args (re-seq #"/(:([^\/]+)|\*)" route)]
116 |     (set (map #(keyword (or (nth % 2) (second %))) args))))
117 | 
118 | (defn url-for* [url route-args]
119 |   (let [url (if (vector? url) ;;handle complex routes
120 |               (first url)
121 |               url)
122 |         route-arg-names (route-arguments url)]
123 |     (when-not (every? (set (keys route-args)) route-arg-names)
124 |       (throwf "Missing route-args %s" (vec (filter #(not (contains? route-args %)) route-arg-names))))
125 |     (reduce (fn [path [k v]]
126 |               (if (= k :*)
127 |                 (string/replace path "*" (str v))
128 |                 (string/replace path (str k) (str v))))
129 |             url
130 |             route-args)))
131 | 
132 | (defn url-for-fn* [route-fn route-args]
133 |   (let [url (-> route-fn meta ::url)]
134 |     (when-not url
135 |       (throwf "No url metadata on %s" route-fn))
136 |     (url-for* url route-args)))
137 | 
138 | (defmacro url-for
139 |   "Given a named route, e.g. (defpage foo \"/foo/:id\"), returns the url for the
140 |   route. If the route takes arguments, the second argument must be a
141 |   map of route arguments to values
142 | 
143 |   (url-for foo {:id 3}) => \"/foo/3\" "
144 |   ([route & [arg-map]]
145 |    (let [cur-ns *ns*
146 |          route (if (symbol? route)
147 |                  `(ns-resolve ~cur-ns (quote ~route))
148 |                  `(delay ~route))]
149 |    `(let [var# ~route]
150 |       (cond
151 |         (string? @var#) (url-for* @var# ~arg-map)
152 |         (vector? @var#) (url-for* (second @var#) ~arg-map)
153 |         (fn? @var#) (url-for-fn* var# ~arg-map)
154 |         :else (throw (Exception. (str "Unknown route type: " @var#))))))))
155 | 
156 | (defn render
157 |   "Renders the content for a route by calling the page like a function
158 |   with the given param map. Accepts either '/vals' or [:post '/vals']"
159 |   [route & [params]]
160 |   (if (fn? route)
161 |     (route params)
162 |     (let [rname (route->name route)
163 |           func (get @route-funcs rname)]
164 |       (func params))))
165 | 
166 | (defmacro pre-route
167 |   "Adds a route to the beginning of the route table and passes the entire request
168 |   to be destructured and used in the body. These routes are the only ones to make
169 |   an ordering guarantee. They will always be in order of ascending specificity (e.g. /* ,
170 |   /admin/* , /admin/user/*) Pre-routes are usually used for filtering, like redirecting
171 |   a section based on privileges:
172 | 
173 |   (pre-route '/admin/*' {} (when-not (is-admin?) (redirect '/login')))"
174 |   [& args]
175 |   (let [{:keys [action destruct url body]} (parse-args args 'compojure.core/ANY)
176 |         safe-url (if (vector? url)
177 |                    (first url)
178 |                    url)]
179 |     `(swap! pre-routes assoc ~safe-url (~action ~url {:as request#} ((fn [~destruct] ~@body) request#)))))
180 | 
181 | (defmacro post-route
182 |   "Adds a route to the end of the route table and passes the entire request to
183 |   be destructured and used in the body. These routes are guaranteed to be
184 |   evaluated after those created by defpage and before the generic catch-all and
185 |   resources routes."
186 |   [& args]
187 |   (let [{:keys [action destruct url body fn-name]} (parse-args args)]
188 |     `(swap! post-routes conj [~(keyword fn-name) (~action ~url {:as request#} ((fn [~destruct] ~@body) request#))])))
189 | 
190 | (defn compojure-route
191 |   "Adds a compojure route fn to the end of the route table. These routes are queried after
192 |   those created by defpage and before the generic catch-all and resources routes.
193 | 
194 |   These are primarily used to integrate generated routes from other libs into Noir."
195 |   [compojure-func]
196 |   (swap! compojure-routes conj compojure-func))
197 | 
198 | (defmacro custom-handler
199 |   "Adds a handler to the end of the route table. This is equivalent to writing
200 |   a compojure route using noir's [:method route] syntax.
201 | 
202 |   (custom-handler [:post \"/login\"] {:as req} (println \"hello \" req))
203 |   => (POST \"/login\" {:as req} (println \"hello\" req))
204 | 
205 |   These are primarily used to interface with other handler generating libraries, i.e. async aleph handlers."
206 |   [& args]
207 |   (let [{:keys [action destruct url body]} (parse-args args)]
208 |     `(compojure-route (~action ~url ~destruct ~@body))))
209 | 
210 | (defn custom-handler*
211 |   "Adds a handler to the end of the route table. This is equivalent to writing
212 |   a compojure route using noir's [:method route] syntax, but allows functions
213 |   to be created dynamically:
214 | 
215 |   (custom-handler* [:post \"/login\"] (fn [params] (println params)))
216 | 
217 |   These are primarily used to interface with other dynamic handler generating libraries"
218 |   [route func]
219 |   (let [[{:keys [action url fn-name]}] (parse-route [{} [route]] 'compojure.core/GET)
220 |         fn-key (keyword fn-name)]
221 |     (swap! route-funcs assoc fn-key func)
222 |     (swap! noir-routes assoc fn-key (eval `(~action ~url {params# :params} (~func params#))))))
223 | 


--------------------------------------------------------------------------------
/src/noir/exception.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.exception
 2 |   "Functions to handle exceptions within a Noir server gracefully."
 3 |   (:use clj-stacktrace.core
 4 |         clj-stacktrace.repl)
 5 |   (:require [clojure.string :as string]
 6 |             [noir.options :as options]
 7 |             [noir.statuses :as statuses]
 8 |             [noir.content.defaults :as defaults]))
 9 | 
10 | (defn- route-fn? [k]
11 |   (and k
12 |        (re-seq #".*--" k)))
13 | 
14 | (defn- key->route-fn [k]
15 |   (if (route-fn? k)
16 |     (let [with-slahes (-> k
17 |                         (string/replace #"!dot!" ".")
18 |                         (string/replace #"--" "/")
19 |                         (string/replace #">" ":")
20 |                         (string/replace #"<" "*"))
21 |           separated (string/replace with-slahes #"(POST|GET|HEAD|ANY|PUT|DELETE)" #(str (first %1) " :: "))]
22 |       separated)
23 |     k))
24 | 
25 | (defn- ex-item [{anon :annon-fn func :fn nams :ns clj? :clojure f :file line :line :as ex}]
26 |   (let [func-name (if (and anon func (re-seq #"eval" func))
27 |                     "anon [fn]"
28 |                     (key->route-fn func))
29 |         ns-str (if clj?
30 |                  (if (route-fn? func)
31 |                    (str nams " :: " func-name)
32 |                    (str nams "/" func-name))
33 |                  (str (:method ex) "." (:class ex)))
34 |         in-ns? (and nams (re-seq
35 |                            (re-pattern (str (options/get :ns)))
36 |                            nams))]
37 |     {:fn func-name
38 |      :ns nams
39 |      :in-ns? in-ns?
40 |      :fully-qualified ns-str
41 |      :annon? anon
42 |      :clj? clj?
43 |      :file f
44 |      :line line}))
45 | 
46 | (defn parse-ex [ex]
47 |   (let [clj-parsed (iterate :cause (parse-exception ex))
48 |         exception (first clj-parsed)
49 |         causes (rest clj-parsed)]
50 |     {:exception (assoc exception :trace-elems (map ex-item (:trace-elems exception)))
51 |      :causes (for [cause causes :while cause]
52 |                (assoc cause :trimmed-elems (map ex-item (:trimmed-elems cause))))}))
53 | 
54 | (defn wrap-exceptions [handler]
55 |   (fn [request]
56 |     (try
57 |       (handler request)
58 |       (catch Exception e
59 |         (.printStackTrace e)
60 |         (let [content (if (options/dev-mode?)
61 |                         (try
62 |                           (defaults/stack-trace (parse-ex e))
63 |                           (catch Throwable e
64 |                             (statuses/get-page 500)))
65 |                         (statuses/get-page 500))]
66 |           {:status 500
67 |            :headers {"Content-Type" "text/html"}
68 |            :body content})))))
69 | 


--------------------------------------------------------------------------------
/src/noir/options.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.options
 2 |   "Allows access to Noir's server options"
 3 |   (:refer-clojure :exclude [get]))
 4 | 
 5 | (def ^:dynamic *options* nil)
 6 | (def default-opts {:ns (gensym)
 7 |                    :mode :dev})
 8 | 
 9 | (defn compile-options
10 |   [opts]
11 |   (if (map? opts)
12 |     (merge default-opts opts)
13 |     default-opts))
14 | 
15 | (defn get
16 |   "Get an option from the noir options map"
17 |   ([k default]
18 |    (clojure.core/get *options* k default))
19 |   ([k]
20 |    (clojure.core/get *options* k)))
21 | 
22 | (defn resolve-url [url]
23 |   (str (get :base-url "") url))
24 | 
25 | (defn dev-mode?
26 |   "Returns if the server is currently in development mode"
27 |   []
28 |   (= (get :mode) :dev))
29 | 
30 | (defn wrap-options [handler opts]
31 |   (let [final-opts (compile-options opts)]
32 |     (fn [request]
33 |       (binding [*options* final-opts]
34 |         (handler request)))))
35 | 


--------------------------------------------------------------------------------
/src/noir/request.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.request
 2 |   "Functions for accessing the original request object from within noir handlers")
 3 | 
 4 | (declare ^{:dynamic true} *request*)
 5 | 
 6 | (defn ring-request
 7 |   "Returns back the current ring request map"
 8 |   []
 9 |   *request*)
10 | 
11 | (defn wrap-request-map [handler]
12 |   (fn [req]
13 |     (binding [*request* req]
14 |       (handler req))))
15 | 


--------------------------------------------------------------------------------
/src/noir/server.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.server
 2 |   "A collection of functions to handle Noir's server and add middleware to the stack."
 3 |   (:use compojure.core
 4 |         [clojure.java.io :only [file]]
 5 |         [clojure.string :only [join]]
 6 |         [bultitude.core :only [namespaces-on-classpath]]
 7 |         [ring.middleware.multipart-params])
 8 |   (:require [compojure.handler :as compojure]
 9 |             [noir.server.handler :as handler]))
10 | 
11 | (defn gen-handler
12 |   "Get a full Noir request handler for use with plugins like lein-ring or lein-beanstalk.
13 |   If used in a definition, this must come after views have been loaded to ensure that the
14 |   routes have already been added to the route table."
15 |   [& [opts]]
16 |   (-> (handler/base-handler opts)
17 |       (handler/wrap-noir-middleware opts)
18 |       (handler/wrap-spec-routes opts)
19 |       (compojure/api)
20 |       (wrap-multipart-params)))
21 | 
22 | (defn load-views
23 |   "Require all the namespaces in the given dirs so that the pages are loaded
24 |    by the server."
25 |   [& dirs]
26 |   (doseq [f (namespaces-on-classpath :classpath (map file dirs))]
27 |     (require f)))
28 | 
29 | (defn load-views-ns
30 |   "Require all the namespaces prefixed by the namespace symbol given so that the pages
31 |   are loaded by the server."
32 |   [& ns-syms]
33 |   (doseq [sym ns-syms
34 |           f (namespaces-on-classpath :prefix (name sym))]
35 |     (require f)))
36 | 
37 | (defn add-middleware
38 |   "Add a middleware function to the noir server. Func is a standard ring middleware
39 |   function, which will be passed the handler. Any extra args to be applied should be
40 |   supplied along with the function."
41 |   [func & args]
42 |   (apply handler/add-custom-middleware func args))
43 | 
44 | (defn wrap-route
45 |   "Add a middleware function to a specific route. Route is a standard route you would
46 |   use for defpage, func is a ring middleware function, and args are any additional args
47 |   to pass to the middleware function. You can wrap the resources and catch-all routes by
48 |   supplying the routes :resources and :catch-all respectively:
49 | 
50 |   (wrap-route :resources some-caching-middleware)"
51 |   [route middleware & args]
52 |   (apply handler/wrap-route route middleware args))
53 | 
54 | (defn start
55 |   "Create a noir server bound to the specified port with a map of options and return it.
56 |   The available options are:
57 | 
58 |   :mode - either :dev or :prod
59 |   :ns - the root namepace of your project
60 |   :jetty-options - any extra options you want to send to jetty like :ssl?
61 |   :base-url - the root url to prepend to generated links and resources
62 |   :resource-options - a map of options for the resources route (:root or :mime-types)
63 |   :session-store - an alternate store for session handling
64 |   :session-cookie-attrs - custom session cookie attributes"
65 |   [port & [opts]]
66 |   ;; to allow for jetty to be excluded as a dependency, it is included
67 |   ;; here inline.
68 |   (require 'ring.adapter.jetty)
69 |   (println "Starting server...")
70 |   (let [run-fn (resolve 'ring.adapter.jetty/run-jetty) ;; force runtime resolution of jetty
71 |         jetty-opts (merge {:port port :join? false} (:jetty-options opts))
72 |         server (run-fn (gen-handler opts) jetty-opts)]
73 |     (println (str "Server started on port [" port "]."))
74 |     (println (str "You can view the site at http://localhost:" port))
75 |     server))
76 | 
77 | (defn stop
78 |   "Stop a noir server"
79 |   [server]
80 |   (.stop server))
81 | 
82 | (defn restart
83 |   "Restart a noir server"
84 |   [server]
85 |   (stop server)
86 |   (.start server))
87 | 


--------------------------------------------------------------------------------
/src/noir/server/handler.clj:
--------------------------------------------------------------------------------
  1 | (ns noir.server.handler
  2 |   "Handler generation functions used by noir.server and other ring handler libraries."
  3 |   (:use [compojure.core :only [routes ANY]]
  4 |         ring.middleware.reload
  5 |         ring.middleware.flash
  6 |         ring.middleware.session.memory)
  7 |   (:import java.net.URLDecoder)
  8 |   (:require [compojure.route :as c-route]
  9 |             [hiccup.middleware :as hiccup]
 10 |             [noir.core :as noir]
 11 |             [noir.content.defaults :as defaults]
 12 |             [noir.cookies :as cookie]
 13 |             [noir.exception :as exception]
 14 |             [noir.request :as request]
 15 |             [noir.statuses :as statuses]
 16 |             [noir.options :as options]
 17 |             [noir.session :as session]
 18 |             [noir.validation :as validation]
 19 |             [clojure.string :as string]))
 20 | 
 21 | (defonce middleware (atom []))
 22 | (defonce wrappers (atom []))
 23 | 
 24 | ;;***************************************************
 25 | ;; Wrappers
 26 | ;;***************************************************
 27 | 
 28 | (defn wrappers-for [& urls]
 29 |   (let [url-set (set urls)]
 30 |     (group-by :url (filter #(url-set (:url %)) @wrappers))))
 31 | 
 32 | (defn all-wrappers []
 33 |   (group-by :url @wrappers))
 34 | 
 35 | (defn wrappers->fn [wrapped]
 36 |   (let [wrapped (if (coll? (first wrapped))
 37 |                   wrapped
 38 |                   [wrapped])]
 39 |     (apply comp (map :func (reverse wrapped)))))
 40 | 
 41 | (defn try-wrap [ws route]
 42 |   (if ws
 43 |     (let [func (wrappers->fn ws)]
 44 |       (func route))
 45 |     route))
 46 | 
 47 | (defn add-route-middleware [rts]
 48 |   (let [ws (all-wrappers)]
 49 |     (for [[route-name route] rts]
 50 |       (try-wrap (ws route-name) route))))
 51 | 
 52 | (defn wrap-route [url func & params]
 53 |   (swap! wrappers conj {:url (noir/route->name url) :func #(apply func % params)}))
 54 | 
 55 | ;;***************************************************
 56 | ;; Other middleware
 57 | ;;***************************************************
 58 | 
 59 | (defn- wrap-route-updating [handler]
 60 |   (if (options/dev-mode?)
 61 |     (wrap-reload handler {:dirs ["src"]})
 62 |     handler))
 63 | 
 64 | (defn- wrap-custom-middleware [handler]
 65 |   (reduce (fn [cur [func args]] (apply func cur args))
 66 |           handler
 67 |           (seq @middleware)))
 68 | 
 69 | (defn- wrap-base-url-routing [handler]
 70 |   (fn [req]
 71 |     (let [path-info (or (:path-info req)
 72 |                         (if-let [base-url (options/get :base-url)]
 73 |                           (string/replace-first (:uri req) base-url "")
 74 |                           (:uri req)))]
 75 |       (handler (assoc req :path-info path-info)))))
 76 |                           
 77 |   
 78 | 
 79 | ;;***************************************************
 80 | ;; Route packing
 81 | ;;***************************************************
 82 | 
 83 | (defn- spec-routes []
 84 |   (let [ws (wrappers-for :resources :catch-all)
 85 |         resource-opts (merge {:root "public"} (options/get :resource-options {}))
 86 |         resources (c-route/resources "/" resource-opts)
 87 |         catch-all (ANY "*" [] {:status 404 :body nil})]
 88 |     [(try-wrap (:resources ws) resources)
 89 |      (try-wrap (:catch-all ws) catch-all)]))
 90 | 
 91 | (defn- pack-routes []
 92 |   (apply routes (concat (add-route-middleware @noir/pre-routes)
 93 |                         (add-route-middleware @noir/noir-routes)
 94 |                         (add-route-middleware @noir/post-routes)
 95 |                         @noir/compojure-routes)))
 96 | 
 97 | (defn- init-routes [opts]
 98 |   (binding [options/*options* (options/compile-options opts)]
 99 |     (->
100 |       (if (options/dev-mode?)
101 |         (fn [request]
102 |           ;; by doing this as a function we can ensure that any routes added as the
103 |           ;; result of a modification are evaluated on the first reload.
104 |           ((pack-routes) request))
105 |         (pack-routes))
106 |       (request/wrap-request-map)
107 |       (wrap-custom-middleware))))
108 | 
109 | (defn add-custom-middleware
110 |   "Add a middleware function to all noir handlers."
111 |   [func & args]
112 |   (swap! middleware conj [func args]))
113 | 
114 | (defn ^:private assoc-if [m k v]
115 |   (if (not (nil? v))
116 |     (assoc m k v)
117 |     m))
118 | 
119 | (defn wrap-noir-middleware
120 |   "Wrap a base handler in all of noir's middleware"
121 |   [handler opts]
122 |   (binding [options/*options* (options/compile-options opts)]
123 |     (-> handler
124 |         (hiccup/wrap-base-url (options/get :base-url))
125 |         (wrap-base-url-routing)
126 |         (session/wrap-noir-flash)
127 |         (session/wrap-noir-session
128 |          (assoc-if {:store (options/get :session-store (memory-store session/mem))}
129 |                    :cookie-attrs (options/get :session-cookie-attrs)))
130 |         (cookie/wrap-noir-cookies)
131 |         (validation/wrap-noir-validation)
132 |         (statuses/wrap-status-pages)
133 |         (wrap-route-updating)
134 |         (exception/wrap-exceptions)
135 |         (options/wrap-options opts))))
136 | 
137 | ;; We want to not wrap these particular routes in session and flash middleware.
138 | (defn wrap-spec-routes
139 |   "Wrap a handler in noir's resource and catch-all routes."
140 |   [handler opts]
141 |   (routes handler
142 |           (-> (apply routes (spec-routes))
143 |               (cookie/wrap-noir-cookies)
144 |               (validation/wrap-noir-validation)
145 |               (hiccup/wrap-base-url (options/get :base-url))
146 |               (statuses/wrap-status-pages)
147 |               (exception/wrap-exceptions)
148 |               (options/wrap-options opts))))
149 | 
150 | (defn base-handler
151 |   "Get the most basic Noir request handler, only adding wrap-custom-middleware and wrap-request-map."
152 |   [& [opts]]
153 |   (init-routes opts))
154 | 


--------------------------------------------------------------------------------
/src/noir/statuses.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.statuses
 2 |   "If no pages are defined that match a request, a status page is used based on the
 3 |   the HTTP status code of the response. This contains the function necessary to get
 4 |   or set these status pages."
 5 |   (:require [noir.content.defaults :as defaults]
 6 |             [ring.util.response :as ring-resp]))
 7 | 
 8 | (def status-pages (atom {404 (defaults/not-found)
 9 |                          500 (defaults/internal-error)}))
10 | 
11 | (defn get-page
12 |   "Gets the content to display for the given status code"
13 |   [code]
14 |   (get @status-pages code))
15 | 
16 | (defn set-page!
17 |   "Sets the content to be displayed if there is a response with the given status
18 |   code. This is used for custom 404 pages, for example."
19 |   [code content]
20 |   (swap! status-pages assoc code content))
21 | 
22 | (defn status-response [orig]
23 |   (let [{:keys [status headers]} orig
24 |         content (or (get-page status) (get-page 404))
25 |         headers (merge {"Content-Type" "text/html; charset=utf-8"}
26 |                        headers)
27 |         final (-> orig
28 |                   (assoc :headers headers)
29 |                   (assoc :body content))]
30 |     final))
31 | 
32 | (defn wrap-status-pages [handler]
33 |   (fn [request]
34 |     (let [{status :status body :body :as resp} (handler request)]
35 |       (if (and
36 |             resp
37 |             (not= status 200)
38 |             (not body))
39 |         (status-response resp)
40 |         resp))))
41 | 


--------------------------------------------------------------------------------
/src/noir/util/gae.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.util.gae
 2 |   "Functions to help run noir on Google App Engine."
 3 |   (:use [ring.middleware params
 4 |                          keyword-params
 5 |                          nested-params])
 6 |   (:require [noir.server.handler :as handler]))
 7 | 
 8 | 
 9 | (defn gae-handler
10 |   "Create a Google AppEngine friendly handler for Noir. Use this instead
11 |   of server/gen-handler for AppEngine projects."
12 |   [opts]
13 |   (-> (handler/base-handler opts)
14 |     (wrap-keyword-params)
15 |     (wrap-nested-params)
16 |     (wrap-params)
17 |     (handler/wrap-noir-middleware opts)
18 |     (handler/wrap-spec-routes opts)))
19 | 


--------------------------------------------------------------------------------
/src/noir/util/test.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.util.test
 2 |   "A set of utilities for testing a Noir project"
 3 |   (:use clojure.test
 4 |         [clojure.pprint :only [pprint]])
 5 |   (:require [noir.server :as server]
 6 |             [noir.session :as session]
 7 |             [noir.validation :as vali]
 8 |             [noir.cookies :as cookies]
 9 |             [noir.options :as options]))
10 | 
11 | (def content-types {:json "application/json; charset=utf-8"
12 |                     :html "text/html"})
13 | 
14 | (defmacro with-noir
15 |   "Executes the body within the context of Noir's bindings"
16 |   [& body]
17 |   `(binding [options/*options* options/default-opts
18 |              vali/*errors* (atom {})
19 |              session/*noir-session* (atom {})
20 |              session/*noir-flash* (atom {})
21 |              cookies/*new-cookies* (atom {})
22 |              cookies/*cur-cookies* (atom {})]
23 |      ~@body))
24 | 
25 | (defn has-content-type
26 |   "Asserts that the response has the given content type"
27 |   [resp ct]
28 |   (is (= ct (get-in resp [:headers "Content-Type"])))
29 |   resp)
30 | 
31 | (defn has-status
32 |   "Asserts that the response has the given status"
33 |   [resp stat]
34 |   (is (= stat (get resp :status)))
35 |   resp)
36 | 
37 | (defn has-body
38 |   "Asserts that the response has the given body"
39 |   [resp cont]
40 |   (is (= cont (get resp :body)))
41 |   resp)
42 | 
43 | (defn- make-request [route & [params]]
44 |   (let [[method uri] (if (vector? route)
45 |                        route
46 |                        [:get route])]
47 |     {:uri uri :request-method method :params params}))
48 | 
49 | (defn send-request
50 |   "Send a request to the Noir handler. Unlike with-noir, this will run
51 |   the request within the context of all middleware."
52 |   [route & [params]]
53 |   (let [handler (server/gen-handler options/*options*)]
54 |     (handler (make-request route params))))
55 | 
56 | (defn send-request-map
57 |   "Send a ring-request map to the noir handler."
58 |   [ring-req]
59 |   (let [handler (server/gen-handler options/*options*)]
60 |     (handler ring-req)))
61 | 
62 | 
63 | (defn print-state
64 |   "Print the state of the noir server's routes/middleware/wrappers.
65 |    If optional details? arg is truthy, show noir-routes, route-funcs,
66 |    and status pages too."
67 |   [& details?]
68 |   (let [print-func (if details? pprint (comp println pprint sort keys))]
69 |     
70 |     (println "== Pre-Routes ==")
71 |     (print-func @noir.core/pre-routes)
72 |   
73 |     (println "== Routes and Funcs ==")
74 |     (print-func (merge-with vector @noir.core/noir-routes  @noir.core/route-funcs))
75 |   
76 |     (println "== Post-Routes ==")
77 |     (pprint @noir.core/post-routes)
78 |   
79 |     (println "== Compojure-Routes ==")
80 |     (pprint @noir.core/compojure-routes)
81 |   
82 |     (println "== Middleware ==")
83 |     (pprint @noir.server.handler/middleware)
84 |   
85 |     (println "== Wrappers ==")
86 |     (pprint @noir.server.handler/wrappers)
87 | 
88 |     (println "== Memory Store ==")
89 |     (pprint @noir.session/mem)
90 |   
91 |     (when details?
92 |       (do (println "== Status Pages ==")
93 |           (pprint @noir.statuses/status-pages)))))
94 |     
95 | 


--------------------------------------------------------------------------------
/test/noir/test/core.clj:
--------------------------------------------------------------------------------
  1 | (ns noir.test.core
  2 |   (:use [noir.core]
  3 |         [compojure.core]
  4 |         [hiccup.core :only [html]]
  5 |         [hiccup.element :only [link-to]]
  6 |         [noir.util.test])
  7 |   (:use [clojure.test])
  8 |   (:require [noir.util.crypt :as crypt]
  9 |             [noir.server :as server]
 10 |             [noir.session :as session]
 11 |             [noir.request :as request]
 12 |             [noir.options :as options]
 13 |             [noir.response :as resp]
 14 |             [noir.cookies :as cookies]
 15 |             [noir.validation :as vali]))
 16 | 
 17 | (deftest hashing
 18 |   (let [pass (crypt/encrypt "password")]
 19 |     (is (crypt/compare "password" pass))))
 20 | 
 21 | (deftest session-get-default
 22 |   (with-noir
 23 |     (is (nil? (session/get :noir)))
 24 |     (is (= "noir" (session/get :noir "noir")))))
 25 | 
 26 | (deftest cookies
 27 |   (with-noir
 28 |     (cookies/put! :noir2 "woo")
 29 |     (is (= "woo" (cookies/get :noir2)))
 30 |     (is (nil? (cookies/get :noir)))
 31 |     (is (= "noir" (cookies/get :noir "noir")))))
 32 | 
 33 | (deftest cookies-get-signed
 34 |   (with-noir
 35 |     (is (nil? (cookies/get :noir3)))
 36 |     (cookies/put-signed! "s3cr3t-k3y" :noir3 "stored-value")
 37 |     ;; Check default behavior for bad keys.
 38 |     (is (nil? (cookies/get-signed "b4d-k3y" :noir3)))
 39 |     (is (= "noir" (cookies/get-signed "b4d-k3y" :noir3 "noir")))
 40 |     ;; Check retrieval of good value.
 41 |     (is (= "stored-value" (cookies/get-signed "s3cr3t-k3y" :noir3)))
 42 |     ;; Modify value,
 43 |     (cookies/put! :noir3 "changed-value")
 44 |     (is (nil? (cookies/get-signed "s3cr3t-k3y" :noir3)))))
 45 | 
 46 | (deftest options-get-default
 47 |   (with-noir
 48 |     (is (nil? (options/get :noir)))
 49 |     (is (= "noir" (options/get :noir "noir")))))
 50 | 
 51 | (deftest json-resp
 52 |   (with-noir
 53 |     (-> (resp/json {:noir "web"})
 54 |         (has-content-type (content-types :json))
 55 |         (has-body "{\"noir\":\"web\"}"))))
 56 | 
 57 | (deftest flash-lifetime
 58 |   (with-noir
 59 |     (session/flash-put! :test "noir")
 60 |     (is (= "noir" (session/flash-get :test)))))
 61 | 
 62 | (defpage "/test" {:keys [nme]}
 63 |   (str "Hello " nme))
 64 | 
 65 | (defpage "/request" {}
 66 |   (let [req (request/ring-request)]
 67 |     (is req)
 68 |     (is (map? req))
 69 |     (is (:uri req))))
 70 | 
 71 | (deftest request-middleware
 72 |   (send-request "/request"))
 73 | 
 74 | (deftest route-test
 75 |   (-> (send-request "/test" {"nme" "chris"})
 76 |       (has-status 200)
 77 |       (has-body "Hello chris")))
 78 | 
 79 | (deftest route-test
 80 |   (-> (send-request "/test" {"nme" "chris"})
 81 |       (has-status 200)
 82 |       (has-body "Hello chris")))
 83 | 
 84 | (defpage "/test.json" []
 85 |   (resp/json {:json "text"}))
 86 | 
 87 | (deftest route-dot-test
 88 |   (-> (send-request "/test.json")
 89 |       (has-status 200)
 90 |       (has-content-type "application/json; charset=utf-8")
 91 |       (has-body "{\"json\":\"text\"}")))
 92 | 
 93 | (deftest parsing-defpage
 94 |   (is (= (parse-args '[foo "/" [] "hey"])
 95 |          {:fn-name 'foo
 96 |           :url "/"
 97 |           :action 'compojure.core/GET
 98 |           :destruct []
 99 |           :body '("hey")}))
100 |   (is (= (parse-args '["/" [] "hey"])
101 |          {:fn-name 'GET--
102 |           :url "/"
103 |           :action 'compojure.core/GET
104 |           :destruct []
105 |           :body '("hey")}))
106 |   (is (= (parse-args '[foo [:post "/"] [] "hey"])
107 |          {:fn-name 'foo
108 |           :url "/"
109 |           :action 'compojure.core/POST
110 |           :destruct []
111 |           :body '("hey")}))
112 |   (is (= (parse-args '[[:post "/"] [] "hey" "blah"])
113 |          {:fn-name 'POST--
114 |           :url "/"
115 |           :action 'compojure.core/POST
116 |           :destruct []
117 |           :body '("hey" "blah")}))
118 |   (is (= (parse-args '["/test" {} "hey"])
119 |          {:fn-name 'GET--test
120 |           :url "/test"
121 |           :action 'compojure.core/GET
122 |           :destruct {}
123 |           :body '("hey")}))
124 |   (is (thrown? Exception (parse-args '["/" 3 3])))
125 |   (is (thrown? Exception (parse-args '["/" '() 3])))
126 |   (is (thrown? Exception (parse-args '[{} '() 3]))))
127 | 
128 | (defpage "/utf" [] "ąčęė")
129 | 
130 | (deftest url-for-before-def
131 |   (is (= "/one-arg/5" (url-for route-one-arg {:id 5}))))
132 | 
133 | (defpage foo "/foo" []
134 |   "named-route")
135 | 
136 | (pre-route "/pre" []
137 |            (resp/status 403 "not allowed"))
138 | 
139 | (pre-route "/pre_with_args/:id" {{:keys [id]} :params}
140 |            (resp/status 403
141 |                         (str id " not allowed")))
142 | 
143 | (post-route "/post-route" []
144 |             (resp/status 403 "not allowed"))
145 | 
146 | (defpage "/not-post-route" [] "success")
147 | (post-route "/not-post-route" [] "fail")
148 | 
149 | (defpage "/pre" [] "you should never see this")
150 | 
151 | (compojure-route (ANY "/compojure" [] "compojure-route"))
152 | 
153 | (deftest pre-route-test
154 |   (-> (send-request [:post "/pre"])
155 |       (has-status 403)
156 |       (has-body "not allowed"))
157 |   (-> (send-request "/pre")
158 |       (has-status 403)
159 |       (has-body "not allowed"))
160 |   (-> (send-request "/pre_with_args/1")
161 |       (has-status 403)
162 |       (has-body "1 not allowed")))
163 | 
164 | (deftest compojure-route-test
165 |   (-> (send-request "/compojure")
166 |       (has-status 200)
167 |       (has-body "compojure-route")))
168 | 
169 | (deftest post-route-test
170 |   (-> (send-request "/post-route")
171 |       (has-status 403)
172 |       (has-body "not allowed"))
173 |   (-> (send-request "/not-post-route")
174 |       (has-status 200)
175 |       (has-body "success")))
176 | 
177 | (deftest named-route-test
178 |   (-> (send-request "/foo")
179 |       (has-status 200)
180 |       (has-body "named-route")))
181 | 
182 | (defpage [:post "/post-route"] {:keys [nme]}
183 |   (str "Post " nme))
184 | 
185 | (deftest render-test
186 |   (is (= "named-route" (render foo)))
187 |   (is (= "Hello chris" (render "/test" {:nme "chris"})))
188 |   (is (= "Post chris") (render [:post "/post-route"] {:nme "chris"})))
189 | 
190 | (deftest route-post-test
191 |   (-> (send-request [:post "/post-route"] {"nme" "chris"})
192 |       (has-status 200)
193 |       (has-body "Post chris")))
194 | 
195 | (defpage named-route-with-post [:post "/foo"] []
196 |   "named-post")
197 | 
198 | (deftest named-route-post-test
199 |   (-> (send-request [:post "/post-route"] {"nme" "chris"})
200 |       (has-status 200)
201 |       (has-body "Post chris")))
202 | 
203 | (defpage route-one-arg "/one-arg/:id" {id :id})
204 | (def two-args "/two-args/:arg1/:arg2")
205 | 
206 | (deftest url-args
207 |   (is (= "/foo" (url-for foo)))
208 |   (is (= "/one-arg/cool"(url-for "/one-arg/:blah" {:blah "cool"})))
209 |   (is (= "/one-arg/5" (url-for route-one-arg {:id 5})))
210 |   (is (= "/star/blah/cool" (url-for "/star/*" {:* "blah/cool"})))
211 |   (is (= "/two-args/blah/cool" (url-for two-args {:arg2 "cool" :arg1 "blah"})))
212 |   ;; make sure only subset matters
213 |   (is (= "/one-arg/5" (url-for route-one-arg {:id 5 :name "chris"})))
214 |   ;; make sure order doesn't matter
215 |   (is (= "/two-args/blah/cool" (url-for two-args {:arg1 "blah" :arg2 "cool"}))))
216 | 
217 | (deftest url-for-throws
218 |   (is (thrown? Exception (url-for route-one-arg))))
219 | 
220 | (defpage "/base-url" []
221 |   (html
222 |     (link-to "/hey" "link")))
223 | 
224 | (deftest base-url
225 |   (binding [options/*options* {:base-url "/woohoo"}]
226 |     (-> (send-request "/base-url")
227 |         (has-status 200)
228 |         (has-body "link"))))
229 | 
230 | (deftest base-url-routing
231 |   (binding [options/*options* {:base-url "/woohoo"}]
232 |     (-> (send-request "/woohoo/base-url")
233 |         (has-status 200)
234 |         (has-body "link"))))
235 | 
236 | (deftest jsonp
237 |   (-> (resp/jsonp "jsonp245" {:pinot "noir"})
238 |       (has-content-type "application/json; charset=utf-8")
239 |       (has-body "jsonp245({\"pinot\":\"noir\"});")))
240 | 
241 | (defpage "/with%20space" []
242 |   "space")
243 | 
244 | (deftest route-decoding
245 |   (-> (send-request "/with%20space")
246 |       (has-status 200)
247 |       (has-body "space")))
248 | 
249 | (defpage "/wrap-route" [] "hey!")
250 | (defn interceptor [handler]
251 |   (fn [req]
252 |     (let [resp (handler req)]
253 |       (assoc resp :body "intercepted"))))
254 | 
255 | (deftest wrap-route-middleware
256 |   (-> (send-request "/wrap-route")
257 |       (has-body "hey!"))
258 | 
259 |   (server/wrap-route "/wrap-route" interceptor)
260 | 
261 |   (-> (send-request "/wrap-route")
262 |       (has-body "intercepted")))
263 | 
264 | (deftest wrap-utf
265 |   (-> (send-request "/utf")
266 |       (has-content-type "text/html; charset=utf-8")
267 |       (has-body "ąčęė")))
268 | 
269 | (deftest valid-emails
270 |   (are [email] (vali/is-email? email)
271 |        "testword@domain.com"
272 |        "test+word@domain.com"
273 |        "test_word@domain.com"
274 |        "test'word@domain.com"
275 |        "test`word@domain.com"
276 |        "test#word@domain.com"
277 |        "test=word@domain.com"
278 |        "test|word@domain.com"
279 |        "testword@test.domain.com"
280 |        "te$t@test.com"
281 |        "t`e's.t&w%o#r{d@t.e.s.t"
282 |        "x@x.xx"))
283 | 
284 | (deftest invalid-emails
285 |   (are [email] (not (vali/is-email? email))
286 |        ".test@domain.com"
287 |        "-@-.com"
288 |        "test"
289 |        "test.@domain.com"
290 |        "test@com"))
291 | 
292 | (defpage "/different/content-type" []
293 |   (resp/content-type "application/vcard+xml" (resp/xml (html [:vcards]))))
294 | 
295 | (deftest different-content-type
296 |   (-> (send-request "/different/content-type")
297 |       (has-content-type "application/vcard+xml")
298 |       (has-body "")))
299 | 
300 | (defpage "/different/status" []
301 |   (resp/status 201 "Something was created"))
302 | 
303 | (deftest different-header
304 |   (-> (send-request "/different/status")
305 |       (has-status 201)))
306 | 
307 | 
308 | (deftest session
309 |   (with-noir
310 |     (session/put! :noir3 "woo")
311 |     (is (= "woo" (session/get :noir3)))
312 |     (is (nil? (session/get :noir4)))
313 |     (is (= "noir" (session/get :noir4 "noir")))))
314 | 


--------------------------------------------------------------------------------
/test/noir/test/validation.clj:
--------------------------------------------------------------------------------
 1 | (ns noir.test.validation
 2 |   (:use [noir.util.test])
 3 |   (:use [clojure.test])
 4 |   (:require [noir.validation :as vali]))
 5 | 
 6 | (deftest error-counting
 7 |   (with-noir
 8 |     (is (not (vali/errors?)))
 9 |     (vali/set-error :a "oh no")
10 |     (is (vali/errors?))
11 |     (is (vali/errors? :a))
12 |     (is (not (vali/errors? :b)))))
13 | 
14 | (deftest get-all-errors
15 |   (with-noir
16 |     (vali/set-error :a "blah")
17 |     (vali/set-error :b "cool")
18 |     (is (= (set (vali/get-errors)) (set ["blah" "cool"])))))
19 | 
20 | (deftest is-email-case-insensitive
21 |   (with-noir
22 |    (is (vali/is-email? "me@here.com"))
23 |    (is (vali/is-email? "Me@here.com"))
24 |    (is (vali/is-email? "me@Here.coM"))
25 |    (is (vali/is-email? "ME@HERE.COM"))))
26 | 


--------------------------------------------------------------------------------