 
       (jb/set feed/FEED_URL nil)
       ((first github-schedule)))))
+

(ns panpan.eina
  (:require
    [clojure.string     :as str]
    [panpan.github.feed :as feed]
    [jubot.adapter      :as ja]
    [jubot.scheduler    :as js]
    [jubot.handler      :as jh]
    [jubot.brain        :as jb]))

(def ^:const SCHEDULE "0 /1 * * * * *")
(def ^:const NAME "エイナ")

              out)))

(defn eina-handler
  "エイナ(さん)?.*クエスト.*(教えて|おしえて) - github のクエスト一覧
   エイナ(さん)?.*github.*テスト              - github rss 取得のテスト
  "
  [{:keys [user] :as arg}]
  (jh/regexp arg
    #"エイナ(さん)?.*クエスト.*(教えて|おしえて)"
    (fn [& _]
      (->> MESSAGES :reply rand-nth (out "@" user " "))
      (->> (search/get-assigned-issues "liquidz" :state "open")
           (map #(str " * <" (:url %) "|" (:title %) ">"))
           (str/join "\n")
           out))
    #"エイナ(さん)?.*github.*テスト"
    (fn [& _]
      (->> MESSAGES :reply rand-nth (out "@" user " "))
      (jb/set feed/FEED_URL nil)
      (->> (feed/get-github-feeds)
           (map feed/github-respond)
