status-im
/
status-react
mirror of https://github.com/status-im/status-react.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Discovery fixes (#432, #434) 

No more newline characters in statuses (#463)
Copyable address and key in profile (#462), several fixes
This commit is contained in:
Alexander Pantyuhov 2016-11-10 15:34:25 +03:00 committed by Roman Volosovskyi
parent b49c3e92d1
commit 2f7d75c90f
40 changed files with 630 additions and 442 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
package.json
View File

@ -14,6 +14,7 @@
"awesome-phonenumber": "^1.0.13", "awesome-phonenumber": "^1.0.13",
"babel-plugin-transform-es2015-block-scoping": "6.15.0", "babel-plugin-transform-es2015-block-scoping": "6.15.0",
"browserify-zlib": "^0.1.4", "browserify-zlib": "^0.1.4",
"buffer": "^3.6.0",
"chance": "1.0.4", "chance": "1.0.4",
"console-browserify": "^1.1.0", "console-browserify": "^1.1.0",
"constants-browserify": "0.0.1", "constants-browserify": "0.0.1",

2
src/status_im/accounts/handlers.cljs
View File

@ -65,7 +65,7 @@
[{:keys [current-account-id current-public-key web3 accounts]} _] [{:keys [current-account-id current-public-key web3 accounts]} _]
(let [{:keys [name photo-path status]} (get accounts current-account-id) (let [{:keys [name photo-path status]} (get accounts current-account-id)
{:keys [updates-public-key updates-private-key]} (accounts current-account-id)] {:keys [updates-public-key updates-private-key]} (accounts current-account-id)]
(protocol/broadcats-profile! (protocol/broadcast-profile!
{:web3 web3 {:web3 web3
:message {:from current-public-key :message {:from current-public-key
:message-id (random/id) :message-id (random/id)

2
src/status_im/android/core.cljs
View File

@ -15,7 +15,6 @@
[status-im.contacts.views.contact-list :refer [contact-list]] [status-im.contacts.views.contact-list :refer [contact-list]]
[status-im.contacts.views.new-contact :refer [new-contact]] [status-im.contacts.views.new-contact :refer [new-contact]]
[status-im.qr-scanner.screen :refer [qr-scanner]] [status-im.qr-scanner.screen :refer [qr-scanner]]
[status-im.discovery.tag :refer [discovery-tag]]
[status-im.discovery.search-results :refer [discovery-search-results]] [status-im.discovery.search-results :refer [discovery-search-results]]
[status-im.chat.screen :refer [chat]] [status-im.chat.screen :refer [chat]]
[status-im.accounts.login.screen :refer [login]] [status-im.accounts.login.screen :refer [login]]
@ -89,7 +88,6 @@
(let [current-view (validate-current-view @view-id @signed-up?)] (let [current-view (validate-current-view @view-id @signed-up?)]
(let [component (case current-view (let [component (case current-view
:discovery main-tabs :discovery main-tabs
:discovery-tag discovery-tag
:discovery-search-results discovery-search-results :discovery-search-results discovery-search-results
:add-participants new-participants :add-participants new-participants
:remove-participants remove-participants :remove-participants remove-participants

21
src/status_im/android/platform.cljs
View File

@ -18,6 +18,22 @@
:additional-height 0} :additional-height 0}
:chat {:new-message {:border-top-color styles/color-transparent :chat {:new-message {:border-top-color styles/color-transparent
:border-top-width 0.5}} :border-top-width 0.5}}
:discovery {:subtitle {:color styles/color-gray2
:font-size 14}
:popular {:border-radius 1
:margin-top 2
:margin-bottom 4
:margin-right 2
:elevation 3}
:tag {:flex-direction "column"
:background-color "#7099e619"
:border-radius 5
:padding 4}
:item {:status-text {:color styles/color-black
:line-height 22
:font-size 14}}}
:contacts {:subtitle {:color styles/color-gray2
:font-size 14}}
:bottom-gradient {:height 3} :bottom-gradient {:height 3}
:input-label {:left 4} :input-label {:left 4}
:input-error-text {:margin-left 4} :input-error-text {:margin-left 4}
@ -58,4 +74,7 @@
:chats {:action-button? true :chats {:action-button? true
:new-chat-in-toolbar? false} :new-chat-in-toolbar? false}
:contacts {:action-button? true :contacts {:action-button? true
:new-contact-in-toolbar? false}}) :new-contact-in-toolbar? false
:uppercase-subtitles? false
:group-block-shadows? true}
:discovery {:uppercase-subtitles? false}})

6
src/status_im/chat/handlers.cljs
View File

@ -393,10 +393,12 @@
(register-handler :start-chat (register-handler :start-chat
(u/side-effect! (u/side-effect!
(fn [{:keys [chats]} [_ contact-id options navigation-type]] (fn [{:keys [chats current-public-key]}
[_ contact-id options navigation-type]]
(when-not (= current-public-key contact-id)
(if (chats contact-id) (if (chats contact-id)
(dispatch [(or navigation-type :navigate-to) :chat contact-id]) (dispatch [(or navigation-type :navigate-to) :chat contact-id])
(dispatch [::start-chat! contact-id options navigation-type]))))) (dispatch [::start-chat! contact-id options navigation-type]))))))
(register-handler :add-chat (register-handler :add-chat
(u/side-effect! (u/side-effect!

12
src/status_im/components/drawer/view.cljs
View File

@ -39,6 +39,12 @@
:font :default} :font :default}
name]]) name]])
(defn clean-text [s]
(-> s
(str/replace #"\n" " ")
(str/replace #"\r" "")
(str/trim)))
(defn drawer-menu [] (defn drawer-menu []
(let (let
[account (subscribe [:get-current-account]) [account (subscribe [:get-current-account])
@ -65,7 +71,7 @@
:value name :value name
:on-change-text #(dispatch [:set-in [:profile-edit :name] %]) :on-change-text #(dispatch [:set-in [:profile-edit :name] %])
:on-end-editing #(when (and new-name (not (str/blank? new-name))) :on-end-editing #(when (and new-name (not (str/blank? new-name)))
(dispatch [:account-update {:name new-name}]))}]] (dispatch [:account-update {:name (clean-text new-name)}]))}]]
[view st/status-container [view st/status-container
[text-input {:style st/status-input [text-input {:style st/status-input
:editable true :editable true
@ -77,8 +83,8 @@
:on-change-text #(dispatch [:set-in [:profile-edit :status] %]) :on-change-text #(dispatch [:set-in [:profile-edit :status] %])
:on-blur (fn [] :on-blur (fn []
(when (and new-status (not (str/blank? new-status))) (when (and new-status (not (str/blank? new-status)))
(dispatch [:check-status-change new-status]) (dispatch [:check-status-change (clean-text new-status)])
(dispatch [:account-update {:status new-status}]))) (dispatch [:account-update {:status (clean-text new-status)}])))
:default-value status}]] :default-value status}]]
[view st/menu-items-container [view st/menu-items-container
[menu-item {:name (label :t/profile) [menu-item {:name (label :t/profile)

10
src/status_im/components/react.cljs
View File

@ -54,16 +54,18 @@
(defn text (defn text
([t] ([t]
(r/as-element [text-class t])) (r/as-element [text-class t]))
([{:keys [style font] :as opts ([{:keys [style font uppercase?] :as opts
:or {font :default}} t & other] :or {font :default}} t & ts]
(r/as-element (r/as-element
(let [font (get-in platform-specific [:fonts font])] (let [font (get-in platform-specific [:fonts font])
ts (cond->> (conj ts t)
uppercase? (map clojure.string/upper-case))]
(vec (concat (vec (concat
[text-class [text-class
(-> opts (-> opts
(dissoc :font) (dissoc :font)
(assoc :style (merge style font)))] (assoc :style (merge style font)))]
(conj other t))))))) ts))))))
(defn text-input [props text] (defn text-input [props text]
[text-input-class (merge [text-input-class (merge

3
src/status_im/components/selectable_field/view.cljs
View File

@ -5,6 +5,7 @@
[reagent.core :as r] [reagent.core :as r]
[status-im.components.selectable-field.styles :as st] [status-im.components.selectable-field.styles :as st]
[status-im.i18n :refer [label]] [status-im.i18n :refer [label]]
[status-im.utils.platform :as p]
[taoensso.timbre :as log])) [taoensso.timbre :as log]))
(defn- on-press (defn- on-press
@ -41,7 +42,7 @@
[text-input {:style (st/sized-text full-height) [text-input {:style (st/sized-text full-height)
:multiline true :multiline true
:selectTextOnFocus true :selectTextOnFocus true
:editable editable? :editable (if p/android? true editable?)
:auto-focus true :auto-focus true
:on-selection-change #(on-selection-change % component) :on-selection-change #(on-selection-change % component)
:on-focus #(log/debug "Focused" %) :on-focus #(log/debug "Focused" %)

1
src/status_im/components/styles.cljs
View File

@ -8,6 +8,7 @@
(def color-gray "#838c93de") (def color-gray "#838c93de")
(def color-gray2 "#8f838c93") (def color-gray2 "#8f838c93")
(def color-gray3 "#00000040") (def color-gray3 "#00000040")
(def color-steel "#838b91")
(def color-white "white") (def color-white "white")
(def color-light-blue-transparent "#bbc4cb32") (def color-light-blue-transparent "#bbc4cb32")
(def color-light-gray "#EEF2F5") (def color-light-gray "#EEF2F5")

11
src/status_im/components/toolbar/styles.cljs
View File

@ -22,7 +22,7 @@
:height toolbar-height}) :height toolbar-height})
(defn toolbar-nav-actions-container [actions] (defn toolbar-nav-actions-container [actions]
{:width (if (and actions (> (count actions) 0)) {:width (when (and actions (> (count actions) 0))
(-> (+ toolbar-icon-width toolbar-icon-spacing) (-> (+ toolbar-icon-width toolbar-icon-spacing)
(* (count actions)) (* (count actions))
(+ toolbar-icon-spacing))) (+ toolbar-icon-spacing)))
@ -45,9 +45,12 @@
:color text1-color :color text1-color
:font-size 16}) :font-size 16})
(def toolbar-actions-container (defn toolbar-actions-container [actions-count custom]
{:flex-direction "row" (merge {:flex-direction "row"
:margin-left 8}) :margin-left toolbar-icon-spacing}
(when (and (= actions-count 0)
(not custom))
{:width (+ toolbar-icon-width toolbar-icon-spacing)})))
(def toolbar-action (def toolbar-action
{:width toolbar-icon-width {:width toolbar-icon-width

2
src/status_im/components/toolbar/view.cljs
View File

@ -38,7 +38,7 @@
[text {:style st/toolbar-title-text [text {:style st/toolbar-title-text
:font :toolbar-title} :font :toolbar-title}
title]]) title]])
[view st/toolbar-actions-container [view (st/toolbar-actions-container (count actions) (or custom-content custom-action))
(if actions (if actions
(for [{action-image :image (for [{action-image :image
action-handler :handler} actions] action-handler :handler} actions]

9
src/status_im/contacts/handlers.cljs
View File

@ -205,7 +205,8 @@
(dispatch [:update-chat! {:chat-id chat-id (dispatch [:update-chat! {:chat-id chat-id
:contact-info nil :contact-info nil
:pending-contact? false}]) :pending-contact? false}])
(dispatch [:watch-contact contact]))))) (dispatch [:watch-contact contact])
(dispatch [:discoveries-send-portions chat-id])))))
(defn set-contact-identity-from-qr (defn set-contact-identity-from-qr
[db [_ _ contact-identity]] [db [_ _ contact-identity]]
@ -215,7 +216,8 @@
(register-handler :contact-update-received (register-handler :contact-update-received
(u/side-effect! (u/side-effect!
(fn [{:keys [chats] :as db} [_ {:keys [from payload]}]] (fn [{:keys [chats current-public-key] :as db} [_ {:keys [from payload]}]]
(when (not= current-public-key from)
(let [{:keys [content timestamp]} payload (let [{:keys [content timestamp]} payload
{:keys [status name profile-image]} (:profile content) {:keys [status name profile-image]} (:profile content)
prev-last-updated (get-in db [:contacts from :last-updated])] prev-last-updated (get-in db [:contacts from :last-updated])]
@ -225,11 +227,10 @@
:photo-path profile-image :photo-path profile-image
:status status :status status
:last-updated timestamp}] :last-updated timestamp}]
(dispatch [:check-status! contact payload])
(dispatch [:update-contact! contact]) (dispatch [:update-contact! contact])
(when (chats from) (when (chats from)
(dispatch [:update-chat! {:chat-id from (dispatch [:update-chat! {:chat-id from
:name name}])))))))) :name name}])))))))))
(register-handler :contact-online-received (register-handler :contact-online-received
(u/side-effect! (u/side-effect!

66
src/status_im/contacts/screen.cljs
View File

@ -27,7 +27,9 @@
[status-im.i18n :refer [label]] [status-im.i18n :refer [label]]
[status-im.utils.platform :refer [platform-specific]])) [status-im.utils.platform :refer [platform-specific]]))
(defn contact-list-toolbar [] (def contacts-limit 50)
(defn toolbar-view []
(let [new-contact? (get-in platform-specific [:contacts :new-contact-in-toolbar?]) (let [new-contact? (get-in platform-specific [:contacts :new-contact-in-toolbar?])
actions (cond->> [{:image {:source {:uri :icon_search} actions (cond->> [{:image {:source {:uri :icon_search}
:style icon-search} :style icon-search}
@ -44,24 +46,41 @@
:style {:elevation 0} :style {:elevation 0}
:actions actions}])) :actions actions}]))
(def contacts-limit 10) (defn subtitle-view [subtitle contacts-count]
[view st/contact-group-header-inner
[text {:style (merge st/contact-group-subtitle
(get-in platform-specific [:component-styles :contacts :subtitle]))
:uppercase? (get-in platform-specific [:contacts :uppercase-subtitles?])
:font :medium}
subtitle]
[text {:style (merge st/contact-group-count
(get-in platform-specific [:component-styles :contacts :subtitle]))
:uppercase? (get-in platform-specific [:contacts :uppercase-subtitles?])
:font :medium}
(str contacts-count)]])
(defn contact-group [contacts contacts-count title group top? click-handler] (defn group-top-view []
[view st/contact-group [linear-gradient {:style st/contact-group-header-gradient-bottom
[view st/contact-group-header :colors st/contact-group-header-gradient-bottom-colors}])
(when-not top?
(defn group-bottom-view []
[linear-gradient {:style st/contact-group-header-gradient-top [linear-gradient {:style st/contact-group-header-gradient-top
:colors st/contact-group-header-gradient-top-colors}]) :colors st/contact-group-header-gradient-top-colors}])
[view st/contact-group-header-inner
[text {:style st/contact-group-text} title] (defn line-view []
[text {:style st/contact-group-size-text} (str contacts-count)]] [view {:style {:background-color "#D7D7D7"
[linear-gradient {:style st/contact-group-header-gradient-bottom :height 1}}])
:colors st/contact-group-header-gradient-bottom-colors}]]
;; todo what if there is no contacts, should we show some information (defn contact-group-view [contacts contacts-count subtitle group click-handler]
;; about this? (let [shadows? (get-in platform-specific [:contacts :group-block-shadows?])]
[view {:flexDirection :column} [view st/contact-group
[view st/contact-group-header
[subtitle-view subtitle contacts-count]]
(if shadows?
[group-top-view]
[line-view])
[view
(doall (doall
;; TODO not imlemented: contact more button handler
(map (fn [contact] (map (fn [contact]
(let [whisper-identity (:whisper-identity contact) (let [whisper-identity (:whisper-identity contact)
click-handler (or click-handler on-press)] click-handler (or click-handler on-press)]
@ -72,7 +91,12 @@
[view st/show-all [view st/show-all
[touchable-highlight {:on-press #(dispatch [:navigate-to :group-contacts group])} [touchable-highlight {:on-press #(dispatch [:navigate-to :group-contacts group])}
[view [view
[text {:style st/show-all-text} (label :t/show-all)]]]])]) [text {:style st/show-all-text
:font :medium}
(label :t/show-all)]]]])
(if shadows?
[group-bottom-view]
[line-view])]))
(defn contacts-action-button [] (defn contacts-action-button []
[view st/buttons-container [view st/buttons-container
@ -97,7 +121,7 @@
show-toolbar-shadow? (r/atom false)] show-toolbar-shadow? (r/atom false)]
(fn [] (fn []
[view st/contacts-list-container [view st/contacts-list-container
[contact-list-toolbar] [toolbar-view]
[view {:style st/toolbar-shadow} [view {:style st/toolbar-shadow}
(when @show-toolbar-shadow? (when @show-toolbar-shadow?
[linear-gradient {:style st/contact-group-header-gradient-bottom [linear-gradient {:style st/contact-group-header-gradient-bottom
@ -108,18 +132,18 @@
(let [offset (.. e -nativeEvent -contentOffset -y)] (let [offset (.. e -nativeEvent -contentOffset -y)]
(reset! show-toolbar-shadow? (<= st/contact-group-header-height offset))))} (reset! show-toolbar-shadow? (<= st/contact-group-header-height offset))))}
(when (pos? @dapps-count) (when (pos? @dapps-count)
[contact-group [contact-group-view
@dapps @dapps
@dapps-count @dapps-count
(label :t/contacts-group-dapps) (label :t/contacts-group-dapps)
:dapps true :dapps
@click-handler]) @click-handler])
(when (pos? @people-count) (when (pos? @people-count)
[contact-group [contact-group-view
@peoples @peoples
@people-count @people-count
(label :t/contacts-group-people) (label :t/contacts-group-people)
:people false :people
@click-handler])] @click-handler])]
[view st/empty-contact-groups [view st/empty-contact-groups
[react/icon :group_big st/empty-contacts-icon] [react/icon :group_big st/empty-contacts-icon]

22
src/status_im/contacts/styles.cljs
View File

@ -19,12 +19,12 @@
(def contact-groups (def contact-groups
{:flex 1 {:flex 1
:backgroundColor toolbar-background2}) :background-color toolbar-background2})
(def empty-contact-groups (def empty-contact-groups
(merge contact-groups (merge contact-groups
{:align-items :center {:align-items :center
:padding-top 150})) :justify-content :center}))
(def empty-contacts-icon (def empty-contacts-icon
{:height 62 {:height 62
@ -39,11 +39,11 @@
{:backgroundColor color-white}) {:backgroundColor color-white})
(def contact-group (def contact-group
{:flexDirection :column}) {:flex-direction :column})
(def contact-group-header (def contact-group-header
{:flexDirection :column {:flex-direction :column
:backgroundColor toolbar-background2}) :background-color toolbar-background2})
(def contact-group-header-inner (def contact-group-header-inner
{:flexDirection :row {:flexDirection :row
@ -51,16 +51,12 @@
:height 48 :height 48
:backgroundColor toolbar-background2}) :backgroundColor toolbar-background2})
(def contact-group-text (def contact-group-subtitle
{:flex 1 {:flex 1
:marginLeft 16 :margin-left 16})
:fontSize 14
:color text5-color})
(def contact-group-size-text (def contact-group-count
{:marginRight 14 {:margin-right 14})
:fontSize 12
:color text2-color})
(def contact-group-header-gradient-top (def contact-group-header-gradient-top
{:flexDirection :row {:flexDirection :row

5
src/status_im/contacts/subs.cljs
View File

@ -1,7 +1,8 @@
(ns status-im.contacts.subs (ns status-im.contacts.subs
(:require-macros [reagent.ratom :refer [reaction]]) (:require-macros [reagent.ratom :refer [reaction]])
(:require [re-frame.core :refer [register-sub subscribe]] (:require [re-frame.core :refer [register-sub subscribe]]
[status-im.utils.identicon :refer [identicon]])) [status-im.utils.identicon :refer [identicon]]
[taoensso.timbre :as log]))
(register-sub :get-contacts (register-sub :get-contacts
(fn [db _] (fn [db _]
@ -19,7 +20,7 @@
(register-sub :all-added-contacts (register-sub :all-added-contacts
(fn [db _] (fn [db _]
(let [contacts (reaction (:contacts @db))] (let [contacts (reaction (:contacts @db))]
(->> (remove :pending @contacts) (->> (remove #(true? (:pending (second %))) @contacts)
(sort-contacts) (sort-contacts)
(reaction))))) (reaction)))))

7
src/status_im/data_store/contacts.cljs
View File

@ -16,7 +16,12 @@
(let [{pending-db :pending (let [{pending-db :pending
:as contact-db} (data-store/get-by-id whisper-identity) :as contact-db} (data-store/get-by-id whisper-identity)
contact (assoc contact :pending (boolean (if contact-db contact (assoc contact :pending (boolean (if contact-db
(and pending-db pending) ;; TODO:
;; this is temporary fix for pending users
;; we need to change this (if ...) to (and pending-db pending)
(if (nil? pending)
pending-db
(and pending-db pending))
pending)))] pending)))]
(data-store/save contact (if contact-db true false)))) (data-store/save contact (if contact-db true false))))

8
src/status_im/data_store/discovery.cljs
View File

@ -2,14 +2,18 @@
(:require [status-im.data-store.realm.discovery :as data-store])) (:require [status-im.data-store.realm.discovery :as data-store]))
(defn get-all (defn get-all
[] [ordering]
(->> (data-store/get-all-as-list) (->> (data-store/get-all-as-list ordering)
(mapv #(update % :tags vals)))) (mapv #(update % :tags vals))))
(defn save (defn save
[discovery] [discovery]
(data-store/save discovery)) (data-store/save discovery))
(defn exists?
[message-id]
(data-store/exists? message-id))
(defn save-all (defn save-all
[discoveries] [discoveries]
(data-store/save-all discoveries)) (data-store/save-all discoveries))

17
src/status_im/data_store/realm/discovery.cljs
View File

@ -1,15 +1,16 @@
(ns status-im.data-store.realm.discovery (ns status-im.data-store.realm.discovery
(:require [status-im.data-store.realm.core :as realm] (:require [status-im.data-store.realm.core :as realm]
[taoensso.timbre :as log])) [taoensso.timbre :as log])
(:refer-clojure :exclude [exists?]))
(defn get-all (defn get-all
[] [ordering]
(-> (realm/get-all @realm/account-realm :discovery) (-> (realm/get-all @realm/account-realm :discovery)
(realm/sorted :priority :desc))) (realm/sorted :created-at ordering)))
(defn get-all-as-list (defn get-all-as-list
[] [ordering]
(-> (get-all) (-> (get-all ordering)
realm/realm-collection->list)) realm/realm-collection->list))
(defn get-tag-by-name [tag] (defn get-tag-by-name [tag]
@ -38,11 +39,15 @@
(defn- upsert-discovery [{:keys [message-id tags] :as discovery}] (defn- upsert-discovery [{:keys [message-id tags] :as discovery}]
(log/debug "Creating/updating discovery with tags: " tags) (log/debug "Creating/updating discovery with tags: " tags)
(let [prev-tags (get-tags message-id)] (let [prev-tags (get-tags message-id)]
(if prev-tags (when prev-tags
(update-tags-counter dec prev-tags)) (update-tags-counter dec prev-tags))
(realm/create @realm/account-realm :discovery discovery true) (realm/create @realm/account-realm :discovery discovery true)
(update-tags-counter inc tags))) (update-tags-counter inc tags)))
(defn exists?
[message-id]
(realm/exists? @realm/account-realm :discovery {:message-id message-id}))
(defn save (defn save
[discovery] [discovery]
(realm/write @realm/account-realm (realm/write @realm/account-realm

6
src/status_im/data_store/realm/schemas/account/core.cljs
View File

@ -3,6 +3,7 @@
[status-im.data-store.realm.schemas.account.v2.core :as v2] [status-im.data-store.realm.schemas.account.v2.core :as v2]
[status-im.data-store.realm.schemas.account.v3.core :as v3] [status-im.data-store.realm.schemas.account.v3.core :as v3]
[status-im.data-store.realm.schemas.account.v4.core :as v4] [status-im.data-store.realm.schemas.account.v4.core :as v4]
[status-im.data-store.realm.schemas.account.v5.core :as v5]
)) ))
; put schemas ordered by version ; put schemas ordered by version
@ -17,4 +18,7 @@
:migration v3/migration} :migration v3/migration}
{:schema v4/schema {:schema v4/schema
:schemaVersion 4 :schemaVersion 4
:migration v4/migration}]) :migration v4/migration}
{:schema v5/schema
:schemaVersion 5
:migration v5/migration}])

3
src/status_im/data_store/realm/schemas/account/v2/core.cljs
View File

@ -25,5 +25,4 @@
user-status/schema]) user-status/schema])
(defn migration [old-realm new-realm] (defn migration [old-realm new-realm]
(log/debug "migrating v2 account database: " old-realm new-realm) (log/debug "migrating v2 account database: " old-realm new-realm))
(contact/migration old-realm new-realm))

3
src/status_im/data_store/realm/schemas/account/v3/core.cljs
View File

@ -25,5 +25,4 @@
user-status/schema]) user-status/schema])
(defn migration [old-realm new-realm] (defn migration [old-realm new-realm]
(log/debug "migrating v3 account database: " old-realm new-realm) (log/debug "migrating v3 account database: " old-realm new-realm))
(contact/migration old-realm new-realm))

28
src/status_im/data_store/realm/schemas/account/v5/core.cljs Normal file
View File

@ -0,0 +1,28 @@
(ns status-im.data-store.realm.schemas.account.v5.core
(:require [taoensso.timbre :as log]
[status-im.data-store.realm.schemas.account.v4.chat :as chat]
[status-im.data-store.realm.schemas.account.v3.message :as message]
[status-im.data-store.realm.schemas.account.v2.contact :as contact]
[status-im.data-store.realm.schemas.account.v1.chat-contact :as chat-contact]
[status-im.data-store.realm.schemas.account.v1.command :as command]
[status-im.data-store.realm.schemas.account.v5.discovery :as discovery]
[status-im.data-store.realm.schemas.account.v1.kv-store :as kv-store]
[status-im.data-store.realm.schemas.account.v1.pending-message :as pending-message]
[status-im.data-store.realm.schemas.account.v1.request :as request]
[status-im.data-store.realm.schemas.account.v1.tag :as tag]
[status-im.data-store.realm.schemas.account.v1.user-status :as user-status]))
(def schema [chat/schema
chat-contact/schema
command/schema
contact/schema
discovery/schema
kv-store/schema
message/schema
pending-message/schema
request/schema
tag/schema
user-status/schema])
(defn migration [old-realm new-realm]
(log/debug "migrating v5 account database: " old-realm new-realm))

16
src/status_im/data_store/realm/schemas/account/v5/discovery.cljs Normal file
View File

@ -0,0 +1,16 @@
(ns status-im.data-store.realm.schemas.account.v5.discovery
(:require [taoensso.timbre :as log]))
(def schema {:name :discovery
:primaryKey :message-id
:properties {:message-id "string"
:name {:type "string" :optional true}
:status "string"
:whisper-id "string"
:photo-path {:type "string" :optional true}
:tags {:type "list"
:objectType "tag"}
:created-at {:type "int" :default 0}}})
(defn migration [old-realm new-realm]
(log/debug "migrating discovery schema"))

2
src/status_im/db.cljs
View File

@ -19,7 +19,7 @@
:new-contact-identity "" :new-contact-identity ""
:contacts {} :contacts {}
:discoveries [] :discoveries {}
:discovery-search-tags [] :discovery-search-tags []
:tags {} :tags {}

170
src/status_im/discovery/handlers.cljs
View File

@ -5,103 +5,117 @@
[status-im.protocol.core :as protocol] [status-im.protocol.core :as protocol]
[status-im.navigation.handlers :as nav] [status-im.navigation.handlers :as nav]
[status-im.data-store.discovery :as discoveries] [status-im.data-store.discovery :as discoveries]
[status-im.data-store.contacts :as contacts]
[status-im.utils.handlers :as u] [status-im.utils.handlers :as u]
[status-im.utils.datetime :as time] [status-im.utils.datetime :as time]
[status-im.utils.random :as random] [status-im.utils.random :as random]))
[status-im.data-store.contacts :as contacts]))
(def request-discoveries-interval-s 600)
(register-handler :init-discoveries (register-handler :init-discoveries
(fn [db _] (fn [db _]
(-> db (-> db
(assoc :discoveries [])))) (assoc :tags [])
(assoc :discoveries {}))))
(defn calculate-priority [{:keys [chats contacts]} from payload] (defn identities [contacts]
(let [contact (get contacts from) (->> (map second contacts)
chat (get chats from) (remove (fn [{:keys [dapp? pending]}]
seen-online-recently? (< (- (time/now-ms) (get contact :last-online)) (or pending dapp?)))
time/hour)] (map :whisper-identity)))
(+ (time/now-ms) ;; message is newer => priority is higher
(if contact time/day 0) ;; user exists in contact list => increase priority
(if chat time/day 0) ;; chat with this user exists => increase priority
(if seen-online-recently? time/hour 0) ;; the user was online recently => increase priority
)))
(defmethod nav/preload-data! :discovery (defmethod nav/preload-data! :discovery
[{:keys [discoveries] :as db} _] [db _]
(-> db (-> db
(assoc :tags (discoveries/get-all-tags)) (assoc :tags (discoveries/get-all-tags))
;; todo add limit (assoc :discoveries (->> (discoveries/get-all :desc)
;; todo hash-map with whisper-id as key and sorted by last-update (map (fn [{:keys [message-id] :as discovery}]
;; may be more efficient here [message-id discovery]))
(assoc :discoveries (discoveries/get-all)))) (into {})))))
(register-handler :discovery-response-received (register-handler :broadcast-status
(u/side-effect! (u/side-effect!
(fn [db [_ {:keys [from payload]}]] (fn [{:keys [current-public-key web3 current-account-id accounts contacts]}
(let [{:keys [discovery-id profile hashtags]} payload [_ status hashtags]]
{:keys [name profile-image status]} profile (let [{:keys [name photo-path]} (get accounts current-account-id)
discovery {:message-id discovery-id message-id (random/id)
message {:message-id message-id
:from current-public-key
:payload {:message-id message-id
:status status
:hashtags (vec hashtags)
:profile {:name name
:profile-image photo-path}}}]
(doseq [id (identities contacts)]
(protocol/send-status!
{:web3 web3
:message (assoc message :to id)}))
(dispatch [:status-received message])))))
(register-handler :status-received
(u/side-effect!
(fn [{:keys [discoveries] :as db} [_ {:keys [from payload]}]]
(when (and (not (discoveries/exists? (:message-id payload)))
(not (get discoveries (:message-id payload))))
(let [{:keys [message-id status hashtags profile]} payload
{:keys [name profile-image]} profile
discovery {:message-id message-id
:name name :name name
:photo-path profile-image :photo-path profile-image
:status status :status status
:whisper-id from :whisper-id from
:tags (map #(hash-map :name %) hashtags) :tags (map #(hash-map :name %) hashtags)
:last-updated (js/Date.) :created-at (time/now-ms)}]
:priority (calculate-priority db from payload)}] (dispatch [:add-discovery discovery]))))))
(dispatch [:add-discovery discovery])))))
(register-handler :check-status! (register-handler :start-requesting-discoveries
(fn [{:keys [request-discoveries-timer] :as db}]
(when request-discoveries-timer
(js/clearInterval request-discoveries-timer))
(dispatch [:request-discoveries])
(assoc db :request-discoveries-timer
(js/setInterval #(dispatch [:request-discoveries])
(* request-discoveries-interval-s 1000)))))
(register-handler :request-discoveries
(u/side-effect! (u/side-effect!
(fn [db [_ {:keys [whisper-identity status]} payload]] (fn [{:keys [current-public-key web3 contacts]}]
(let [{old-status :status} (contacts/get-by-id whisper-identity)] (doseq [id (identities contacts)]
(when (not= old-status status) (when-not (protocol/message-pending? web3 :discoveries-request id)
(let [hashtags (get-hashtags status)] (protocol/send-discoveries-request!
(when-not (empty? hashtags) {:web3 web3
(let [{:keys [message-id content]} payload :message {:from current-public-key
{:keys [name profile-image status]} (content :profile) :to id
discovery {:message-id message-id :message-id (random/id)}}))))))
:name name
:photo-path profile-image (register-handler :discoveries-send-portions
:status status (u/side-effect!
:whisper-id whisper-identity (fn [{:keys [current-public-key contacts web3]} [_ to]]
:tags (map #(hash-map :name %) hashtags) (when (get contacts to)
:last-updated (js/Date.) (protocol/send-discoveries-response!
:priority (calculate-priority db whisper-identity payload)}] {:web3 web3
:discoveries (discoveries/get-all :asc)
:message {:from current-public-key
:to to}})))))
(register-handler :discoveries-request-received
(u/side-effect!
(fn [_ [_ {:keys [from]}]]
(dispatch [:discoveries-send-portions from]))))
(register-handler :discoveries-response-received
(u/side-effect!
(fn [{:keys [discoveries contacts]} [_ {:keys [payload from]}]]
(when (get contacts from)
(when-let [data (:data payload)]
(doseq [{:keys [message-id] :as discovery} data]
(when (and (not (discoveries/exists? message-id))
(not (get discoveries message-id)))
(let [discovery (assoc discovery :created-at (time/now-ms))]
(dispatch [:add-discovery discovery]))))))))) (dispatch [:add-discovery discovery])))))))))
(register-handler :broadcast-status
(u/side-effect!
(fn [{:keys [current-public-key web3 current-account-id accounts]}
[_ status hashtags]]
(let [{:keys [name photo-path]} (get accounts current-account-id)]
(protocol/broadcats-discoveries!
{:web3 web3
:hashtags (set hashtags)
:message {:from current-public-key
:message-id (random/id)
:payload {:status status
:profile {:name name
:status status
:profile-image photo-path}}}})
(protocol/watch-hashtags! {:web3 web3
:hashtags (set hashtags)
:callback #(dispatch [:incoming-message %1 %2])})))))
(register-handler :show-discovery-tag
(fn [db [_ tag]]
(dispatch [:navigate-to :discovery-tag])
(assoc db :current-tag tag)))
(defn add-discovery (defn add-discovery
[{db-discoveries :discoveries [db [_ discovery]]
:as db} [_ {:keys [message-id] :as discovery}]] (assoc db :new-discovery discovery))
(let [updated-discoveries (if-let [i (first-index #(= (:message-id %) message-id) db-discoveries)]
(assoc db-discoveries i discovery)
(conj db-discoveries discovery))]
(-> db
(assoc :new-discovery discovery)
(assoc :discoveries updated-discoveries))))
(defn save-discovery! (defn save-discovery!
[{:keys [new-discovery]} _] [{:keys [new-discovery]} _]
@ -109,7 +123,11 @@
(defn reload-tags! (defn reload-tags!
[db _] [db _]
(assoc db :tags (discoveries/get-all-tags))) (assoc db :tags (discoveries/get-all-tags)
:discoveries (->> (discoveries/get-all :desc)
(map (fn [{:keys [message-id] :as discovery}]
[message-id discovery]))
(into {}))))
(register-handler :add-discovery (register-handler :add-discovery
(-> add-discovery (-> add-discovery
@ -120,4 +138,4 @@
:remove-old-discoveries! :remove-old-discoveries!
(u/side-effect! (u/side-effect!
(fn [_ _] (fn [_ _]
(discoveries/delete :priority :asc 1000 200)))) (discoveries/delete :created-at :asc 1000 200))))

68
src/status_im/discovery/screen.cljs
View File

@ -16,7 +16,8 @@
[status-im.components.carousel.carousel :refer [carousel]] [status-im.components.carousel.carousel :refer [carousel]]
[status-im.discovery.views.popular-list :refer [discovery-popular-list]] [status-im.discovery.views.popular-list :refer [discovery-popular-list]]
[status-im.discovery.views.discovery-list-item :refer [discovery-list-item]] [status-im.discovery.views.discovery-list-item :refer [discovery-list-item]]
[status-im.contacts.styles :as contacts-styles])) [status-im.contacts.styles :as contacts-styles]
[status-im.utils.platform :refer [platform-specific]]))
(defn get-hashtags [status] (defn get-hashtags [status]
(let [hashtags (map #(str/lower-case (str/replace % #"#" "")) (re-seq #"[^ !?,;:.]+" status))] (let [hashtags (map #(str/lower-case (str/replace % #"#" "")) (re-seq #"[^ !?,;:.]+" status))]
@ -35,7 +36,7 @@
(dispatch [:navigate-to :discovery-search-results])))}] (dispatch [:navigate-to :discovery-search-results])))}]
[view [view
[text {:style st/discovery-title [text {:style st/discovery-title
:font :default} :font :toolbar-title}
(label :t/discovery)]])]) (label :t/discovery)]])])
(defn toogle-search [current-value] (defn toogle-search [current-value]
@ -52,46 +53,51 @@
:style st/search-icon} :style st/search-icon}
:handler #(toogle-search show-search?)}]}]) :handler #(toogle-search show-search?)}]}])
(defn title [label-kw] (defn title [label-kw spacing?]
[view st/section-spacing [view st/section-spacing
[text {:style st/discovery-subtitle [text {:style (merge (get-in platform-specific [:component-styles :discovery :subtitle])
(when spacing? {:margin-top 16}))
:uppercase? (get-in platform-specific [:discovery :uppercase-subtitles?])
:font :medium} :font :medium}
(label label-kw)]]) (label label-kw)]])
(defview discovery-popular [{:keys [contacts]}] (defview discovery-popular [{:keys [contacts]}]
[popular-tags [:get-popular-tags 10]] [popular-tags [:get-popular-tags 10]]
(if (seq popular-tags) [view st/popular-container
[view [title :t/popular-tags false]
[title :t/popular-tags]
(if (pos? (count popular-tags)) (if (pos? (count popular-tags))
[carousel {:pageStyle st/carousel-page-style} [carousel {:pageStyle st/carousel-page-style
(for [{:keys [name count]} popular-tags] :gap 0
:sneak (if (> (count popular-tags) 1) 16 8)}
(for [{:keys [name]} popular-tags]
[discovery-popular-list {:tag name [discovery-popular-list {:tag name
:count count
:contacts contacts}])] :contacts contacts}])]
[text (label :t/none)])] [text (label :t/none)])])
(defview discovery-recent [{:keys [contacts]}]
[discoveries [:get-recent-discoveries]]
(when (seq discoveries)
[view st/recent-container
[title :t/recent true]
[view st/recent-list
(let [discoveries (map-indexed vector discoveries)]
(for [[i {:keys [message-id] :as discovery}] discoveries]
^{:key (str "message-" message-id)}
[discovery-list-item discovery (not= (inc i) (count discoveries))]))]]))
(defview discovery []
[show-search? [:get ::show-search?]
contacts [:get :contacts]
discoveries [:get-recent-discoveries]]
[view st/discovery-container
[discovery-toolbar show-search?]
(if discoveries
[scroll-view st/scroll-view-container
[discovery-popular {:contacts contacts}]
[discovery-recent {:contacts contacts}]]
[view contacts-styles/empty-contact-groups [view contacts-styles/empty-contact-groups
;; todo change icon ;; todo change icon
[icon :group_big contacts-styles/empty-contacts-icon] [icon :group_big contacts-styles/empty-contacts-icon]
[text {:style contacts-styles/empty-contacts-text} [text {:style contacts-styles/empty-contacts-text}
(label :t/no-statuses-discovered)]])) (label :t/no-statuses-discovered)]])
(defview discovery-recent [{:keys [contacts]}]
[discoveries [:get :discoveries]]
(when (seq discoveries)
[view
[title :t/recent]
[view st/recent-list
(for [{:keys [message-id] :as discovery} discoveries]
^{:key (str "message-" message-id)}
[discovery-list-item discovery])]]))
(defview discovery []
[show-search? [:get ::show-search?]
contacts [:get :contacts]]
[view st/discovery-container
[discovery-toolbar show-search?]
[scroll-view st/scroll-view-container
[discovery-popular {:contacts contacts}]
[discovery-recent {:contacts contacts}]]
[bottom-gradient]]) [bottom-gradient]])

42
src/status_im/discovery/search_results.cljs
View File

@ -2,39 +2,59 @@
(:require-macros [status-im.utils.views :refer [defview]]) (:require-macros [status-im.utils.views :refer [defview]])
(:require [re-frame.core :refer [subscribe dispatch]] (:require [re-frame.core :refer [subscribe dispatch]]
[status-im.utils.listview :refer [to-datasource]] [status-im.utils.listview :refer [to-datasource]]
[status-im.components.react :refer [view text list-view list-item]] [status-im.components.status-bar :refer [status-bar]]
[status-im.components.react :refer [view
text
icon
list-view
list-item
scroll-view]]
[status-im.i18n :refer [label]]
[status-im.components.toolbar.view :refer [toolbar]] [status-im.components.toolbar.view :refer [toolbar]]
[status-im.discovery.views.discovery-list-item :refer [discovery-list-item]] [status-im.discovery.views.discovery-list-item :refer [discovery-list-item]]
[status-im.discovery.styles :as st])) [status-im.discovery.styles :as st]
[status-im.utils.platform :refer [platform-specific]]
[status-im.contacts.styles :as contacts-styles]
[taoensso.timbre :as log]))
(defn render-separator [_ row-id _] (defn render-separator [_ row-id _]
(list-item [view {:style st/row-separator (list-item [view {:style st/row-separator
:key row-id}])) :key row-id}]))
(defn title-content [tags] (defn title-content [tags]
[scroll-view {:horizontal true
:bounces false
:flex 1
:contentContainerStyle st/tag-title-scroll}
[view st/tag-title-container [view st/tag-title-container
(for [tag (take 3 tags)] (for [tag (take 3 tags)]
^{:key (str "tag-" tag)} ^{:key (str "tag-" tag)}
[view {:style st/tag-container} [view (merge (get-in platform-specific [:component-styles :discovery :tag])
{:margin-left 2 :margin-right 2})
[text {:style st/tag-title [text {:style st/tag-title
:font :default} :font :default}
(str " #" tag)]])]) (str " #" tag)]])]])
(defview discovery-search-results [] (defview discovery-search-results []
[discoveries [:get-discovery-search-results] [discoveries [:get-popular-discoveries 250]
tags [:get :discovery-search-tags]] tags [:get :discovery-search-tags]]
(let [datasource (to-datasource discoveries)] (let [discoveries (:discoveries discoveries)
datasource (to-datasource discoveries)]
[view st/discovery-tag-container [view st/discovery-tag-container
[status-bar]
[toolbar {:nav-action {:image {:source {:uri :icon_back} [toolbar {:nav-action {:image {:source {:uri :icon_back}
:style st/icon-back} :style st/icon-back}
:handler #(dispatch [:navigate-back])} :handler #(dispatch [:navigate-back])}
:custom-content (title-content tags) :custom-content (title-content tags)
:actions [{:image {:source {:uri :icon_search} :style st/discovery-tag-toolbar}]
:style st/icon-search} (if (empty? discoveries)
:handler (fn [])}]}] [view st/empty-view
;; todo change icon
[icon :group_big contacts-styles/empty-contacts-icon]
[text {:style contacts-styles/empty-contacts-text}
(label :t/no-statuses-found)]]
[list-view {:dataSource datasource [list-view {:dataSource datasource
:renderRow (fn [row _ _] :renderRow (fn [row _ _]
(list-item [discovery-list-item row])) (list-item [discovery-list-item row]))
:renderSeparator render-separator :renderSeparator render-separator
:style st/recent-list}]])) :style st/recent-list}])]))

105
src/status_im/discovery/styles.cljs
View File

@ -1,5 +1,7 @@
(ns status-im.discovery.styles (ns status-im.discovery.styles
(:require [status-im.components.styles :refer [color-gray2]])) (:require [status-im.components.styles :refer [color-gray2
color-white]]
[status-im.components.toolbar.styles :refer [toolbar-background2]]))
;; common ;; common
@ -8,11 +10,18 @@
:border-bottom-color "#eff2f3"}) :border-bottom-color "#eff2f3"})
(def row (def row
{:flex-direction :row}) {:flex-direction :row
:margin-bottom 10})
(def column (def column
{:flex-direction :column}) {:flex-direction :column})
(def empty-view
{:flex 1
:background-color color-white
:align-items :center
:justify-content :center})
;; Toolbar ;; Toolbar
(def discovery-toolbar-content (def discovery-toolbar-content
@ -21,7 +30,7 @@
:justify-content :center}) :justify-content :center})
(def discovery-toolbar (def discovery-toolbar
{:background-color "#eef2f5" {:background-color toolbar-background2
:elevation 0}) :elevation 0})
(def discovery-search-input (def discovery-search-input
@ -30,7 +39,7 @@
:margin-left 18 :margin-left 18
:line-height 42 :line-height 42
:font-size 14 :font-size 14
:color "#9CBFC0"}) :color "#7099e6"})
(def discovery-title (def discovery-title
{:color "#000000de" {:color "#000000de"
@ -38,25 +47,19 @@
:text-align :center :text-align :center
:font-size 16}) :font-size 16})
(def discovery-subtitle
{:color color-gray2
:font-size 14})
(def section-spacing (def section-spacing
{:padding 16}) {:padding 16})
(def scroll-view-container (def scroll-view-container
{}) {:bounces false})
;; Popular ;; Popular
(def popular-container
{:background-color toolbar-background2})
(def carousel-page-style (def carousel-page-style
{:borderRadius 1 {})
:shadowColor "black"
:shadowRadius 1
:shadowOpacity 0.8
:elevation 2
:marginBottom 10})
(def tag-name (def tag-name
{:color "#7099e6" {:color "#7099e6"
@ -66,16 +69,10 @@
:align-items :center :align-items :center
:justify-content :center}) :justify-content :center})
(def tag-name-container
{:flex-direction "column"
:background-color "#eef2f5"
:border-radius 5
:padding 4})
(def tag-count (def tag-count
{:color "#838c93" {:color "#838c93"
:font-size 12 :font-size 12
:padding-right 5 :padding-right 6
:padding-bottom 2 :padding-bottom 2
:align-items :center :align-items :center
:justify-content :center}) :justify-content :center})
@ -84,63 +81,67 @@
{:flex 0.2 {:flex 0.2
:flex-direction "column" :flex-direction "column"
:align-items "flex-end" :align-items "flex-end"
:padding-top 10 :padding-top 6
:padding-right 9}) :padding-right 9})
(def separator
{:background-color "rgb(200, 199, 204)"
:height 0.5})
;; Popular list item
(def popular-list-container (def popular-list-container
{:flex 1 {:flex 1
:background-color :white :background-color :white
:padding-left 10 :margin-left 16
:padding-top 16}) :padding-left 16
:padding-top 18})
(def popular-list
{:background-color :white
:padding-top 13})
;; Popular list item
(def popular-list-item (def popular-list-item
{:flex-direction :row {:flex-direction :row
:padding-top 10 :padding-bottom 16
:padding-bottom 10}) :top 1})
(def popular-list-item-status
{:color "black"
:line-height 22
:font-size 14})
(def popular-list-item-name (def popular-list-item-name
{:color "black" {:color "black"
:font-size 14 :font-size 15
:line-height 24}) :padding-bottom 4})
(def popular-list-item-name-container (def popular-list-item-name-container
{:flex 0.8 {:flex 0.8
:flex-direction "column"}) :flex-direction "column"
:padding-top 16})
(def popular-list-item-avatar-container (def popular-list-item-avatar-container
{:flex 0.2 {:flex 0.2
:flex-direction "column" :flex-direction "column"
:align-items :center :align-items :center
:padding-top 5}) :padding-top 16})
(def popular-list-item-avatar
{:border-radius 18
:width 36
:height 36})
;; discovery_recent ;; discovery_recent
(def recent-container
{:background-color toolbar-background2})
(def recent-list (def recent-list
{:background-color :white {:background-color :white
:padding-left 16}) :padding-left 16})
;; Discovery tag ;; Discovery tag
(def discovery-tag-toolbar
{:border-bottom-color "#D7D7D7"
:border-bottom-width 1})
(def discovery-tag-container (def discovery-tag-container
{:flex 1 {:flex 1
:backgroundColor "#eef2f5"}) :backgroundColor "#eef2f5"})
(def tag-title-scroll
{:flex 1
:alignItems "center"
:justifyContent "center"})
(def tag-title-container (def tag-title-container
{:flex 1 {:flex 1
:alignItems "center" :alignItems "center"
@ -153,14 +154,6 @@
:padding-right 5 :padding-right 5
:padding-bottom 2}) :padding-bottom 2})
(def tag-container
{:backgroundColor "#eef2f5"
:flexWrap :wrap
:borderRadius 5
:padding 4
:margin-left 2
:margin-right 2})
(def icon-back (def icon-back
{:width 8 {:width 8
:height 14}) :height 14})
@ -171,7 +164,7 @@
(def discovery-container (def discovery-container
{:flex 1 {:flex 1
:backgroundColor :#eef2f5}) :backgroundColor color-white})
(def hamburger-icon (def hamburger-icon
{:width 16 {:width 16

53
src/status_im/discovery/subs.cljs
View File

@ -1,20 +1,43 @@
(ns status-im.discovery.subs (ns status-im.discovery.subs
(:require-macros [reagent.ratom :refer [reaction]]) (:require-macros [reagent.ratom :refer [reaction]])
(:require [re-frame.core :refer [register-sub]])) (:require [re-frame.core :refer [register-sub]]
[status-im.utils.datetime :as time]))
(defn- get-discoveries-by-tags [{:keys [discoveries current-tag]} tags limit] (defn- calculate-priority [{:keys [chats contacts current-public-key]}
(let [tags' (or tags [current-tag]) {:keys [whisper-id created-at]}]
filter-tag (filter #(every? (->> (map :name (:tags %)) (let [contact (get contacts whisper-id)
chat (get chats whisper-id)
seen-online-recently? (< (- (time/now-ms) (get contact :last-online))
time/hour)
me? (= current-public-key whisper-id)]
(+ created-at ;; message is newer => priority is higher
(if (or me? contact) time/day 0) ;; user exists in contact list => increase priority
(if (or me? chat) time/day 0) ;; chat with this user exists => increase priority
(if (or me? seen-online-recently?) time/hour 0) ;; the user was online recently => increase priority
)))
(defn- get-discoveries-by-tags [discoveries current-tag tags]
(let [tags' (or tags [current-tag])]
(filter #(every? (->> (map :name (:tags %))
(into (hash-set))) (into (hash-set)))
tags')) tags')
xform (if limit (vals discoveries))))
(comp filter-tag (take limit))
filter-tag)]
(into [] xform discoveries)))
(register-sub :get-discoveries-by-tags (register-sub :get-popular-discoveries
(fn [db [_ tags limit]] (fn [db [_ limit tags]]
(-> (get-discoveries-by-tags @db tags limit) (let [discoveries (reaction (:discoveries @db))
current-tag (reaction (:current-tag @db))
search-tags (reaction (:discovery-search-tags @db))
discoveries (->> (get-discoveries-by-tags @discoveries @current-tag (or tags @search-tags))
(map #(assoc % :priority (calculate-priority db %)))
(sort-by :priority >))]
(reaction {:discoveries (take limit discoveries)
:total (count discoveries)}))))
(register-sub :get-recent-discoveries
(fn [db]
(->> (:discoveries @db)
(vals)
(reaction)))) (reaction))))
(register-sub :get-popular-tags (register-sub :get-popular-tags
@ -24,6 +47,8 @@
(register-sub :get-discovery-search-results (register-sub :get-discovery-search-results
(fn [db _] (fn [db _]
(let [tags (get-in @db [:discovery-search-tags])] (let [discoveries (reaction (:discoveries @db))
(-> (get-discoveries-by-tags @db tags nil) current-tag (reaction (:current-tag @db))
tags (reaction (:discovery-search-tags @db))]
(-> (get-discoveries-by-tags @discoveries @current-tag @tags)
(reaction))))) (reaction)))))

36
src/status_im/discovery/tag.cljs
View File

@ -1,36 +0,0 @@
(ns status-im.discovery.tag
(:require-macros [status-im.utils.views :refer [defview]])
(:require [re-frame.core :refer [subscribe dispatch]]
[status-im.utils.listview :refer [to-datasource]]
[status-im.components.react :refer [view text list-view list-item]]
[status-im.components.toolbar.view :refer [toolbar]]
[status-im.discovery.views.discovery-list-item :refer [discovery-list-item]]
[status-im.discovery.styles :as st]))
(defn render-separator [_ row-id _]
(list-item [view {:style st/row-separator
:key row-id}]))
(defn title-content [tag]
[view st/tag-title-container
[view {:style st/tag-container}
[text {:style st/tag-title} (str " #" tag)]]])
(defview discovery-tag []
[tag [:get :current-tag]
discoveries [:get-discoveries-by-tags]]
(let [datasource (to-datasource discoveries)]
[view st/discovery-tag-container
[toolbar {:nav-action {:image {:source {:uri :icon_back}
:style st/icon-back}
:handler #(dispatch [:navigate-back])}
:custom-content (title-content tag)
:actions [{:image {:source {:uri :icon_search}
:style st/icon-search}
:handler (fn [])}]}]
[list-view {:dataSource datasource
:renderRow (fn [row _ _]
(list-item [discovery-list-item row]))
:renderSeparator render-separator
:style st/recent-list}]]))

40
src/status_im/discovery/views/discovery_list_item.cljs
View File

@ -2,16 +2,36 @@
(:require-macros [status-im.utils.views :refer [defview]]) (:require-macros [status-im.utils.views :refer [defview]])
(:require [re-frame.core :refer [subscribe dispatch]] (:require [re-frame.core :refer [subscribe dispatch]]
[clojure.string :as str] [clojure.string :as str]
[status-im.components.react :refer [view text image]] [status-im.components.react :refer [view text image touchable-highlight]]
[status-im.discovery.styles :as st] [status-im.discovery.styles :as st]
[status-im.utils.gfycat.core :refer [generate-gfy]] [status-im.utils.gfycat.core :refer [generate-gfy]]
[status-im.utils.identicon :refer [identicon]] [status-im.utils.identicon :refer [identicon]]
[status-im.i18n :refer [label]] [status-im.i18n :refer [label]]
[status-im.components.chat-icon.screen :as ci])) [status-im.components.chat-icon.screen :as ci]
[status-im.utils.platform :refer [platform-specific]]
[taoensso.timbre :as log]))
(defview discovery-list-item [{:keys [name photo-path status whisper-id]}] (defn tag-view [tag]
[text {:style {:color "#7099e6"}
:font :medium}
(str tag " ")])
(defn status-view [item-style {:keys [message-id status]}]
[text {:style (:status-text item-style)
:font :default}
(for [[i status] (map-indexed vector (str/split status #" "))]
(if (.startsWith status "#")
^{:key (str "item-" message-id "-" i)}
[tag-view status]
^{:key (str "item-" message-id "-" i)}
(str status " ")))])
(defview discovery-list-item [{:keys [name photo-path whisper-id] :as message}
show-separator?]
[{contact-name :name [{contact-name :name
contact-photo-path :photo-path} [:get-in [:contacts whisper-id]]] contact-photo-path :photo-path} [:get-in [:contacts whisper-id]]]
(let [item-style (get-in platform-specific [:component-styles :discovery :item])]
[view
[view st/popular-list-item [view st/popular-list-item
[view st/popular-list-item-name-container [view st/popular-list-item-name-container
[text {:style st/popular-list-item-name [text {:style st/popular-list-item-name
@ -21,13 +41,15 @@
(not (str/blank? contact-name)) contact-name (not (str/blank? contact-name)) contact-name
(not (str/blank? name)) name (not (str/blank? name)) name
:else (generate-gfy))] :else (generate-gfy))]
[text {:style st/popular-list-item-status [status-view item-style message]]
:font :default [view (merge st/popular-list-item-avatar-container
:number-of-lines 2} (:icon item-style))
status]] [touchable-highlight {:on-press #(dispatch [:start-chat whisper-id])}
[view st/popular-list-item-avatar-container [view
[ci/chat-icon (cond [ci/chat-icon (cond
(not (str/blank? contact-photo-path)) contact-photo-path (not (str/blank? contact-photo-path)) contact-photo-path
(not (str/blank? photo-path)) photo-path (not (str/blank? photo-path)) photo-path
:else (identicon whisper-id)) :else (identicon whisper-id))
{:size 36}]]]) {:size 36}]]]]]
(when show-separator?
[view st/separator])]))

22
src/status_im/discovery/views/popular_list.cljs
View File

@ -9,14 +9,17 @@
text]] text]]
[status-im.discovery.styles :as st] [status-im.discovery.styles :as st]
[status-im.utils.listview :refer [to-datasource]] [status-im.utils.listview :refer [to-datasource]]
[status-im.discovery.views.discovery-list-item :refer [discovery-list-item]])) [status-im.discovery.views.discovery-list-item :refer [discovery-list-item]]
[status-im.utils.platform :refer [platform-specific]]))
(defview discovery-popular-list [{:keys [tag count contacts]}] (defview discovery-popular-list [{:keys [tag contacts]}]
[discoveries [:get-discoveries-by-tags [tag] 3]] [discoveries [:get-popular-discoveries 3 [tag]]]
[view st/popular-list-container [view (merge st/popular-list-container
(get-in platform-specific [:component-styles :discovery :popular]))
[view st/row [view st/row
[view st/tag-name-container [view (get-in platform-specific [:component-styles :discovery :tag])
[touchable-highlight {:onPress #(dispatch [:show-discovery-tag tag])} [touchable-highlight {:on-press #(do (dispatch [:set :discovery-search-tags [tag]])
(dispatch [:navigate-to :discovery-search-results]))}
[view [view
[text {:style st/tag-name [text {:style st/tag-name
:font :medium} :font :medium}
@ -24,7 +27,8 @@
[view st/tag-count-container [view st/tag-count-container
[text {:style st/tag-count [text {:style st/tag-count
:font :default} :font :default}
count]]] (:total discoveries)]]]
(for [{:keys [message-id] :as discovery} discoveries] (let [discoveries (map-indexed vector (:discoveries discoveries))]
(for [[i {:keys [message-id] :as discovery}] discoveries]
^{:key (str "message-" message-id)} ^{:key (str "message-" message-id)}
[discovery-list-item discovery])]) [discovery-list-item discovery (not= (inc i) (count discoveries))]))])

1
src/status_im/handlers.cljs
View File

@ -64,6 +64,7 @@
(dispatch [:init-chat]) (dispatch [:init-chat])
(dispatch [:init-discoveries]) (dispatch [:init-discoveries])
(dispatch [:send-account-update-if-needed]) (dispatch [:send-account-update-if-needed])
(dispatch [:start-requesting-discoveries])
(dispatch [:remove-old-discoveries!])))) (dispatch [:remove-old-discoveries!]))))
(register-handler :reset-app (register-handler :reset-app

2
src/status_im/ios/core.cljs
View File

@ -13,7 +13,6 @@
[status-im.contacts.views.contact-list :refer [contact-list]] [status-im.contacts.views.contact-list :refer [contact-list]]
[status-im.contacts.views.new-contact :refer [new-contact]] [status-im.contacts.views.new-contact :refer [new-contact]]
[status-im.qr-scanner.screen :refer [qr-scanner]] [status-im.qr-scanner.screen :refer [qr-scanner]]
[status-im.discovery.tag :refer [discovery-tag]]
[status-im.discovery.search-results :refer [discovery-search-results]] [status-im.discovery.search-results :refer [discovery-search-results]]
[status-im.chat.screen :refer [chat]] [status-im.chat.screen :refer [chat]]
[status-im.accounts.login.screen :refer [login]] [status-im.accounts.login.screen :refer [login]]
@ -74,7 +73,6 @@
(let [current-view (validate-current-view @view-id @signed-up?)] (let [current-view (validate-current-view @view-id @signed-up?)]
(let [component (case current-view (let [component (case current-view
:discovery main-tabs :discovery main-tabs
:discovery-tag discovery-tag
:discovery-search-results discovery-search-results :discovery-search-results discovery-search-results
:add-participants new-participants :add-participants new-participants
:remove-participants remove-participants :remove-participants remove-participants

26
src/status_im/ios/platform.cljs
View File

@ -21,6 +21,27 @@
:border-bottom-width 0.5} :border-bottom-width 0.5}
:chat {:new-message {:border-top-color styles/color-gray3 :chat {:new-message {:border-top-color styles/color-gray3
:border-top-width 0.5}} :border-top-width 0.5}}
:discovery {:subtitle {:color styles/color-steel
:font-size 13
:letter-spacing 1}
:popular {:border-radius 3
:border-width 1
:border-color "#D7D7D7"}
:tag {:flex-direction "column"
:background-color "rgb(227, 235, 250)"
:border-radius 4
:border-width 1
:border-color "rgba(112, 153, 230, 0.31)"
:padding 6}
:item {:status-text {:color styles/color-steel
:font-size 14
:letter-spacing -0.1}
:icon {:padding-top 0
:bottom -4
:justify-content :flex-end}}}
:contacts {:subtitle {:color styles/color-steel
:font-size 13
:letter-spacing 1}}
:bottom-gradient {:height 1} :bottom-gradient {:height 1}
:input-label {:left 0} :input-label {:left 0}
:input-error-text {:margin-left 0} :input-error-text {:margin-left 0}
@ -60,5 +81,8 @@
:chats {:action-button? false :chats {:action-button? false
:new-chat-in-toolbar? true} :new-chat-in-toolbar? true}
:contacts {:action-button? false :contacts {:action-button? false
:new-contact-in-toolbar? true}}) :new-contact-in-toolbar? true
:uppercase-subtitles? true
:group-block-shadows? false}
:discovery {:uppercase-subtitles? true}})

13
src/status_im/protocol/core.cljs
View File

@ -36,9 +36,12 @@
;; discoveries ;; discoveries
(def watch-user! discoveries/watch-user!) (def watch-user! discoveries/watch-user!)
(def contact-request! discoveries/contact-request!) (def contact-request! discoveries/contact-request!)
(def watch-hashtags! discoveries/watch-hashtags!) (def broadcast-profile! discoveries/broadcast-profile!)
(def broadcats-profile! discoveries/broadcats-profile!) (def send-status! discoveries/send-status!)
(def broadcats-discoveries! discoveries/broadcats-discoveries!) (def send-discoveries-request! discoveries/send-discoveries-request!)
(def send-discoveries-response! discoveries/send-discoveries-response!)
(def message-pending? d/message-pending?)
;; initialization ;; initialization
(s/def ::rpc-url string?) (s/def ::rpc-url string?)
@ -82,10 +85,6 @@
{:topics [chat-id]} {:topics [chat-id]}
(l/message-listener (assoc listener-options :callback callback (l/message-listener (assoc listener-options :callback callback
:keypair keypair)))) :keypair keypair))))
;; start listening to discoveries
(watch-hashtags! {:web3 web3
:hashtags hashtags
:callback callback})
;; start listening to profiles ;; start listening to profiles
(doseq [{:keys [identity keypair]} contacts] (doseq [{:keys [identity keypair]} contacts]
(watch-user! {:web3 web3 (watch-user! {:web3 web3

65
src/status_im/protocol/discoveries.cljs
View File

@ -9,13 +9,9 @@
[status-im.protocol.validation :refer-macros [valid?]] [status-im.protocol.validation :refer-macros [valid?]]
[status-im.utils.random :as random])) [status-im.utils.random :as random]))
(def discovery-topic "status-discovery")
(def discovery-topic-prefix "status-discovery-") (def discovery-topic-prefix "status-discovery-")
(def discovery-hashtag-prefix "status-hashtag-") (def discovery-hashtag-prefix "status-hashtag-")
(defn- add-hashtag-prefix [hashtag]
(str discovery-hashtag-prefix hashtag))
(defn- make-discovery-topic [identity] (defn- make-discovery-topic [identity]
(str discovery-topic-prefix identity)) (str discovery-topic-prefix identity))
@ -72,35 +68,12 @@
(defonce watched-hashtag-topics (atom nil)) (defonce watched-hashtag-topics (atom nil))
(defn- hashtags->topics
"Create topics from hashtags."
[hashtags]
(->> hashtags
(map (fn [tag]
[tag [(add-hashtag-prefix tag) discovery-topic]]))
(into {})))
(s/def :discoveries/hashtags (s/every string? :kind-of set?)) (s/def :discoveries/hashtags (s/every string? :kind-of set?))
(defn stop-watching-hashtags!
[web3]
(doseq [topics @watched-hashtag-topics]
(f/remove-filter! web3 topics)))
(s/def ::callback fn?) (s/def ::callback fn?)
(s/def :watch-hashtags/options (s/def :watch-hashtags/options
(s/keys :req-un [:options/web3 :discoveries/hashtags ::callback])) (s/keys :req-un [:options/web3 :discoveries/hashtags ::callback]))
(defn watch-hashtags!
[{:keys [web3 hashtags] :as options}]
{:pre [(valid? :watch-hashtags/options options)]}
(debug :watch-hashtags hashtags)
(stop-watching-hashtags! web3)
(let [hashtag-topics (vals (hashtags->topics hashtags))]
(reset! watched-hashtag-topics hashtag-topics)
(doseq [topics hashtag-topics]
(f/add-filter! web3 {:topics topics} (l/message-listener options)))))
(s/def ::status (s/nilable string?)) (s/def ::status (s/nilable string?))
(s/def ::profile (s/keys :req-un [::status])) (s/def ::profile (s/keys :req-un [::status]))
(s/def :profile/payload (s/def :profile/payload
@ -111,7 +84,7 @@
(s/def :broadcast-profile/options (s/def :broadcast-profile/options
(s/keys :req-un [:profile/message :options/web3])) (s/keys :req-un [:profile/message :options/web3]))
(defn broadcats-profile! (defn broadcast-profile!
[{:keys [web3 message] :as options}] [{:keys [web3 message] :as options}]
{:pre [(valid? :broadcast-profile/options options)]} {:pre [(valid? :broadcast-profile/options options)]}
(debug :broadcasting-status) (debug :broadcasting-status)
@ -132,18 +105,32 @@
(s/def :broadcast-hasthags/options (s/def :broadcast-hasthags/options
(s/keys :req-un [:discoveries/hashtags :status/message :options/web3])) (s/keys :req-un [:discoveries/hashtags :status/message :options/web3]))
(defn broadcats-discoveries! (defn send-status!
[{:keys [web3 hashtags message] :as options}] [{:keys [web3 message]}]
{:pre [(valid? :broadcast-hasthags/options options)]}
(debug :broadcasting-status) (debug :broadcasting-status)
(let [discovery-id (random/id)] (let [message (-> message
(doseq [[tag hashtag-topics] (hashtags->topics hashtags)] (assoc :type :discovery
:topics [(make-discovery-topic (:from message))]))]
(d/add-pending-message! web3 message)))
(defn send-discoveries-request!
[{:keys [web3 message]}]
(debug :sending-discoveries-request)
(d/add-pending-message! (d/add-pending-message!
web3 web3
(-> message (-> message
(assoc :type :discovery (assoc :type :discoveries-request
:topics hashtag-topics) :topics [(make-discovery-topic (:from message))]))))
(assoc-in [:payload :tag] tag)
(assoc-in [:payload :hashtags] (vec hashtags)) (defn send-discoveries-response!
(assoc-in [:payload :discovery-id] discovery-id) [{:keys [web3 discoveries message]}]
(update :message-id str tag)))))) (debug :sending-discoveries-response)
(doseq [portion (->> (take 100 discoveries)
(partition 10 10 nil))]
(d/add-pending-message!
web3
(-> message
(assoc :type :discoveries-response
:topics [(make-discovery-topic (:from message))]
:message-id (random/id)
:payload {:data (into [] portion)})))))

4
src/status_im/protocol/handlers.cljs
View File

@ -85,7 +85,9 @@
:add-group-identity (dispatch [:participant-invited-to-group message]) :add-group-identity (dispatch [:participant-invited-to-group message])
:leave-group (dispatch [:participant-left-group message]) :leave-group (dispatch [:participant-left-group message])
:contact-request (dispatch [:contact-request-received message]) :contact-request (dispatch [:contact-request-received message])
:discovery (dispatch [:discovery-response-received message]) :discovery (dispatch [:status-received message])
:discoveries-request (dispatch [:discoveries-request-received message])
:discoveries-response (dispatch [:discoveries-response-received message])
:profile (dispatch [:contact-update-received message]) :profile (dispatch [:contact-update-received message])
:online (dispatch [:contact-online-received message]) :online (dispatch [:contact-online-received message])
:pending (dispatch [:pending-message-upsert message]) :pending (dispatch [:pending-message-upsert message])

13
src/status_im/protocol/web3/delivery.cljs
View File

@ -129,7 +129,7 @@
(defn delivery-callback (defn delivery-callback
[web3 {:keys [id requires-ack? to]}] [web3 {:keys [id requires-ack? to]}]
(fn [error _] (fn [error _]
(when error (log/error :shh-post-error error)) (when error (log/warn :shh-post-error error))
(when-not error (when-not error
(debug :delivery-callback) (debug :delivery-callback)
(message-was-sent! web3 id to) (message-was-sent! web3 id to)
@ -159,7 +159,7 @@
;; todo add some notification about network issues ;; todo add some notification about network issues
(<= attempts (* 5 max-attempts-number)) (<= attempts (* 5 max-attempts-number))
(and (and
;; if message was not send lees then max-attempts-number times ;; if message was not send less then max-attempts-number times
;; continue attempts ;; continue attempts
(<= attempts max-attempts-number) (<= attempts max-attempts-number)
;; check retransmition interval ;; check retransmition interval
@ -169,6 +169,15 @@
[message message-type ttl-config default-ttl] [message message-type ttl-config default-ttl]
(update message :ttl #(or % ((keyword message-type) ttl-config) default-ttl))) (update message :ttl #(or % ((keyword message-type) ttl-config) default-ttl)))
(defn message-pending?
[web3 required-type required-to]
(some (fn [[_ messages]]
(some (fn [[_ {:keys [type to]}]]
(and (= type required-type)
(= to required-to)))
messages))
(@messages web3)))
(defn run-delivery-loop! (defn run-delivery-loop!
[web3 {:keys [delivery-loop-ms-interval default-ttl ttl-config [web3 {:keys [delivery-loop-ms-interval default-ttl ttl-config
send-online-s-interval online-message] send-online-s-interval online-message]

1
src/status_im/translations/en.cljs
View File

@ -107,6 +107,7 @@
:popular-tags "Popular tags" :popular-tags "Popular tags"
:recent "Recent" :recent "Recent"
:no-statuses-discovered "No statuses discovered" :no-statuses-discovered "No statuses discovered"
:no-statuses-found "No statuses found"
;settings ;settings
:settings "Settings" :settings "Settings"