Added extensions loading panel

Signed-off-by: Julien Eluard <[email protected]>

Author: jeluard

.env

@@ -14,3 +14,4 @@ DEBUG_WEBVIEW=1
 INSTABUG_SURVEYS=1
 GROUP_CHATS_ENABLED=0
 CACHED_WEBVIEWS_ENABLED=1
+EXTENSIONS=1

.env.e2e

@@ -9,4 +9,5 @@ POW_TIME=1
 DEFAULT_NETWORK=testnet_rpc
 INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
 DEBUG_WEBVIEW=1
-GROUP_CHATS_ENABLED=1
+GROUP_CHATS_ENABLED=1
+EXTENSIONS=0

.env.jenkins

@@ -13,3 +13,4 @@ DEBUG_WEBVIEW=1
 GROUP_CHATS_ENABLED=0
 MAINNET_WARNING_ENABLED=1
 CACHED_WEBVIEWS_ENABLED=1
+EXTENSIONS=0

.env.nightly

@@ -12,3 +12,4 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
 DEBUG_WEBVIEW=1
 GROUP_CHATS_ENABLED=0
 MAINNET_WARNING_ENABLED=1
+EXTENSIONS=1

.env.nightly.staging.fleet

@@ -13,3 +13,4 @@ DEBUG_WEBVIEW=1
 INSTABUG_SURVEYS=1
 GROUP_CHATS_ENABLED=0
 MAINNET_WARNING_ENABLED=1
+EXTENSIONS=0

.env.prod

@@ -13,4 +13,5 @@ TESTFAIRY_TOKEN=969f6c921cb435cea1d41d1ea3f5b247d6026d55
 INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
 DEBUG_WEBVIEW=0
 GROUP_CHATS_ENABLED=0
-MAINNET_WARNING_ENABLED=1
+MAINNET_WARNING_ENABLED=1
+EXTENSIONS=0

deps.edn

@@ -10,7 +10,8 @@
          com.andrewmcveigh/cljs-time {:mvn/version "0.5.2"}
          com.taoensso/timbre         {:mvn/version "4.10.0"}
          hickory                     {:mvn/version "0.7.1"}
-         com.cognitect/transit-cljs  {:mvn/version "0.8.248"}}
+         com.cognitect/transit-cljs  {:mvn/version "0.8.248"}
+         status-im/pluto             {:mvn/version "iteration-2-SNAPSHOT"}}
 
  :aliases
  {:dev {:extra-deps

project.clj

@@ -10,7 +10,8 @@
                  [com.andrewmcveigh/cljs-time "0.5.2"]
                  [com.taoensso/timbre "4.10.0"]
                  [hickory "0.7.1"]
-                 [com.cognitect/transit-cljs "0.8.248"]]
+                 [com.cognitect/transit-cljs "0.8.248"]
+                 [status-im/pluto "iteration-2-SNAPSHOT"]]
   :plugins [[lein-cljsbuild "1.1.7"]
             [lein-re-frisk "0.5.8"]
             [lein-cljfmt "0.5.7"]

src/status_im/chat/commands/core.cljs

@@ -1,13 +1,16 @@
 (ns status-im.chat.commands.core
-  (:require [clojure.set :as set]
+  (:require [re-frame.core :as re-frame]
+            [clojure.set :as set]
             [clojure.string :as string]
+            [pluto.host :as host]
             [status-im.constants :as constants]
             [status-im.chat.constants :as chat-constants]
             [status-im.chat.commands.protocol :as protocol]
             [status-im.chat.commands.impl.transactions :as transactions]
             [status-im.chat.models :as chat-model]
             [status-im.chat.models.input :as input-model]
             [status-im.chat.models.message :as message-model]
+            [status-im.utils.handlers :as handlers]
             [status-im.utils.handlers-macro :as handlers-macro]))
 
 (def register
@@ -80,7 +83,7 @@
 (defn index-commands
   "Takes collecton of things implementing the command protocol, and
   correctly indexes them  by their composite ids and access scopes."
-  [commands {:keys [db]}]
+  [commands]
   (let [id->command              (reduce (fn [acc command]
                                            (assoc acc (command-id command)
                                                   {:type   command
@@ -100,9 +103,66 @@
                                                         access-scopes)))
                                             {}
                                             id->command)]
-    {:db (assoc db
-                :id->command              id->command
-                :access-scope->command-id access-scope->command-id)}))
+    {:id->command              id->command
+     :access-scope->command-id access-scope->command-id}))
+
+(defn load-commands
+  "Takes collection of things implementing the command protocol and db,
+  correctly indexes them and adds them to db in a way that preserves existing commands"
+  [commands {:keys [db]}]
+  (let [{:keys [id->command access-scope->command-id]} (index-commands commands)]
+    {:db (-> db
+             (update :id->command merge id->command)
+             (update :access-scope->command-id #(merge-with (fnil into #{}) % access-scope->command-id)))}))
+
+(defn remove-command
+  "Remove command form db, correctly updating all indexes"
+  [command {:keys [db]}]
+  (let [id (command-id command)]
+    {:db (-> db
+             (update :id->command dissoc id)
+             (update :access-scope->command-id (fn [access-scope->command-id]
+                                                 (reduce (fn [acc [scope command-ids-set]]
+                                                           (if (command-ids-set id)
+                                                             (if (= 1 (count command-ids-set))
+                                                               acc
+                                                               (assoc acc scope (disj command-ids-set id)))
+                                                             (assoc acc scope command-ids-set)))
+                                                         {}
+                                                         access-scope->command-id))))}))
+
+(def command-hook
+  "Hook for extensions"
+  (reify host/AppHook
+    (id [_] :commands)
+    (properties [_] {:scope         #{:personal-chats :public-chats}
+                     :description   :string
+                     :short-preview :view
+                     :preview       :view
+                     :parameters    [{:id           :keyword
+                                      :type         {:one-of #{:text :phone :password :number}}
+                                      :placeholder  :string
+                                      :suggestions? :component}]})
+    (hook-in [_ id {:keys [description scope parameters preview short-preview]} cofx]
+      (let [new-command (reify protocol/Command
+                          (id [_] (name id))
+                          (scope [_] scope)
+                          (description [_] description)
+                          (parameters [_] parameters)
+                          (validate [_ _ _])
+                          (on-send [_ _ _])
+                          (on-receive [_ _ _])
+                          (short-preview [_ props] (short-preview props))
+                          (preview [_ props] (preview props)))]
+        (load-commands [new-command] cofx)))
+    (unhook [_ id {:keys [scope]} {:keys [db] :as cofx}]
+      (remove-command (get-in db [:id->command [(name id) scope] :type]) cofx))))
+
+(handlers/register-handler-fx
+ :load-commands
+ [re-frame/trim-v]
+ (fn [cofx [commands]]
+   (load-commands commands cofx)))
 
 (defn chat-commands
   "Takes `id->command`, `access-scope->command-id` and `chat` parameters and returns

src/status_im/chat/commands/impl/transactions.cljs

@@ -12,6 +12,7 @@
             [status-im.ui.components.chat-preview :as chat-preview]
             [status-im.ui.components.list.views :as list]
             [status-im.ui.components.animation :as animation]
+            [status-im.ui.components.svgimage :as svgimage]
             [status-im.i18n :as i18n]
             [status-im.constants :as constants]
             [status-im.utils.ethereum.core :as ethereum]
@@ -40,21 +41,40 @@
       #_[react/text {:style transactions-styles/asset-balance}
          (str (money/internal->formatted amount symbol decimals))]]]))
 
+(defn- render-nft-asset [selected-event-creator]
+  (fn [{:keys [name symbol amount] :as asset}]
+    [react/touchable-highlight
+     {:on-press #(re-frame/dispatch (selected-event-creator (clojure.core/name symbol)))}
+     [react/view transactions-styles/asset-container
+      [react/view transactions-styles/asset-main
+       [react/image {:source (-> asset :icon :source)
+                     :style  transactions-styles/asset-icon}]
+       [react/text {:style transactions-styles/asset-symbol} name]]
+      [react/text {:style transactions-styles/nft-asset-amount} (money/to-fixed amount)]]]))
+
 (def assets-separator [react/view transactions-styles/asset-separator])
 
-(defview choose-asset [selected-event-creator]
+(defview choose-asset [nft? selected-event-creator]
   (letsubs [assets [:wallet/visible-assets-with-amount]]
     [react/view
-     [list/flat-list {:data                      (filter #(not (:nft? %)) assets)
+     [list/flat-list {:data                      (filter #(if nft?
+                                                            (:nft? %)
+                                                            (not (:nft? %)))
+                                                         assets)
                       :key-fn                    (comp name :symbol)
-                      :render-fn                 (render-asset selected-event-creator)
+                      :render-fn                 (if nft?
+                                                   (render-nft-asset selected-event-creator)
+                                                   (render-asset selected-event-creator))
                       :enableEmptySections       true
                       :separator                 assets-separator
                       :keyboardShouldPersistTaps :always
                       :bounces                   false}]]))
 
 (defn choose-asset-suggestion [selected-event-creator]
-  [choose-asset selected-event-creator])
+  [choose-asset false selected-event-creator])
+
+(defn choose-nft-asset-suggestion [selected-event-creator]
+  [choose-asset true selected-event-creator])
 
 (defn personal-send-request-short-preview
   [label-key {:keys [content]}]
@@ -77,6 +97,32 @@
     :type        :number
     :placeholder "Amount"}])
 
+(defview choose-nft-token [selected-event-creator]
+  (letsubs [{:keys [input-params]} [:selected-chat-command]
+            collectibles           [:collectibles]]
+    (let [collectible-tokens (get collectibles (keyword (:symbol input-params)))]
+      [react/view {:flex-direction   :row
+                   :align-items      :center
+                   :padding-vertical 11}
+       (map
+        (fn [[id {:keys [name image_url]}]]
+          [react/touchable-highlight
+           {:key      id
+            :on-press #(re-frame/dispatch (selected-event-creator (str id)))}
+           [react/view {:flex-direction  :column
+                        :align-items     :center
+                        :margin-left     10
+                        :border-radius   2
+                        :border-width    1
+                        :border-color    colors/gray}
+            [svgimage/svgimage {:style    transactions-styles/nft-token-icon
+                                :source   {:uri image_url}}]
+            [react/text {} name]]])
+        collectible-tokens)])))
+
+(defn choose-nft-token-suggestion [selected-event-creator]
+  [choose-nft-token selected-event-creator])
+
 ;;TODO(goranjovic): currently we only allow tokens which are enabled in Manage assets here
 ;; because balances are only fetched for them. Revisit this decision with regard to battery/network consequences
 ;; if we were to update all balances.