Merge pull request #51 from arrterian/add-donate-notification

Add donate notification

Author: arrterian

package.json

@@ -2,7 +2,7 @@
 "name": "nix-env-selector",
 "displayName": "Nix Environment Selector",
 "description": "Allows switch environment for Visual Studio Code and extensions based on Nix config file.",
-"version": "1.0.5",
+"version": "1.0.6",
 "keywords": [
 "nix",
 "nix-env",

resources/donate-wfp.svg

@@ -2,10 +2,12 @@
  (:require ["fs" :refer [readdir]]
  [config :refer [config vscode-config]]
  [vscode.window :as w]
+ [vscode.env :refer [open-external-url]]
  [vscode.command :as cmd]
  [vscode.workspace :as workspace]
  [vscode.status-bar :as status-bar]
  [ext.lang :as l]
+ [ext.constants :as constants]
  [ext.nix-env :as env]
  [promesa.core :as p]
  [utils.helpers :refer [unrender-workspace]]))
@@ -23,7 +25,6 @@
  (not))) %1)
  files-res)))
 
-
 (defn show-propose-env-dialog []
  (let [select-label (-> l/lang :label :select-env)
  dismiss-label (-> l/lang :label :dismiss)
@@ -37,6 +38,21 @@
  :nix-env-selector/suggestion
  false))))))
 
+(defn show-donate-message [state]
+ (let [show-message-info-path (str :nix-env-selector/select-env)
+ show-message? (.get state show-message-info-path true)
+ support-label (-> l/lang :label :support)
+ dismiss-label (-> l/lang :label :dismiss)
+ support-message (-> l/lang :notification :support)]
+ (when show-message?
+ (p/chain (w/show-notification support-message
+ [support-label
+ dismiss-label])
+ (fn [answer]
+ (.update state show-message-info-path false)
+ (when
+ (= answer support-label)
+ (open-external-url constants/donate-url)))))))
 
 (defn show-reload-dialog []
  (let [reload-label (-> l/lang :label :reload)

src/main/ext/actions.cljs

@@ -0,0 +1,3 @@
+(ns ext.constants)
+
+(def donate-url "https://secure.wayforpay.com/button/b2fdead505bff")

src/main/ext/constants.cljs

@@ -3,14 +3,16 @@
 (def ^:private lang-eng
  {:notification {:env-restored "Original vscode environment will apply after reload"
  :env-applied "Environment successfully prepared and will be using after reload"
- :env-available "The nix environment is available in your workspace"}
+ :env-available "The nix environment is available in your workspace"
+ :support "Do you like the extension? You can support the author if you wish"}
  :label {:env-loading "$(loading~spin) Applying environment..."
  :env-selected "$(beaker) Environment: %ENV_NAME%"
  :env-need-reload "$(beaker) Need reload"
  :select-config-placeholder "Select environment config"
  :disabled-nix "Disable Nix environment"
  :reload "Reload"
  :select-env "Select"
- :dismiss "Dismiss"}})
+ :dismiss "Dismiss"
+ :support "Support"}})
 
 (def lang lang-eng)

src/main/ext/lang.cljs

@@ -2,7 +2,7 @@
  (:require [config :refer [config update-config!]]
  [promesa.core :as p]
  [vscode.status-bar :as status]
- [vscode.context :refer [subsciribe]]
+ [vscode.context :refer [subsciribe global-state]]
  [vscode.command :as cmd]
  [ext.actions :as act]
  [ext.nix-env :as env]
@@ -13,15 +13,19 @@
  (update-config!)
  (let [status-bar (status/create :left 100)]
  (if (or (not-empty (:nix-file @config)) (not-empty (:nix-packages @config)))
- (do
+ (try
  (-> (env/get-nix-env-sync {:nix-config (:nix-file @config)
  :packages (:nix-packages @config)
  :args (:nix-args @config)
  :nix-shell-path (:nix-shell-path @config)})
  (env/set-current-env))
  (->> status-bar
  (status/show {:text (render-env-status lang (:nix-file @config))
- :command :nix-env-selector/select-env})))
+ :command :nix-env-selector/select-env}))
+ (act/show-donate-message (global-state ctx))
+
+ (catch :default e
+ (js/console.error "Applying environment error" e)))
 
  ;; show notification that nix config available
  ;; if workspace contains .nix file(s)

src/main/main.cljs

@@ -4,3 +4,6 @@
 
 (defn subsciribe [ctx cmd]
  (.push (.-subscriptions ctx) cmd))
+
+(defn global-state [ctx]
+ (.-globalState ctx))

src/main/vscode/context.cljs

@@ -0,0 +1,8 @@
+(ns vscode.env
+ (:require ["vscode" :refer [env Uri]]))
+
+(set! *warn-on-infer* false)
+
+(defn open-external-url [url]
+ (.openExternal env
+ (.parse Uri url)))