boxp

; リプ爆用関数
(defn little-region
  "槍を持つたくさんの人形達が，標的に向かって突進して行く
   (複数のアカウントから特定のツイート・ユーザーに対して
   同じリプライを送る)
  
   例1：(little-region @twitters 'marisa' 'hello')
   全てのアカウントから@marisaに向けてhelloと呟く
  
   例2：(little-region (-> @twitters (dissoc :syanhai1))

boxp

--ちんちんっぽいことするやつ
import System.Random
chimpo :: String -> String
randomString :: String -> String

chimpo c = if take 4 c == "ABCDE"
		then c ++ ("なんか終わりました" ++ (show (length c )))
		else chimpo (randomString c)

randomString s = getStdRandom(randomR(0,4)) >>= \r -> case r of

boxp

(reify Plugin
  (get-name [this] nil)
  (on-status [this status] nil)
  (on-rt [this status] nil)
  (on-unrt [this status] nil)
  (on-fav [this source target status] nil)
  (on-unfav [this source target status] nil)
  (on-del [this status] nil)
  (on-follow [this source user] nil)
  (on-dm [this dm] nil)

boxp

(do 
  (require '[gntp :as gp]
           '[clojure.java.io :as io])
  (let [growler (gp/make-growler "Grimoire")
        notifier (if (try (.. @main-stage isShowing) 
                       (catch Exception e nil))
                   (fn [& _] nil)
                   (growler :default {:icon (io/input-stream (io/resource "alice.png"))}))]
    (reify Plugin
      (get-name [this] nil)

boxp

(reify Plugin
  (get-name [this] "美容室で〜す^^")
  (on-status [this status] nil)
  (on-rt [this status] nil)
  (on-unrt [this status] nil)
  (on-fav [this source target status] nil)
  (on-unfav [this source target status] nil)
  (on-del [this status] nil)
  (on-follow [this source user] nil)
  (on-dm [this dm] nil)

boxp

(do
  ; 名前空間の束縛はdo内で行なって下さい
  (import '(javafx.scene.input Clipboard ClipboardContent))
  ; プラグインを作成
  ; それぞれnilの部分を書き換えて，プラグインの処理を書いて下さい．
  (reify Plugin
    ; 右クリックメニューの名前を返します
    (get-name [this] "クリップボードへコピー")
    ; ツイート(status)を受信した際に呼ばれる
    (on-status [this status] nil)

boxp

(ns atcoder.core
  (:use [clojure.string :only (join split split-lines)]))

; don't fix me
(defn gen-args 
  [input]
  (split-lines input))


; start code section

boxp

(ns atcoder.core
  (:use [clojure.string :only (join split split-lines)]))

; don't fix me
(defn gen-args 
  [input]
  (split-lines input))


; start code section

boxp

(ns atcoder.core
  (:use [clojure.string :only (join split split-lines)]))

; don't fix me
(defn gen-args 
  [input]
  (split-lines input))


; start code section

boxp

; Grimoire settings
; Created by BOXP<http://archbox.dip.jp/>

; theme settings
; solarized_dark
(reset! theme "solarized_dark")
; set tweet text size
(reset! tweets-size 13)

; service settings