Replace - with _ in hashtags.

This commit is contained in:
John Wiseman 2020-05-20 15:04:02 -07:00
parent 5f078b4e54
commit 46b863fa36
2 changed files with 3 additions and 2 deletions

View File

@ -324,7 +324,7 @@
;; Landmark.
"?:[{nearbydistance} miles from {nearbylandmark} ]"
;; Hashtag based on registration.
"?:[#{registration} |#{militaryregistration} ]"
"?:[#{registration|hashtag} |#{militaryregistration|hashtag} ]"
;; tar1090 link.
"https://tar1090.adsbexchange.com/?icao={icao}&zoom=13")]))

View File

@ -63,7 +63,8 @@
(if (re-find #"^[FHLMNRSX](\b|[A-Z0-9])" s)
(str "an " s)
(str "a " s))
(str "an " s)))})
(str "an " s)))
:hashtag #(string-replace % #"-" "_")})
(defn apply-filter [s filter-name]