Skip to content

Instantly share code, notes, and snippets.

@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 / grep.clj
Created April 12, 2012 04:09
Cheap grep by Clojure
;;;
;;; 簡単 grep。のつもりが、あんまりかっこ良くないorz
;;;
(use '[clojure.java.io :as io])
(defn indexed [coll]
(map vector (iterate inc 1) coll))
(defn grep [re file]
(with-open [rdr (io/reader file)]
@ponkore
ponkore / hoge.clj
Created August 2, 2012 05:45
mapリテラルでは8対までは array-map、それより多い対は hash-map が生成される。
;; @___otabat___ さんのツイート https://twitter.com/___otabat___/status/230890089218195456
;; より引用
;; 「Clojureでmapリテラルを使うとき、8対目まではarray-map、9対目からhash-mapに変わるなどデータと内部実装が異なるのは注意。」
;; を試してみた。
user=> (class {:a 10 :b 20})
;= clojure.lang.PersistentArrayMap
user=> (class {:a 10 :b 20 :c 30 :d 40 :e 50 :f 60 :g 70 :h 80})
;= clojure.lang.PersistentArrayMap (:a〜:h 8対まで)
user=> (class {:a 10 :b 20 :c 30 :d 40 :e 50 :f 60 :g 70 :h 80 :i 90})
;= clojure.lang.PersistentHashMap (:a〜:i 9対、PersistentHashMap に変わった!!)
@ponkore
ponkore / files-in-dir.clj
Created October 20, 2012 14:31
Clojure でディレクトリにあるファイルの扱い
user=> (import 'java.io.File)
user=> (File. ".")
#<File .>
user=> (def curdir (File. "."))
#'user/curdir
user=> curdir
#<File .>
user=> (.list curdir)
#<String[] [Ljava.lang.String;@33d6798>
user=> (seq (.list curdir))
@ponkore
ponkore / clojure.java.jdbc.md
Created December 2, 2013 03:52
clojure.java.jdbc について (Clojure Contrib Advent Calendar 2013 2日目の記事です)

clojure.java.jdbc について

この記事は、Clojure Contrib Advent Calendar 2013 2日目の記事です。

今日のお題は、clojure.java.jdbc です。その名の通り、JDBC の wrapper library で、Clojureから SQL Database へのアクセスを容易にして くれます。

@ponkore
ponkore / file0.cljs
Created December 14, 2013 13:14
Clojure で HTML スクレイピングしてみる ref: http://qiita.com/ponkore/items/5309023186353de49172
[net.sourceforge.htmlcleaner/htmlcleaner "2.2"]
@ponkore
ponkore / jetty-config.txt
Last active March 18, 2017 12:50
jetty-config-memo.txt
bash$ java -jar ../jetty-distribution-9.4.2.v20170220/start.jar --add-to-start=http,deploy,ext,jvm,console-capture,logging-slf4j,slf4j-log4j --create-startd
ALERT: There are enabled module(s) with licenses.
The following 2 module(s):
+ contains software not provided by the Eclipse Foundation!
+ contains software not covered by the Eclipse Public License!
+ has not been audited for compliance with its license
Module: log4j-impl
+ Log4j is released under the Apache 2.0 license.
@ponkore
ponkore / mac-cpuinfo.txt
Last active March 15, 2017 13:39
Mac で CPU の情報を取得
bash$ system_profiler SPHardwareDataType
Hardware:
Hardware Overview:
Model Name: MacBook
Model Identifier: MacBook9,1
Processor Name: Intel Core m5
Processor Speed: 1.2 GHz
Number of Processors: 1
@ponkore
ponkore / binding_memo.cljs
Created October 26, 2016 11:33
名前空間付きキーワードを持つ map の binding
;;
;; keyword with namespace
;;
(let [{:keys [app/title]} {:app/title "aabb"}] title)
;; => "aabb"
(let [{:keys [a.p.p/title]} {:a.p.p/title "aabb"}] title)
;; => "aabb"
@ponkore
ponkore / 贈る言葉.md
Last active August 7, 2016 14:20
贈る言葉

贈る言葉

贈る言葉、としてふさわしいことが出てこないので、人生の先輩として、「こうあって欲しい」的なことを、適当にまとめてみました。

偉そうにいろいろ書いてますが、大半自分も未達成、まだまだこれからな感じですので、気楽に読んでみてください(順不同でまとまりはいまいちですが...)。というか、人生終盤にさしかかっていてまだできていない俺って...。

決して無理はしなくていいけど、俺みたいなダメ人間にはならないで、現状に満足することなくがんばってね、という思いです。