(ns chef.pages.admin.api (:require [chef.utils :as cutils] [chef.database :as cdb] [next.jdbc :as jdbc] [honey.sql :as sql] [ring.util.response :as ruresp])) (defn create-category [req] (cutils/auth-only req (jdbc/execute! @cdb/db (sql/format {:insert-into [:categories] :values [(merge {:name "New category"} (when-let [parent (get-in req [:params "parent"])] {:parent parent}))]})) (-> (ruresp/created "Created.") (ruresp/header "HX-Refresh" "true"))))