Samuel's Project Nash

 
(ns hello-www.core
  (:use compojure.core
    hiccup.core
    ring.adapter.jetty)
  (:require [compojure.route :as route]))
 
(defroutes example
  (GET "/hello" [] 
    (html
			 [:head
			  [:body
			   [:h1 "Hello World Wide Web!"]]]))
  (GET "/" [] "<h1>root</h1>")
  (GET "/sample" []
    (html
      [:head
       [:title "html sample by hiccup lib, clojure"]
       ]
      [:body
       [:p [:a {:href "http://defree.co.kr"} "Samuel's blog"]]
       [:p [:b "b tag"]]
       [:p [:dd "dd tag"]]
       [:p 
        [:div "form in a div tag"
         [:form {:name "form1"}
          [:p 
           [:input {:type "text" :name "text_input" :value "this is a text input tag."}]
           [:input {:type "password" :name "password_input" :value "this is a password input tag."}]
           [:input {:type "button" :name "button_input" :value "this is a button input tag."}]
           [:input {:type "submit" :name "submit_input" :value "this is a submit input tag."}]
           ]
          [:p 
           [:input {:type "radio" :name "text_input" :value "1" :selected "true"} "radio No.1"]
           [:input {:type "radio" :name "text_input" :value "2" :selected "false"} "radio No.2"]
           [:select {:name "select"}
            [:option {:value "code1" :selected "true"} "select 1"]
            [:option {:value "code2"} "select 2"]]
           [:textarea {:value "textarea"}]]]]]
       [:h1 "h1"]
       [:h2 "h1"]
       [:h3 "h2"]
       [:h4 "h3"]
       [:h5 "h4"]
       [:h6 "h5"]]))
  (route/not-found "Page not found"))
 
(run-jetty example {:port 8080})

(defproject hello-www "0.0.1-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.2.0"]
                   [org.clojure/clojure-contrib "1.2.0"]
                   [compojure "0.4.0"]
                   [ring/ring-jetty-adapter "0.2.3"]
                   [lein-eclipse "1.0.0"]
                   [hiccup "0.2.6"]])

 
/* 
sa object 사용법
	1. AJAX 호출
		sa object가 포함된 자바스크립트를 임포트하고 sa.run(url, queryString, callback) 을 호출한다.
			url : 호출할 웹서비스(서블릿 등)
			queryString : get방식과 같이 넘겨주는 파라메터. (예 - "mode=inputLot&plant_cd=A020")
			callback : 웹서비스가 완료된 후 실행할 자바스크립트 함수. 익명함수 또는 함수 이름.
	2. 헬퍼 함수
		sa.createInputTag(type, name)
			input 태그 생성시 ie6의 버그를 우회하여 태그를 리턴함
*/
var sa = {
	url : ""
	, desc : "ajax object"
	, getXmlHtmlRequest : function() {
		try { 
			if(window.XMLHttpRequest) {
				return new XMLHttpRequest();
			}
			else {
				return new ActiveXObject("Microsoft.XMLHTTP");
			}
		}
		catch(e) {
			return null;
		}
	}
	, xmlObject : null
	, init : function() {
		sa.xmlObject = sa.getXmlHtmlRequest();
	}
	, createInputTag : function(type, name) {
		var inputTag;
		try {
			inputTag = document.createElement("<input type='" + type + "' name='" + name + "'/>"); // ie6 버그때문에 input은 이와같이 생성하여야 함.
		}
		catch(e) {
			inputTag = document.createElement("input");
			inputTag.setAttribute("type", type);
			inputTag.setAttribute("name", name);
		}
		return inputTag;
	}
	, showNowLoading : function() {
		var i; var obj; // ie6 select 태그의 layer 버그 우회
		for(i = 0; i < document.all.tags("select").length; i++) {
			obj = document.all.tags("select")[i];
			if(!obj || !obj.offsetParent) {
				continue;
			}
			obj.style.visibility = "hidden";
		}		
		document.getElementById("loading_div").style.display = "";
	}
	, eraseNowLoading : function() {
		var i; var obj; // ie6 select 태그의 layer 버그 우회
		for(i = 0; i < document.all.tags("select").length; i++) {
			obj = document.all.tags("select")[i];
			if(!obj || !obj.offsetParent) {
				continue;
			}
			obj.style.visibility = "visible";
		}		
		document.getElementById("loading_div").style.display = "none";
	}
	, uninitializedHandler : function() {}
	, loadingHandler : function() {}
	, loadedHandler : function() {}
	, interactiveHandler : function() {}
	, completeHandler : function() {}
	, run : function(url, queryString, callback) {
		var desc = "";
		if(sa.xmlObject === null) {
			sa.init();
		}
		sa.completeHandler = callback;
		sa.xmlObject.open("POST", url, true);
		sa.xmlObject.onreadystatechange = function() {
			if(sa.xmlObject.readyState === 0) {
				desc = "open매소드 호출되지 않음";
				sa.uninitializedHandler();
			}
			else if(sa.xmlObject.readyState === 1) {
				desc = "status 와 헤더는 도착하지 않은 상태";
				sa.showNowLoading();
				sa.loadingHandler();
			}
			else if(sa.xmlObject.readyState === 2) {
				desc = "status 와 헤더는 도착하지 않은 상태";
				sa.loadedHandler();
			}
			else if(sa.xmlObject.readyState === 3) {
				desc = "데이터 일부를 받은  상태";
				sa.interactiveHandler();
			}
			else if(sa.xmlObject.readyState === 4) {
				desc = "데이터전송 완료";
				sa.completeHandler();
				sa.eraseNowLoading();
			}
		};
		sa.xmlObject.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");   
		sa.xmlObject.send(queryString);
	}
};

(defproject hello-www "0.0.1-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.2.0"]
                   [org.clojure/clojure-contrib "1.2.0"]
                   [compojure "0.4.0"]
                   [ring/ring-jetty-adapter "0.2.3"]
                   [lein-eclipse "1.0.0"]])

(ns hello-www.core
  (:use compojure.core
        ring.adapter.jetty)
  (:require [compojure.route :as route]))
 
(defroutes example
  (GET "/" [] "<h1>Hello World Wide Web!</h1>")
  (route/not-found "Page not found"))
 
(run-jetty example {:port 8080})