From 1297084d53ba2990b2cd8fd0a7f955aeb1bb342e Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sat, 7 Mar 2020 14:02:37 +0100
Subject: [PATCH] Add babashka.curl (undocumented)

---
 .gitmodules                |  3 +++
 babashka.curl              |  1 +
 project.clj                |  2 +-
 src/babashka/impl/curl.clj | 12 ++++++++++++
 src/babashka/main.clj      |  4 +++-
 5 files changed, 20 insertions(+), 2 deletions(-)
 create mode 160000 babashka.curl
 create mode 100644 src/babashka/impl/curl.clj

diff --git a/.gitmodules b/.gitmodules
index 7c3bc0cf..6bf5f5fe 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -2,3 +2,6 @@
 	path = sci
 	url = https://github.com/borkdude/sci
 	branch = master
+[submodule "babashka.curl"]
+	path = babashka.curl
+	url = https://github.com/borkdude/babashka.curl
diff --git a/babashka.curl b/babashka.curl
new file mode 160000
index 00000000..bb6226c8
--- /dev/null
+++ b/babashka.curl
@@ -0,0 +1 @@
+Subproject commit bb6226c8fe11a390dd2ed771e5ca78fb87b706e3
diff --git a/project.clj b/project.clj
index 528f7b9f..d28931e5 100644
--- a/project.clj
+++ b/project.clj
@@ -7,7 +7,7 @@
         :url "https://github.com/borkdude/babashka"}
   :license {:name "Eclipse Public License 1.0"
             :url "http://opensource.org/licenses/eclipse-1.0.php"}
-  :source-paths ["src" "sci/src"]
+  :source-paths ["src" "sci/src" "babashka.curl/src"]
   :resource-paths ["resources" "sci/resources"]
   :dependencies [[org.clojure/clojure "1.10.2-alpha1"]
                  [org.clojure/tools.reader "1.3.2"]
diff --git a/src/babashka/impl/curl.clj b/src/babashka/impl/curl.clj
new file mode 100644
index 00000000..fa036ff7
--- /dev/null
+++ b/src/babashka/impl/curl.clj
@@ -0,0 +1,12 @@
+(ns babashka.impl.curl
+  {:no-doc true}
+  (:require [babashka.curl :as curl]))
+
+(def curl-namespace
+  {'request curl/request
+   'get curl/get
+   'patch curl/patch
+   'post curl/post
+   'put curl/put
+   'head curl/head
+   'curl-command curl/curl-command})
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 04f0a844..33fdbb8b 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -13,6 +13,7 @@
    [babashka.impl.clojure.stacktrace :refer [stacktrace-namespace]]
    [babashka.impl.common :as common]
    [babashka.impl.csv :as csv]
+   [babashka.impl.curl :refer [curl-namespace]]
    [babashka.impl.pipe-signal-handler :refer [handle-pipe! pipe-signal-received?]]
    [babashka.impl.repl :as repl]
    [babashka.impl.socket-repl :as socket-repl]
@@ -257,7 +258,8 @@ Everything after that is bound to *command-line-args*."))
    'clojure.repl {'demunge demunge}
    'clojure.test t/clojure-test-namespace
    'babashka.classpath {'add-classpath add-classpath*}
-   'clojure.pprint pprint-namespace})
+   'clojure.pprint pprint-namespace
+   'babashka.curl curl-namespace})
 
 (def bindings
   {'java.lang.System/exit exit ;; override exit, so we have more control