fixed Download latest button for Mac
Signed-off-by: Andrey Shovkoplyas <motor4ik@gmail.com>
This commit is contained in:
parent
f283efaebb
commit
89f66eab0e
|
@ -22,7 +22,7 @@
|
|||
(= tab-name :profile))
|
||||
{:http-get
|
||||
{:url
|
||||
"https://raw.githubusercontent.com/status-im/status-im.github.io/develop/env.sh"
|
||||
"https://status-im.ams3.digitaloceanspaces.com/latest.json"
|
||||
:success-event-creator
|
||||
(fn [o]
|
||||
[:fetch-desktop-version-success o])}}))
|
||||
|
|
|
@ -35,7 +35,8 @@
|
|||
[status-im.utils.fx :as fx]
|
||||
[status-im.utils.platform :as platform]
|
||||
[taoensso.timbre :as log]
|
||||
[clojure.string :as str]))
|
||||
[clojure.string :as str]
|
||||
[status-im.utils.types :as types]))
|
||||
|
||||
(defn- http-get [{:keys [url response-validator success-event-creator failure-event-creator timeout-ms]}]
|
||||
(let [on-success #(re-frame/dispatch (success-event-creator %))
|
||||
|
@ -163,11 +164,7 @@
|
|||
:fetch-desktop-version-success
|
||||
(fn [{:keys [db]} [_ result]]
|
||||
(when (and result (not (str/blank? result)) (or platform/isMacOs? platform/isNix?))
|
||||
(let [lines (str/split-lines result)
|
||||
var (if platform/isMacOs? "DMG_URL=\"" "NIX_URL=\"")
|
||||
param (first (filter #(not= -1 (.indexOf % var)) lines))]
|
||||
(when param
|
||||
(let [url (subs param (+ 9 (.indexOf param var)) (- (count param) 1))
|
||||
dt (- (count url) (if platform/isMacOs? 12 17))
|
||||
commit (subs url (- dt 6) dt)]
|
||||
{:db (assoc-in db [:desktop/desktop :nightly-version] {:url url :commit commit})}))))))
|
||||
(when-let [url (get (types/json->clj result) (if platform/isMacOs? :MAC :APP))]
|
||||
(let [dt (- (count url) (if platform/isMacOs? 12 17))
|
||||
commit (subs url (- dt 6) dt)]
|
||||
{:db (assoc-in db [:desktop/desktop :nightly-version] {:url url :commit commit})})))))
|
||||
|
|
|
@ -23,6 +23,7 @@
|
|||
|
||||
(def isMacOs? (when platform (.-isMacOs platform)))
|
||||
(def isNix? (when platform (or (.-isLinux platform) (.-isUnix platform))))
|
||||
(def isWin? (when platform (.-isWin platform)))
|
||||
|
||||
(def platform-specific
|
||||
(cond
|
||||
|
|
Loading…
Reference in New Issue