4

ネストされたマップをウォークスルーする問題を解決する jQuery タイプの関数はありますか?

たとえば、次のような構成があるとします。

  (def fig
    {:config
      {:example
        {:a "a"
         :b "b"
         :c "c"}
       :more
        {:a "a"
         :b "b"
         :c "c"}}})

私はまだ、ネストされた永続データ構造を assoc と dissoc で操作する優れた方法を見つけていません。ただし、jqueryマップを操作するスタイルがあれば、次のようなコードを記述できます。

  (->  fig
    ($ [:config :example :a] #(str % "a"))
    ($ [:config :b] #(str % "b")))

  Giving this output:

  {:config
    {:example
      {:a "aa"
       :b "bb"
       :c "c"}
     :more
      {:a "a"
       :b "bb"
       :c "c"}}}

セレクターの場合は次のようになります。

($ fig [:config :example :a])
  ;=> "a"

($ fig [:config :b])
  ;=> {[:config :example :b] "b", 
  ;    [:config :more :b] "b"}

jayqつまり、本質的に、html dom の代わりに clojure オブジェクトを操作するための実装を探しています。

前もって感謝します！

4

2 に答える 2

6

update-inネストされたマップを更新するための優れた機能です。 

user> (def data {:config
{:example  {:a "a" :b "b" :c "c"}}
 :more {:a "a" :b "b" :c "c"}})

user> (pprint (update-in data [:config :example] assoc :d 4))

{:config {:example {:a "a", :c "c", :b "b", :d 4}},
 :more {:a "a", :c "c", :b "b"}}

assoc-inあなたが望むものに少し近いかもしれません

user> (pprint (assoc-in data [:config :example :d] 4))
{:config {:example {:a "a", :c "c", :b "b", :d 4}},
 :more {:a "a", :c "c", :b "b"}}

値を変更せずに読み取るには、キーワードがマップで自分自身を検索するという事実を利用して、jquery フォームよりもさらにコンパクトなフォームを記述できます。

user> (-> data :config :example :a)
"a"
于 2012-06-29T19:23:43.417 に答える
4

まず、Enlive をチェックしてください。

それ以外の場合: jQuery が行うことを実行したい場合 (もちろん非常に単純化されています) - ただ update-in を呼び出すのではなく:

選択する：

(defn clj-query-select [obj path]
  (if (empty? path)
    (list obj)
    (when (map? obj)
      (apply concat
        (remove nil? 
          (for [[key value] obj]
            (clj-query-select
              value 
              (if (= key (first path)) (rest path) path))))))))

電話の場合:

(clj-query-select {:a {:b 1} :b 2} [:b])

それは得られるはずです：

(1 2)

更新/置換:

(defn clj-query-update [obj path fn]
  (if (empty? path)
    (fn obj)
    (if (map? obj)
      (into obj
        (remove nil?
          (for [[key value] obj]
            (let [res (clj-query-update 
                        value 
                        (if (= key (first path)) (rest path) path)
                        fn)]
          (when (not= res value) [key res])))))
      obj)))

電話の場合:

(clj-query-update {:c {:a {:b 1} :b 2}} [:c :b] #(* % 2))

それは得られるはずです：

{:c {:a {:b 2} :b 4}}

私はそれを徹底的にテストしませんでした。

于 2012-06-29T20:47:12.570 に答える