use only lower case tags

This commit is contained in:
Adrian Tiberius 2016-09-06 13:28:07 +03:00
parent 773610a3cf
commit 1cb72a5f7a
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]