use only lower case tags

Former-commit-id: 1cb72a5f7a
This commit is contained in:
Adrian Tiberius 2016-09-06 13:28:07 +03:00
parent 1399cb0f6e
commit 7b1f7baab1
2 changed files with 2 additions and 2 deletions

View File

@ -17,7 +17,7 @@
[status-im.i18n :refer [label]]))
(defn get-hashtags [status]
(let [hashtags (map #(str/replace % #"#" "") (re-seq #"[^ !?,;:.]+" status))]
(let [hashtags (map #(str/lower-case (str/replace % #"#" "")) (re-seq #"[^ !?,;:.]+" status))]
(or hashtags [])))
(defn title-content [platform-specific show-search?]

View File

@ -8,7 +8,7 @@
[clojure.string :as str]))
(defn get-hashtags [status]
(let [hashtags (map #(subs % 1) (re-seq #"#[^ !?,;:.]+" status))]
(let [hashtags (map #(str/lower-case (subs % 1)) (re-seq #"#[^ !?,;:.]+" status))]
(or hashtags [])))
(defn message-user [identity]