travisshears/snippets_cms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

call backend to create snippt

Browse source
This commit is contained in:
Travis Shears 2025-06-08 13:11:35 +02:00
parent ad56963220
commit f2e435b777
3 changed files with 29 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cli_cms/create.clj
View file

@ -2,8 +2,15 @@
(:require
[cli-cms.cli-utils :as utils]
[clojure.string :as str]
[babashka.http-client :as http]
[cheshire.core :as json]
[babashka.process :refer [shell]]))
(defn create-snippet [{:keys [title slug markdown tags]}]
(http/post "http://localhost:8080/api/snippet"
{:headers {:content-type "application/json"}
:body (json/encode {:title title :slug slug :markdown markdown :tags tags})}))
(defn run []
(let [title (utils/prompt-for "title")
slug (utils/prompt-for "slug")
@ -13,4 +20,5 @@
;; (println "Please enter a title:")
(println (format "TODO: create post with title: %s and slug %s" title slug))
(println tags)
(println markdown)))
(println markdown)
(create-snippet {:title title :slug slug :markdown markdown :tags tags})))