Html Clojurescript多词替换（及更多）
我在数据库中有卡片，每张卡片上都有一些段落的文字。我想用HTML符号替换“特定短语”。因此，当它们显示时，短语是符号而不是文本 我的代码工作得非常完美，除了调用final函数的方式 （我会尽量避免信息过载，但是） 我这样调用最后一个函数：Html Clojurescript多词替换（及更多）,html,clojurescript,reduce,Html,Clojurescript,Reduce,我在数据库中有卡片，每张卡片上都有一些段落的文字。我想用HTML符号替换“特定短语”。因此，当它们显示时，短语是符号而不是文本 我的代码工作得非常完美，除了调用final函数的方式 （我会尽量避免信息过载，但是） 我这样调用最后一个函数： ...{:__html (add-symbols (add-symbols
...{:__html (add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(add-symbols
(:text card)))))))))))))}
(reduce add-symbols (:text card))
谢谢你的帮助 作为一个概括性的提纲，您可能需要：
{ :__html
(loop [curr-card (:text card)]
(if (is-finished curr-card)
curr-card
(recur (add-symbols curr-card)))) }
但是
功能已完成添加符号{ :__html
(loop [curr-card (:text card)]
(if (is-finished curr-card)
curr-card
(recur (add-symbols curr-card)))) }
但是
功能已经完成添加符号...{:__html
(let [new-text (atom (add-symbols (:text card)))]
(when (= @new-text (add-symbols @new-text))
@new-text
(swap! new-text #(add-symbols @new-text))))}...
...{:__html
(loop [new-text (:text card)]
(if (= new-text (add-symbols new-text))
new-text
(recur (add-symbols new-text))))}...
(defn make-span [text symbol path]
(.replace text (apply str symbol) (str "<img src='" path "'style=\"width:16px;height:16px;\"></img>")))
(defn add-symbols [card-text]
(-> (if (nil? card-text) "" card-text)
(make-span "[b]" "img/dc/me_bl.png")
(make-span "[c]" "img/dc/me_cs.png")
(make-span "[d]" "img/dc/me_dd.png")
(make-span "[f]" "img/dc/me_fd.png")
(make-span "[j]" "img/dc/me_ju.png")
(make-span "[s]" "img/dc/me_sl.png")
(make-span "[w]" "img/dc/me_wi.png")))
(defn- card-text
"Generate text html representation a card"
[card cursor]
[:div
[:h4 (:title card)]
[:div.text
[:p [:span.type (str (:type card))] (if (= (.toLowerCase (:type card)) (:Secondary card))
""
(str ": " (:Secondary card)))]
[:pre {:dangerouslySetInnerHTML #js {:__html
(let [new-text (atom (add-symbols (:text card)))]
(when (= @new-text (add-symbols @new-text))
@new-text
(swap! new-text #(add-symbols @new-text))))}}]]])
（defn make span[文本符号路径]
（.替换文本（应用str符号）（str“”））
（定义添加符号[卡片文本]
（->（如果（无？卡片文本）“”卡片文本）
（制作span“[b]”img/dc/me_bl.png）
（使span“[c]”img/dc/me_cs.png）
（制作span“[d]”img/dc/me\u dd.png）
（制作span“[f]”img/dc/me_fd.png）
（制作span“[j]”img/dc/me_ju.png）
（制作span“[s]”img/dc/me_sl.png）
（制作span“[w]”img/dc/me_wi.png）
（defn-卡片文本）
“生成卡片的文本html表示”
[卡片光标]
[：div
[：h4（：标题卡）]
[：div.text
[：p[：span.type（str（：type card））]（如果（（.toLowerCase（：type card））（：Secondary card））
""
（str:“（：辅助卡）））]
[：pre{:dangerouslysetinenerHTML#js{:u html
（让[新文本（atom（添加符号（：文本卡）））]
（当（=新文本时（在新文本时添加符号））
@新文本
（交换！新文本#（添加符号@新文本）））}]]
这里有更多的代码，但这并不是这个问题的真正目的或应用。我真的很兴奋能找到问题的确切点或“关键”，再次感谢！！好吧，我本来是要循环的，然后我读了你的帖子，我想我可能走对了路，但是（这种语言很难，但当你成功的时候，你会有一种很好的感觉，就像“过去的日子”一样。） 我甚至尝试了let和loop，因为我意识到我所做的只是“伪递归”手动调用我的函数，13次，然后说，那就足够了。在学习了这么多之后，最后，我决定（在 )由于“is finished”子句的原因，最好在时使用 此代码完成作业：
...{:__html
(let [new-text (atom (add-symbols (:text card)))]
(when (= @new-text (add-symbols @new-text))
@new-text
(swap! new-text #(add-symbols @new-text))))}...
...{:__html
(loop [new-text (:text card)]
(if (= new-text (add-symbols new-text))
new-text
(recur (add-symbols new-text))))}...