Example of sql pretty print. ql/httpkit/cheshire.

sql-pretty-print.clj

(def sql-example
  (->
   (ql/sql {:ql/with   {:_user  #:ql {:select :*
                                      :from   :user
                                      :where  [:ql/= :id [:ql/param 5]]}
                        :_group {:ql/select :g.*
                                 :ql/from   {:u :user}
                                 :ql/joins  {:g {:ql/rel :group
                                                 :ql/on  [:ql/= :g.user_id :u.id]}}}}
            :ql/select {:name :u.name :group :g.name}
            :ql/from   {:u :_user :g :_group}
            :ql/where  [:ql/= :g.user_id :u.id]})
   :sql))

(def response-result
  @(http/post "https://sqlformat.org/api/v1/format"
              {:form-params {"sql" sql-example
                             "reindent" 1}}))
(-> response-result
    :body
    json/parse-string
    (get "result")
    print)


;; WITH _user AS
;;   (SELECT *
;;    FROM user
;;    WHERE id = ? ),
;;      _group AS
;;   (SELECT g.*
;;    FROM user u
;;    JOIN
;;    group g ON g.user_id = u.id)
;; SELECT u.name AS name,
;;        g.name AS
;; group
;; FROM _user u,
;;      _group g
;; WHERE g.user_id = u.id