Grimoireでリプ爆する為の設定

little-region.clj

; リプ爆用関数
(defn little-region
  "槍を持つたくさんの人形達が，標的に向かって突進して行く
   (複数のアカウントから特定のツイート・ユーザーに対して
   同じリプライを送る)
  
   例1：(little-region @twitters 'marisa' 'hello')
   全てのアカウントから@marisaに向けてhelloと呟く
  
   例2：(little-region (-> @twitters (dissoc :syanhai1))
                      'marisa'
                      'ごきげんいかが')
   syanhai1以外の全てのアカウントから@marisaに対して
   ごきげんいかがと呟く"
  [twitters username txt]
  (-> twitters 
      vals 
      (#(doall 
         (map 
           (fn [a] (.updateStatus a 
                     (str "@" username " " txt)))
            %)))))