如何更可读地编写Clojure请求转排序字符串函数？

1. 拆分逻辑为单一职责小函数 #

把原函数拆分成专注单个任务的小函数，让每个函数的意图更清晰：

• 单独函数校验排序项是否在字段映射表中
• 单独函数将单个排序映射转换为数据库列的排序字符串
• 主函数负责整合逻辑、处理默认值

示例拆分结构：

(defn valid-sort-item? [sort-item]
  (contains? field-name-to-columns (:field sort-item)))

(defn sort-item->db-str [sort-item]
  (let [db-col (get field-name-to-columns (:field sort-item))
        sort-dir (:direction sort-item :ASC)] ; 给排序方向设默认值ASC
    (str db-col " " (name sort-dir))))

(defn generate-sort-clause [sorting]
  (let [valid-items (filter valid-sort-item? sorting)
        sort-strings (map sort-item->db-str valid-items)]
    (if (seq sort-strings)
      (clojure.string/join ", " sort-strings)
      "client.name DESC")))

2. 使用语义化变量名 #

替换模糊的变量名，比如把res改成valid-sort-items，output改成final-sort-clause，让变量名直接表达用途，减少阅读时的认知成本。

3. 用Clojure默认值语法简化逻辑 #

针对排序方向这类可选字段，直接用(:direction sort-item :ASC)设置默认值，省去额外的条件判断，代码更简洁地道。

4. 提取常量提升可维护性 #

把默认排序字符串提取成命名常量，后续修改默认规则时只需改动一处：

(def default-sort-clause "client.name DESC")

主函数中直接引用这个常量，逻辑更清晰。

5. 添加简洁的逻辑注释 #

在核心规则处添加注释，帮助其他开发者快速理解代码意图：

;; 校验排序字段是否存在于数据库列映射表中
(defn valid-sort-item? [sort-item]
  (contains? field-name-to-columns (:field sort-item)))

6. 用seq判断集合非空 #

Clojure中判断集合非空推荐用(seq coll)，这是惯用写法，能兼容多种集合类型，比判断长度更简洁通用。

内容的提问来源于stack exchange，提问作者Razz