logseq/web/src/frontend/git.cljs

(ns frontend.git
  (:refer-clojure :exclude [clone])
  (:require [promesa.core :as p]
            [frontend.util :as util]
            [clojure.string :as string]))

;; only support Github now
(defn auth
  [token]
  {:username token
   :password "x-oauth-basic"})

(defn set-username-email
  [dir username email]
  (prn {:dir dir
        :username username
        :email email})
  (util/p-handle (js/git.config (clj->js
                   {:dir dir
                    :path "user.name"
                    :value username}))
                 (fn [result]
                   (js/git.config (clj->js
                                   {:dir dir
                                    :path "user.email"
                                    :value email})))
                 (fn [error]
                   (prn "error:" error))))

(defn with-auth
  [token m]
  (clj->js
   (merge (auth token)
          m)))

(defn get-repo-dir
  [repo-url]
  (str "/" (last (string/split repo-url #"/"))))

(defn clone
  [repo-url token]
  (js/git.clone (with-auth token
                  {:dir (get-repo-dir repo-url)
                   :url repo-url
                   :corsProxy "https://cors.isomorphic-git.org"
                   :singleBranch true
                   :depth 1})))

(defn list-files
  [repo-url]
  (js/git.listFiles (clj->js
                     {:dir (get-repo-dir repo-url)
                      :ref "HEAD"})))

(defn fetch
  [repo-url token]
  (js/git.fetch (with-auth token
                  {:dir (get-repo-dir repo-url)
                   :ref "master"
                   :singleBranch true})))

(defn log
  [repo-url token depth]
  (js/git.log (with-auth token
                {:dir (get-repo-dir repo-url)
                 :ref "master"
                 :depth depth
                 :singleBranch true})))

(defn pull
  [repo-url token]
  (js/git.pull (with-auth token
                 {:dir (get-repo-dir repo-url)
                  :ref "master"
                  :singleBranch true})))
(defn add
  [repo-url file]
  (js/git.add (clj->js
               {:dir (get-repo-dir repo-url)
                :filepath file})))

;; TODO: cache email and name
(defn commit
  [repo-url message]
  (js/git.commit (clj->js
                  {:dir (get-repo-dir repo-url)
                   :author {:name "Orgnote"
                            :email "[email protected]"}
                   :message message})))

(defn push
  [repo-url token]
  (js/git.push (with-auth token
                 {:dir (get-repo-dir repo-url)
                  :remote "origin"
                  :ref "master"
                  })))

(defn add-commit-push
  [repo-url file message token push-ok-handler push-error-handler]
  (util/p-handle
   (let [files (if (coll? file) file [file])]
     (doseq [file files]
       (add repo-url file)))
   (fn [_]
     (util/p-handle
      (commit repo-url message)
      (fn [_]
        (push repo-url token)
        (push-ok-handler))
      push-error-handler))))

(defn add-commit
  [repo-url file message commit-ok-handler commit-error-handler]
  (let [get-seconds (fn []
                      (/ (.getTime (js/Date.)) 1000))]
    (let [t1 (get-seconds)]
      (util/p-handle
       (add repo-url file)
       (fn [_]
         (let [t2 (get-seconds)]
           (prn "Add time: " (- t2 t1))
           (util/p-handle
            (commit repo-url message)
            (fn []
              (let [t3 (get-seconds)]
                (prn "Commit time: " (- t3 t2)))
              (prn "Commited")
              (commit-ok-handler))
            (fn [error]
              (commit-error-handler error))))
         )))
    ))