; 接続
(memcached! :host "localhost" :port 11211)
; 文字列
(cache-set :hello "world") ; default expiration = 3600
(cache-get :hello :default "default value")
; リスト
(cache-set :ls '(1 2 3 4) :expiration 3600)
(= 1 (first (cache-get :ls)))
; マップ
(cache-set :map {:a 1 :b 2})
(= 2 (:b (cache-get :map)))

$ git clone git://github.com/liquidz/heroku-template.git mytest
$ cd mytest
$ ./setup.sh mytest
$ heroku create --stack cedar
$ heroku addons:add mongohq:free
$ git push heroku master

$ lein run -m mytest.dev

$ git clone git://github.com/liquidz/plojuctor.git
$ cd plojuctor
$ lein deps
$ lein repl
user=> (use 'plojuctor.core :reload)
user=> (next-page!)

(defslide
  (title "スライドタイトル")
  (item "itemは箇条書き"
        (code (println "コードはこんな感じ"))
        "スライドは定義した順に表示"))

(defslide
  (middle-page
    (center-page
      "上下左右中央")))

$ sudo easy_install dotcloud

$ dotcloue create liquidz

$ dotcloud deply -t java liquidz.www

$ lein new liquidz
$ cd liquidz

(defproject liquidz "1.0.0-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [compojure "0.5.3"]
                 ]
  :dev-dependencies [[lein-ring "0.2.4"]]
  :uberjar-name "service/root.war"
  :ring {:handler liquidz.core/app}
  )

(ns liquidz.core
  (:use [compojure core route]))

(defroutes app
  (GET "/" _ "hello clojure world")
  (not-found "page not found"))

$ lein ring server

$ mkdir service
$ lein ring uberwar

$ dotcloud push liquidz.www ./service

$ dotcloud deploy -t mysql liquidz.db
$ dotcloud info liquidz.db

(ns liquidz.core
  (:use
     [compojure core route]
     [clojure.contrib.sql]))

(def db {:classname "com.mysql.jdbc.Driver"
         :subprotocol "mysql"
         :subname "//db.liquidz.dotcloud.com:1455"
         :user "root"
         :password "パスワード" })

(defroutes app
  (GET "/" _ "hello clojure world")
  (GET "/sql" _ (with-connection db
                  (with-query-results rs ["select 40+2"]
                    (-> rs first str))))
  (not-found "page not found"))

$ lein ring server

$ lein ring uberwar

$ dotcloud push liquidz.www ./service

(import '[java.io File FileReader BufferedReader])
(let [reader (BufferedReader. (FileReader. (File. "temp.txt")))]
  (try
    (doseq [line (take-while (comp not nil?) (repeatedly #(.readLine reader)))]
      (println line))
    (finally (.close reader))))

(with-open [reader (BufferedReader. (FileReader. (File. "temp.txt")))]
  (doseq [line (take-while (comp not nil?) (repeatedly #(.readLine reader)))]
    (println line)))

(use '[clojure.contrib.io :only [read-lines]])
(doseq [line (read-lines "temp.txt")]
  (println line))

DocumentBuilderFactory factory = DocumentBuilderFactory.newInstance();
DocumentBuilder builder = factory.newDocumentBuilder();
Document doc = builder.parse(new File("foo.xml"));

val factory = DocumentBuilderFactory.newInstance();
val builder = factory.newDocumentBuilder();
val doc = builder.parse(new File("foo.xml"));

(let [factory (DocumentBuilderFactory/newInstance)
      builder (.newDocumentBuilder factory)
      doc (.parse builder (File. "foo.xml"))]
  ;do something
  )

(let [doc (.. (DocumentBuilderFactory/newInstance) (newDocumentBuilder) (parse (File. "foo.xml")))]
  ;do something
  )

(def ls '("abc" "def" "ghi"))

(def v ["abc" "def" "ghi"])

def foo(c1 : Char = 'A', c2 : Char = 'B', c3 : Char = 'C') {
    println(c1.toString + c2.toString + c3.toString)
}

(defn foo [& {:keys [c1 c2 c3] :or {c1 "A", c2 "B", c3 "C"}}]
  (println (str c1 c2 c3)))
(foo) ; => ABC
(foo :c1 "D") ; => DBC
(foo :c2 "E" :c3 "F") ; => AEF

(use '[clojure.contrib.def :only [defnk]])
(defnk foo2 [:c1 "A" :c2 "B" :c3 "C"]
  (println (str c1 c2 c3)))

(defn get-connection []
  (DriverManager/getConnection "jdbc:sqlite:hoge.sqlite3"))

String str1 = "テスト";
String str2 = "テスト";
String str3 = new String("テスト");
System.out.println(str1 + " == " + str2 + " = " + (str1 == str2));
  //=> テスト == テスト = true
System.out.println(str1 + " == " + str3 + " = " + (str1 == str3));
  //=> テスト == テスト = false

(let [str1 "test"
      str2 "test"
      str3 (String. "test")]
  (println str1 "=" str2 "=" (= str1 str2)) ; => true
  (println str1 "=" str3 "=" (= str1 str3))) ; => true

(println str1 "identical?" str2 "=" (identical? str1 str2))
(println str1 "identical?" str3 "=" (identical? str1 str3))

public int sum(int i1, int i2)  {
    return i1 + i2;
}

(defn sum [i1 i2] (+ i1 i2))

(def sum #(+ % %2))

(defmacro trycatch [& body] `(try ~@body (catch Exception e# nil)))
(println (trycatch (/ 10 3))) ; => 10/3 Clojureでは分数になります
(println (trycatch (/ 10 0))) ; => nil

for (int i = 1; i < 10; i++)
    for (int j = 1; j < 10; j++)
        System.out.println(i * j);

(some println (for [i (range 1 10), j (range 1 10)] (* i j)))

(some println (for [i (range 1 4), j (range 1 4), k (range 1 4), l (range 1 4)] (* i j k l)))

(some println (for [i (range 1 10), j (range 1 10) :when (or (even? i) (even? j))] (* i j)))

(let [ls '(1 2 3 5 3 5 7 8)]
  ; ユニーク
  (println (distinct ls))
  ; 偶数奇数でのグループ分け
  (println (group-by odd? ls))
  ; 和
  (println (apply + ls))
  ; 積
  (println (apply * ls))
  ; それぞれ2倍したリスト
  (println (map #(* % 2) ls)))

(use '[clojure.set :only [difference]])
(println (difference (hash-set 1 2 3 4 5) (hash-set 1 4 5)))

(import '[java.util ArrayList])
(let [ls (ArrayList.)]
  (doto ls (.add 1) (.add 2) (.add 3))
  (println (apply + ls))
  (println (map #(str "x=" %) ls)))

; アルファベット、数字、記号を含んでいて、文字数が6～10文字
(def mychecker (combine-checkers contains-alphabet? contains-number? contains-symbol? (length-range 6 10)))

; 文字数3～5かつ、全て同じ文字でないチェック関数
(let [checker (combine-checkers (length-range 3 5) not-same-characters?)]
  (checker "aa") ; false
  (println @last-checker) ; length-range
  ; --
  (checker "aaa") ; false
  (println @last-checker) ; not-same-characters?
  ; --
  (checker "aaaaaa") ; false
  (println @last-checker) ; length-range
  ; --
  (checker "abc") ; true
  )

; アバター画像URL取得
(gravatar-image "your@mail.address")
; サイズ指定
(gravatar-image "your@mail.address" :size 24)
; デフォルト画像指定
(gravatar-image "your@mail.address" :default "ttp://hoge.com/fuga.png")
; HTTPS利用
(gravatar-image "your@mail.address" :secure? true)
; ------
; プロフィール取得
(gravatar-profile "your@mail.address")
; HTTPS利用
(gravatar-profile "your@mail.address" :secure? true)

java.lang.NoClassDefFoundError: compojure/response/Renderable

:aot [compojure.response]

#(Hogehoge/fuga %)

(ns test (:use jstatic))
(def encode (static-method->fn java.net.URLEncoder/encode))
(println (encode "ほげ"))
; => %E3%81%BB%E3%81%92
(println (encode "ほげ" "EUC-JP"))
; => %A4%DB%A4%B2
(println (apply encode (list "ほげ" "Shift_JIS")))
; => %82%D9%82%B0