Question

我使用Clojure和korma libs。

defn db-search-users
  [& {:keys [nick_name max_age min_age page page_size lmt oft]
      :or {lmt 10  page_size 10 oft 0 }
      :as conditons}]
  (let [users-sql  (-> (select* users)
                       (fields :user_name :id :nick_name)
                       (limit (if (nil? page) lmt page_size))
                       (offset (if (nil? page) oft (* page page_size))))]
    (do
       (exec (-> users-sql
                need_do_something_here
             )
       )

  )

现在我需要在＆＃34; need_do_something_here＆＃34;上向users-sql添加一些搜索条件，我可以用命令式描述：

if ( nick_name != nil)
    users-sql = (where users-sql (like :nick_name nick_name)

if (max_age != nil)
    users-sql = (where users-sql (> :birthday blabla....))

if (min_age != nil)
    users-sql = (where users-sql (< :birthday blabla....))

如何以功能风格的优雅方式做到这一点？

另一个问题是：

我发现以下代码很难看：

(if (nil? page) lmt page)

Clojure中是否有一些函数，如(get_default_value_3_if_a_is_null a 3)？

Answer 1

从A.Webb得到答案，现在我的代码是：

(defn db-search-users
  [& {:keys [nick_name max_age min_age page page_size lmt oft]
      :or   {lmt 10 page_size 10 oft 0}
      :as   conditons}]
  (let [users-sql (-> (select* users)
                      (fields :user_name :id :nick_name :password)
                      (limit (if (nil? page) lmt page_size))
                      (offset (if (nil? page) oft (* page page_size))))
        normal_conditions (select-keys conditons [:user_name :gender :phone])]
    (exec (cond-> users-sql
                  (not-empty normal_conditions) (where normal_conditions)
                  (not-nil? nick_name) (where (like :nick_name (str "%" nick_name "%")))
                  (not-nil? max_age) (where (> :birthday (c/to-sql-date (-> max_age t/years t/ago))))
                  (not-nil? min_age) (where (< :birthday (c/to-sql-date (-> min_age t/years t/ago))))
                  )
          )

    )
  )

cond-＆GT;是处理我问题的完美方式。

第二个问题：如何美化像

这样的代码

(if (nil? page_size) lmt page_size)

现在得到思考地图数据结构可以用于这种情况。

在clojure中编写这段代码的优雅方法是什么？

1 个答案: