ponkore

(defn quit 
  ([] (System/exit 0))
  ([status] (System/exit status)))

ponkore

(ns clj-selenium-test.core
  (:use [clj-webdriver.taxi]))

(defn auto-login []
  "http://www.walk-21.com に自動ログインする。REPL にて
user=> (use 'clj-selenium-test.core)
user=> (auto-login)
"
  ;; top 画面を表示
  (set-driver! {:browser :firefox} "http://www.walk-21.com/")

ponkore

;;; http://jutememo.blogspot.com/2012/03/blog-post.html
;;; in Emacs Scratch Buffer

(setq x 7)
7

(defun g () x)
g

(defun f ()

ponkore

user=> (def x 7)
#'user/x
user=> (defn g [] x)
#'user/g
user=> (defn f [] (let [x 9] (g)))
#'user/f
user=> (f)
7
user=> 

ponkore

(ns compojure-example.core
  (:use compojure.core
        [hiccup.middleware :only (wrap-base-url)])
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defn index-page [] "<H1>Hello, world</H1>")

(defroutes main-routes
  (GET "/" [] (index-page))

ponkore

;; v1: "lein ring server"
(defproject compojure-example "1.0.0-SNAPSHOT"
  :description "Simple compojure example project"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [compojure "1.0.1"]]
  :dev-dependencies [[lein-ring "0.5.0"]] ; 0.6.1 では NG だった
  :ring {:handler compojure-example.core/app})

ponkore

(ns compojure-example.core
  (:use compojure.core
        ring.adapter.jetty  ; <- added
        [hiccup.middleware :only (wrap-base-url)])
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defn index-page [] "<H1>Hello, world</H1>")

(defroutes main-routes

ponkore

;;; reverse (not elegant)
(defn reverse-sample [coll]
  (if (empty? coll) ()
      (reduce #(cons %2 (if (seq? %1) %1 (list %1))) (seq coll))))

ponkore

bash$ rlwrap clj
Clojure 1.3.0
user=> (reverse nil)
()
user=> (reverse [])
()
user=> (reverse ())
()
user=> (reverse '(0 1 2))
(2 1 0)

ponkore

;; v2: "from Emacs 'M-x clojure-jack-in'"
(defproject compojure-example "1.0.0-SNAPSHOT"
  :description "Simple compojure example project"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [compojure "1.0.1"]]
  :dev-dependencies [[lein-ring "0.5.0"] ; 0.6.1 では NG だった
                     [swank-clojure "1.3.4"]]) ; added