refacotr(helper): remove frontend.helper

src/main/frontend/handler/common.cljs

@@ -8,7 +8,11 @@
             [frontend.git :as git]
             [frontend.db :as db]
             [lambdaisland.glogi :as log]
-            [cljs.reader :as reader]))
+            [cljs.reader :as reader]
+            [frontend.spec :as spec]
+            [cljs-time.core :as t]
+            [cljs-time.format :as tf]
+            [frontend.config :as config]))
 
 (defn get-ref
   [repo-url]
@@ -80,4 +84,61 @@
                      (js/console.dir e)
                      {}))]
       (state/set-config! repo-url config)
-      config)))
+      config)))
+
+(defn request-app-tokens!
+  [ok-handler error-handler]
+  (let [repos (state/get-repos)
+        installation-ids (->> (map :installation_id repos)
+                           (remove nil?)
+                           (distinct))]
+    (when (or (seq repos)
+            (seq installation-ids))
+      (util/post (str config/api "refresh_github_token")
+        {:installation-ids installation-ids
+         :repos repos}
+        (fn [result]
+          (state/set-github-installation-tokens! result)
+          (when ok-handler (ok-handler)))
+        (fn [error]
+          (log/error :token/http-request-failed error)
+          (js/console.dir error)
+          (when error-handler (error-handler)))))))
+
+(defn- get-github-token*
+  [repo]
+  (spec/validate :repos/url repo)
+  (when repo
+    (let [{:keys [token expires_at] :as token-state}
+          (state/get-github-token repo)]
+      (spec/validate :repos/repo token-state)
+      (if (and (map? token-state)
+            (string? expires_at))
+        (let [expires-at (tf/parse (tf/formatters :date-time-no-ms) expires_at)
+              now (t/now)
+              expired? (t/after? now expires-at)]
+          {:exist? true
+           :expired? expired?
+           :token token})
+        {:exist? false}))))
+
+(defn get-github-token
+  ([]
+   (get-github-token  (state/get-current-repo)))
+  ([repo]
+   (when-not (config/local-db? repo)
+     (js/Promise.
+       (fn [resolve reject]
+         (let [{:keys [expired? token exist?]} (get-github-token* repo)
+               valid-token? (and exist? (not expired?))]
+           (if valid-token?
+             (resolve token)
+             (request-app-tokens!
+               (fn []
+                 (let [{:keys [expired? token exist?] :as token-m} (get-github-token* repo)
+                       valid-token? (and exist? (not expired?))]
+                   (if valid-token?
+                     (resolve token)
+                     (do (log/error :token/failed-get-token token-m)
+                         (reject)))))
+               nil))))))))