call backend to create snippt

README.md

@@ -1,7 +1,26 @@
-## Snippets CLI CMS
+# Snippets CLI CMS
 
 A simple command-line interface for managing my code snippets.
 
 Written in Clojure via Babashka.
 
 Interactive elements are powered by [Gum](https://github.com/charmbracelet/gum).
+
+
+## Run dev
+
+To run commands:
+
+```shell
+$ bb -m cli-cms.main create
+```
+
+Or to play around and call individual functions using the REPL:
+
+```shell
+$ bb
+user=> (require '[cli-cms.create :as command])
+user=> (def mock-snippet {:title "mock snippet from repl" :slug "mock" :tags '("mock") :markdown "# This is a mock"})
+#'user/mock-snippet
+user=> (command/create-snippet mock-snippet)
+```

src/cli_cms/create.clj

@@ -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})))