Нужна помощь в оптимизации заявления clojure

Question

Я очень новичок в clojure и мне нужно настроить конфигурацию riemann, чтобы было легко редактировать/добавлять новые условия. То, что мы имеем сейчас:

(defn tell-ops 
([to] 
    (by [:service] 
     (throttle 3 360 
      (rollup 2 360 
       slackerDefault 
       (email to))))) 
([to channel] 
    (by [:service] 
     (throttle 3 360 
      (rollup 2 360 
       (slacker channel) 
       (email to)))))) 

    ............ 

(where (state "FATAL") 
    (where (service #"^Serv1") 
      (tell-ops "dev.ops1@foo.com" "#dev-ops1")) 

    (where (service #"^Serv2") 
      (tell-ops "dev.ops2@bar.com")) 
    .... 

) 

кроме того, в нем отсутствует заявление по умолчанию, что-то вроде , если ничего не соответствует, скажите-OPS «admin@fo.bar»

Я думаю, что нужно что-то вроде верхнего уровня struct

(def services 
[{:regex #"^serv1" :mail "foo@bar.com" :channel "#serv1"} 
    {:regex #"serv2$" :mail "foo@baz.com"} ]) 

, так что было бы легко добавить новые. Но я не знаю, как петля throuth этого массива с учетом отсутствия: канал во втором случае и сделать «вызов по умолчанию», если ни один из регулярных выражений не соответствует

Заранее спасибо

Answer 1

Я не много знаю о Римане, но я думаю, что вы можете решить свою проблему, используя стандартные инструменты обработки данных Clojure. Мне нравится ваше представление о структуре верхнего уровня для политик предупреждений. В конце я бы добавил политику catch-all для обработки случая по умолчанию. Изменение вашего кода немного, чтобы сделать его менее Риман конкретно:

(defn tell-ops! 
    [{:keys [mail channel]}] 
    (when mail (println (str "mail = " mail))) 
    (when channel (println (str "channel = " channel)))) 

(def policies 
    [{:regex #"^serv1.*" :mail "foo@bar.com" :channel "#serv1"} 
    {:regex #".*serv2$" :mail "foo@baz.com"} 
    {:regex #".*" :mail "default@bar.com"}]) 

(defn alert! 
    [policies service-in-alert] 
    (-> (drop-while (fn 
        [{:keys [regex]}] 
        (nil? (re-matches regex service-in-alert))) 
     policies) 
    first 
    tell-ops!)) 

Некоторых примечания:

• это идиоматическое использовать ! в именах функций, для функций, которые производят побочные эффекты (например, разместив сообщение канал или отправки электронной почты)
• если вы хотите жесткое по умолчанию для функции tell-ops!, вы можете использовать поддержку Clojure в значения по умолчанию, когда карты: уничтожению того {:keys [mail channel] :or {mail "default@foo.bar" channel "#default-chan"}}