在巴布拉斯加州复制curl命令

Question

我想在babashka中复制来自github的以下curl命令：

curl \
  -X POST \
  -H "Accept: application/json" \
  -H "Authorization: Bearer <YOUR-TOKEN>" \
  https://api.github.com/user/repos \
  -d '{"name":"test"}'

目前，我已尝试：

(ns bb-test
 (require [environ.core :refer [env]]
          [babashka.curl :as curl])

(def url "https://api.github.com/user/repos")
(def token (env :token))
(def headers {"Accept" "application/json" "Authorization" (str "Bearer " token)})
(def body "{'name:' 'test'}")

(curl/post url {:headers headers :body body})

我要回400 http状态代码。任何帮助都很感激！

Answer 1

在bash示例中，您将发送一个以{"name":"test"}作为文本数据的主体，该文本数据通过线路发送到服务器。

使用babashka示例，您将发送一个以{'name:' 'test'}作为文本数据的正文，该文本数据通过线路发送到服务器。

这些东西中只有一个是有效的JSON。

描述包含数据{"name":"test"}的文字字符串的Clojure语法是"{\"name\":\"test\"}"，所以最小的更改是修改运行def body的行。

(def body "{\"name\":\"test\"}")

或者，您可以使用JSON库(如Cheshire )将本机Clojure结构编码为JSON字符串：

(ns bb-test
 (require [environ.core :refer [env]]
          [cheshire.core :as json]
          [babashka.curl :as curl])

(def url "https://api.github.com/user/repos")
(def token (env :token))
(def headers {"Accept" "application/json"
              "Authorization" (str "Bearer " token)})
(def body {"name" "test"})

(curl/post url {:headers headers
                :body (json/generate-string body)})