diff --git a/john_titor/shadow-cljs.edn b/john_titor/shadow-cljs.edn index 5bedb78..07762c8 100644 --- a/john_titor/shadow-cljs.edn +++ b/john_titor/shadow-cljs.edn @@ -1,6 +1,6 @@ {:source-paths ["src"] - :dependencies [[cljs-http "0.1.45"]] - + :dependencies [[org.clojure/clojurescript "1.10.439"] + [cljs-http "0.1.45"]] :nrepl {:port 8282} :builds diff --git a/john_titor/src/john_titor/drive/core.cljs b/john_titor/src/john_titor/drive/core.cljs index bc5985e..ecacbda 100644 --- a/john_titor/src/john_titor/drive/core.cljs +++ b/john_titor/src/john_titor/drive/core.cljs @@ -19,7 +19,7 @@ (when token (.setCredentials oauth token)) oauth))) -p + (defn upload-file [oauth]) diff --git a/john_titor/src/john_titor/github/core.cljs b/john_titor/src/john_titor/github/core.cljs new file mode 100644 index 0000000..031049d --- /dev/null +++ b/john_titor/src/john_titor/github/core.cljs @@ -0,0 +1,54 @@ +(ns john-titor.github.core + (:require-macros [cljs.core.async.macros :refer [go]]) + (:require + ;; TODO: Remove xhr2 after finishing the lib + ["xhr2" :as xhr2] + [cljs-http.client :as http] + [cljs.core.async :refer [>>>>>> Stashed changes var goog = global.goog = {}; diff --git a/lib/extensions/auth/init.el b/lib/extensions/auth/init.el index c7f49fa..fde83d9 100644 --- a/lib/extensions/auth/init.el +++ b/lib/extensions/auth/init.el @@ -30,11 +30,12 @@ Return a list of credential pairs." ARGS should be ignored." (interactive "P\nsHost: ") (dolist (pair (auth/find-credential host)) - (message (concat "User: " (utils/bold (car pair)) - " Passowrd: " (utils/bold(car (cdr pair))))))) + (let* ((user (car pair)) + (pass (car (cdr pair))) + (msg (concat "User: " (utils/bold user) + " Passowrd: " (utils/bold pass)))) + (message msg)))) -(auth/credential-for nil "freenode") -(auth/find-credential "freenode") (defun extensions/irc-initialize () "Initialize the Auth extension." diff --git a/lib/extensions/github.el b/lib/extensions/github.el new file mode 100644 index 0000000..e69de29