在Hiccup中的条件,我可以使这更惯用吗?

时间:2012-08-14 08:05:41

标签: clojure noir hiccup

Clojure初学者在这里!我在Noir项目中为我的Hiccup代码添加了flash消息支持。

我要做的是检查是否设置了每个特定的消息字符串。如果没有消息,那么我不想显示包含该消息的特定flash元素。

(defpartial success-flash [msg]
            [:div.alert.notice.alert-success
             [:a.close {:data-dismiss "alert"} "x"]
             [:div#flash_notice msg]])

(defpartial error-flash [msg]
            [:div.alert.notice.alert-error
             [:a.close {:data-dismiss "alert"} "x"]
             [:div#flash_notice msg]])

[..]

(defpartial layout [& content]
            (html5
              [:head
                [...]
              [:body
               (list
                [...]
                [:div.container
                 (let [error-msg (session/flash-get :error-message)
                       error-div (if (nil? error-msg) () (error-flash error-msg))
                       success-msg (session/flash-get :success-message)
                       success-div (if (nil? success-msg) () (success-flash success-msg))]
                       warning-msg (session/flash-get :warning-message)
                       warning-div (if (nil? warning-msg) () (warning-flash warning-msg))]

                   (list error-div success-div warning-div content))])]))

免责声明:我完全同意你不会遇到一次需要不止一次特定闪光的情况,而是沉迷于我试图找出更好,更实用的方法实施这个。

我确信有一种处理类似情况的模式。基本上我检查几个表达式的值,用这些值做一堆东西,然后根据结果进行操作。你可以用越来越多的怪物(cond)来解决这个问题,但我的解决方案至少有点清洁。

提示?

2 个答案:

答案 0 :(得分:5)

您也可以使用when-let

(defpartial layout
  [& contents]
  (html5
    [:body
     (when-let [msg (session/flash-get :error-message)]
       (error-flash msg))
     (when-let [msg (session/flash-get :warning-message)]
       (warning-flash msg))
     (when-let [msg (session/flash-get :success-message)]
       (success-flash msg))
     contents))

我不是打嗝专家,但我认为这应该有效。我发现发生的事情有点清楚,虽然它稍微冗长一点。

答案 1 :(得分:4)

该模式称为映射值。下面是一个使用keep函数应用映射值模式然后过滤它们的示例

(use 'clojure.contrib.core)


(def flash-message
[[:error-message error-flash]
 [:success-message success-flash]
 [:warning-message warning-flash]])

(keep (fn [m f] (-?>> m (session/flash-get) (f))) flash-message)