Rekursion in html wie Datenstruktur clojure

Question

Ich habe über dieses Problem zu denken, aber ich kann nicht die Schritte herauszufinden, meine Funktion zu bauen:

ich einen Schluckauf wie HTML-Daten als Eingabe habe, ist diese Struktur komponiert von hTML und benutzerdefinierten Elementen, zB:

Format: [tag-name Optionen & Körper]

[:a {} []] ;; simple 
[:a {} [[:span {} []]]] ;; nested component 
[:other {} []] ;; custom component at tag-name 
[:a {} [[:other {} []]]] ;; custom component at body 

Jedes Mal, th E-Struktur ein benutzerdefiniertes Element hat, soll ich es Darstellung durch die HTML-render (ersetzen), die in den database ist, kann das individuelle Element oder Körper bei Tag-Namen vorhanden sein:

(def example 
    [:div {} [[:a {} []] 
      [:custom {} []]]]) 

    (def database { 
     :custom [[:a {} [] 
       [:div {} []]}) 

(def expected-result 
    [:div {} [[:a {} []] 
      [:a {} []] 
      [:div {} []]]]) 

Das Problem war: Wie erstelle eine Funktion, die diese Daten nimmt, suche nach dem Tag und dem Körper der Komponente, wenn es ein benutzerdefiniertes Element durch das Element database ersetzt, schaue es nach dem Ersetzen erneut an, wenn es neue Komponenten gibt, die diese Schritte ausführen wieder ...

Ich habe bereits eine Funktion (custom-compon ent?), die einen Tag-Namen und gibt einen booleschen nimmt, wenn ein Element Brauch ist:

(custom-component? :a) ;; false 
(custom-component? :test) ;; true 

Vielen Dank für jede Hilfe, ich bin wirklich auf diese stecken.

Answer 1

clojure hat eine besondere Möglichkeit, diese Aufgabe von fullfilling - Reißverschluss: http://josf.info/blog/2014/03/28/clojure-zippers-structure-editing-with-your-mind/

hier ein lückenhaftes Beispiel für Ihre Frage Lösung ist (ich habe eine weitere Komponente in Ihre database, füge auch rekursiv geschieht zu zeigen, dass ersetzen in eine neu hinzugefügte Komponente):

(require '[clojure.zip :as z]) 

(def example 
    [:div {} [[:custom2 {} []] 
      [:a {} []] 
      [:custom {} []]]]) 

(def database {:custom [[:a {} []] 
         [:div {} [[:custom2 {} [[:p {} []]]]]]] 
       :custom2 [[:span {} [[:form {} []]]]]}) 

(defn replace-tags [html replaces] 
    (loop [current (z/zipper 
        identity last 
        (fn [node items] 
        [(first node) (second node) (vec items)]) 
        html)] 
    (if (z/end? current) 
     (z/root current) 
     (if-let [r (-> current z/node first replaces)] 
     (recur (z/remove (reduce z/insert-right current (reverse r)))) 
     (recur (z/next current)))))) 

in repl:

user> (replace-tags example database) 
[:div {} [[:span {} [[:form {} []]]] 
      [:a {} []] 
      [:a {} []] 
      [:div {} [[:span {} [[:form {} []]]]]]]] 

aber Vorsicht: Es ist nicht Zyklen in Ihrem Ersatz nicht berechnen, wenn Sie also eine zirkuläre Abhängigkeit wie diese:

(def database {:custom [[:a {} []] 
         [:div {} [[:custom2 {} [[:p {} []]]]]]] 
       :custom2 [[:span {} [[:custom {} []]]]]}) 

es würde eine Endlosschleife erzeugen.