Skip to content

Instantly share code, notes, and snippets.

@ponkore
ponkore / gist:2040691
Created March 15, 2012 00:27
Lexical Scope _and_ Dynamic Scope
;;; http://jutememo.blogspot.com/2012/03/blog-post.html
;;; in Emacs Scratch Buffer
(setq x 7)
7
(defun g () x)
g
(defun f ()
@ponkore
ponkore / gist:2021925
Created March 12, 2012 13:27
clj-webdriver tiny example
(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
ponkore / gist:2018664
Created March 11, 2012 23:26
Call Java's System/exit from Clojure
(defn quit
([] (System/exit 0))
([status] (System/exit status)))