mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Fix DM regulare expression.
This commit is contained in:
parent
c312307b35
commit
52e785b467
@ -457,7 +457,7 @@
|
||||
))
|
||||
|
||||
(defn encrypt-if-direct-message [content tags]
|
||||
(if (re-matches #"D \#\[\d+\].*" content)
|
||||
(if (re-find #"^D \#\[\d+\]" content)
|
||||
(let [reference-digits (re-find #"\d+" content)
|
||||
reference-index (Integer/parseInt reference-digits)
|
||||
p-tag (get tags reference-index)]
|
||||
|
Loading…
Reference in New Issue
Block a user