                       me " fyi                           : メモ一覧を表示\n"
                       me " set-fyi <title> <body>        : <title> <body>をメモ\n"
                       me " del-fyi <title>               : <title>を削除\n"
+                      me " review <pr>                   : <pr>を誰かに割り振る\n"
                       me " <S-Expression>                : <S-Expression>を評価\n"
                       "------------------ 管理者限定機能 ------------------\n"
                       me " add-allowed-channel <channel> : <channel>を監視対象から外す\n"

   u]
   (if (from-master? slack res)
     (do
       (some-> user redis/rm-reviewer)
       (map->Payload {:type :message
                      :user user
                      :channel channel

                     :text "ｹﾝｹﾞﾝｶﾞﾅｲｰﾖ!"})))

(defn- review
  [{:keys [user channel] :as res}
   pr]
  (let [reviewer (some-> (redis/get-all-reviewers) seq rand-nth)]
    (cond (not reviewer) (map->Payload {:type :message
                                        :user user
                                        :channel channel
                                        :text (str "ﾚﾋﾞｭﾜｰｶﾞｲﾅｲﾖ!")})

          (not pr) (map->Payload {:type :message
                                  :user user
                                  :channel channel
                                  :text (str "prﾁｮｳﾀﾞｲ!")})
          :else (map->Payload {:type :message
                               :user reviewer
                               :channel channel
                               :text (str "っ＝[レビューをお願いします]\n"
                                          pr)}))))

(defn- help
  [{:keys [user channel] :as res} me]
