Использование нестандартных операторов postgres с SQL Korma

Question

Некоторые сложные функции Postgres используют операторы, не входящие в стандарт SQL. Одним простым примером является набор операторов POSIX regular expression; Мне нужно, чтобы они включали выражение where where, которое использует границы слов.

Предположим, что я хочу найти виджеты, которые входят в размер 1, где size - это строка, содержащая кодированный json список целых чисел.

Образец данных:

ID Size 
1 "[1]" 
2 "[1,2,4,12]" 
3 "[4,12]" 
4 "[2,4]" 

Это тривиальное с сырым SQL:

SELECT * FROM widgets WHERE size ~ '\m1\M' 

Но становится очень трудно с Корме. Корма позволяет использовать predicates в карте, но функциональность очень ограничительная. Некоторые вещи, которые не работают:

=> (select "widgets" (where {:size ["~" "\\m1\\M"]})) 
ClassCastException java.lang.String cannot be cast to clojure.lang.IFn korma.sql.engine/pred-vec (engine.clj:218) 

=> (select "widgets" (where {:size [(raw "~") "\\m1\\M"]})) 
Failure to execute query with SQL: 
SELECT "widgets".* FROM "widgets" WHERE (?) :: [\m1\M] 

=> (select "widgets" (where {:size (raw "~ '\\m1\\M'")})) 
Failure to execute query with SQL: 
SELECT "widgets".* FROM "widgets" WHERE ("widgets"."size" = ~ '\m1\M') :: [] 

=> (sql-only (select "widgets" (where {:size [(raw "~ '\\m1\\M'")]}))) 
"SELECT \"widgets\".* FROM \"widgets\" WHERE (NULL)" 

осложняющим фактором является то, что другие условия динамически добавляются к карте где после этого один. Поэтому, даже если следующий пример работает, он не допускает строительство этой карты:

=> (sql-only (select "widgets" (where (raw "size ~ '\\m1\\M'")))) 
"SELECT \"widgets\".* FROM \"widgets\" WHERE size ~ '\\m1\\M'" 

Таким образом, использует нестандартные операторы, такие как ~ выполнить этот матч возможного в Корме в сочетании с картой где? Как бы вы это сделали? Лучшие альтернативы или обходные пути?

Answer 1

Вы можете добавить дополнительные where пункты, из официальной документации (http://sqlkorma.com/docs#select):

;; Multiple where's are joined with AND, so this 
;; is also the same: 
(-> (select* users) 
    (where {:first "john"}) 
    (where {:last "doe"}) 
    (as-sql)) 

Так что вы можете сделать что-то вроде этого:

(sql-only (select "widgets" 
      (where (raw "size ~ '\\m1\\M'")) 
      (where {:.. "?"}))) 

EDIT: Еще один вариант

Вы можете создать свой собственный предикат:

(require '[korma.sql.engine :refer [infix]]) 

(defn tilde 
    [k v] 
    (infix k "~" v)) 

(sql-only 
    (select "widgets" 
    (where {:size [tilde "\\m1\\M"] 
      :... [like "..."]})))