ですで〜す^^

ldesu.clj

(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)
  (on-start [this] nil)
  (on-click [this e]
    (post 
      (str
        (rand-nth ["ですで～す" "美容室Lで～す" "美容室で～す"])
        (apply str 
          (repeat (rand-int 100) "^"))))))