Skip to content

Instantly share code, notes, and snippets.

@kurogelee
kurogelee / Pipe.java
Created December 4, 2014 18:59
Leiningenで日本語を表示する方法 ref: http://qiita.com/kurogelee/items/76ab9ed1b1330da81fe5
/*
* Copyright (c) 2013 Jean Niklas L'orange. All rights reserved.
*
* The use and distribution terms for this software are covered by the
* Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
* which can be found in the file LICENSE at the root of this distribution.
*
* By using this software in any fashion, you are agreeing to be bound by
* the terms of this license.
*
[com.taoensso/timbre "3.3.1"]
@kurogelee
kurogelee / cljs
Created December 2, 2014 11:26
ClojureScriptでJQueryを使うサンプル ref: http://qiita.com/kurogelee/items/4fcede134cfda5b202e9
(js/$
(fn []
(.. (js/$ "#sample-text") (on "change" #(js/alert (.. % -target -value))))
(.. (js/$ "#sample-select") (on "change.bfhselectbox" #(js/alert "abc")))))
@kurogelee
kurogelee / clj
Last active August 29, 2015 14:10
Luminusを使って簡単にWeb開発したい ref: http://qiita.com/kurogelee/items/66ee1d8fe18fdf2d9675
[edn-config "0.2"]
[yesql "0.4.0"]
[domina "1.0.2"]
@kurogelee
kurogelee / myhome.edn
Created August 16, 2014 02:16
ClojureでJubatusその3(Regression:回帰) ref: http://qiita.com/kurogelee/items/a4fdc1e969372bc293d0
;
; distance : 駅からの徒歩時間 (分)
; space : 専有面積 (m*m)
; age : 築年数 (年)
; stair : 階数
; aspect : 向き [ N / NE / E / SE / S / SW / W / NW ]
;
{"distance" 8
"space" 32.00
"age" 15
@kurogelee
kurogelee / recommender.clj
Created August 15, 2014 13:00
ClojureでJubatusその2(Recommender:推薦) ref: http://qiita.com/kurogelee/items/801c49e0c57016a17d2d
(ns jubatus-sample.recommender
(:require [clojure.java.io :as io]
[clojure.string :as s])
(:import [us.jubat.recommender RecommenderClient]
[us.jubat.common Datum]))
(defn map->datum [hmap]
(let [d (Datum.)]
(doseq [[k v] hmap]
(condp instance? v
@kurogelee
kurogelee / core.clj
Created August 15, 2014 07:13
ClojureでJubatusを利用してみる(Classifier:多値分類) ref: http://qiita.com/kurogelee/items/a971bd3dce25212088f2
(ns jubatus-sample.core
(:import [us.jubat.classifier ClassifierClient LabeledDatum]
[us.jubat.common Datum]))
(def train-data
{"徳川" ["家康" "秀忠" "家光" "家綱" "綱吉" "家宣" "家継" "吉宗" "家重" "家治" "家斉" "家慶" "家定" "家茂" #_"慶喜"]
"足利" ["尊氏" "義詮" "義満" "義持" "義量" "義教" "義勝" "義政" "義尚" "義稙" "義澄" "義稙" "義晴" "義輝" "義栄" #_"義昭"]
"北条" ["時政" "義時" "泰時" "経時" "時頼" "長時" "政村" "時宗" "貞時" "師時" "宗宣" "煕時" "基時" "高時" "貞顕" #_"守時"]})
(defn- make-datum [value]
@kurogelee
kurogelee / file0.cljs
Created June 21, 2014 06:28
Light TableでClojureの関数ソースを見るショートカット ref: http://qiita.com/kurogelee/items/38451cd824dbf8a30fe8
"alt-s" [:editor.sublime.selectNextOccurrence (:eval.custom "(with-out-str (clojure.repl/source __SELECTION__))" {:verbatim true})]
(defn clj->js
"Recursively transforms ClojureScript values to JavaScript.
sets/vectors/lists become Arrays, Keywords and Symbol become Strings,
Maps become Objects. Arbitrary keys are encoded to by key->js."
[x]
(when-not (nil? x)
(if (satisfies? IEncodeJS x)
(-clj->js x)
(cond
(keyword? x) (name x)
body
#loader //"起動時の画面。起動後はopacity: 0;"
#wrapper
#canvas
#multi //"中心部分"
.tabsets
.tabset
.tabset
...
span.button.fullscreen //"フルスクリーン時の閉じるボタン"