3

forループを持つネストされたletステートメントを使用している場合を除いてinnerを実行することはできません[:tr]。(do (html5 ..))

(defpartial column-settings-layout [& content]

  (html5
    [:head
     [:title "my-noir-proj"]
            (include-css "assets/css/bootstrap.css")
     ]
    [:body
     [:div
      [:div
      [:image {:src "assets/img/ceva.gif" :alt "ceva-logo"}]
        (toolbar)
        ]
     [:div {:style "overflow: auto; overflow-x: hidden"}
          content]      
      [:form {:id "col_settings_form" :name "col_settings_form" :method="post" :enctype="multipart/form-data"}
       [:input {:type "button" :value "Save" :onclick "ajaxWithSerialize('save_cols_response_div','/save_cols_settings',$(col_settings_form).serialize());"}]
       [:table {:class "table-striped" :border "1"}

            [:tr [:td {:id "processing_status" }  ][:td {:id "save_cols_response_div" :colspan 6}  ]]
            [:tr [:td ][:td {:colspan "3"} "SP" ] [:td {:colspan "3"} "WP"]]
            (let [wp_settings (session/get :wp_settings)
                 sp_settings (session/get :sp_settings)]

                (do (html5 [:tr [:td {:colspan "7"} "jhyghjghj"]]))
                    (for [col (:all_cols (session/get :setting_doc))]
                      (let 
                        [
                         dest_station (keyword (session/get :dest_station))
                         ;col_nm  (:col_nm (nth col 1))
                         field_nm  (nth col 0)                   
                         sp_col_nm (:col_nm (field_nm (dest_station sp_settings)))
                         wp_col_nm (:col_nm (field_nm (dest_station wp_settings)))                                
                         sp_editable (:editable (field_nm (dest_station sp_settings)))
                         wp_editable (:editable (field_nm (dest_station wp_settings)))

                         ]   
                        (do (html5 [:tr[:td "sfsdfgfds"]] 
                          [:tr 
                           [:th { :align "right"  :class "input-small" } field_nm ] 
                           [:td {:title sp_editable }[:input {:type "text" :class "input-large" :name (str "page_sp[" dest_station "][" field_nm "][col_nm]")  :value sp_col_nm } ] ] 
                           [:td [:input {:type "checkbox" :name (str "page_sp[" dest_station "][" field_nm "][col_nm]") :value field_nm}]]
                         [:td [:input {:type "checkbox" :name (str "page_sp[" dest_station "][" field_nm "][editable]") :value field_nm}]]
                         [:td {:title wp_editable }[:input {:type "text" :class "input-large" :name (str "page_wp[" dest_station "][" field_nm "][col_nm]")  :value wp_col_nm} ] ] 
                           [:td [:input {:type "checkbox" :name (str "page_wp[" dest_station "][" field_nm "][col_nm]") :value field_nm}]] 
                         [:td [:input {:type "checkbox" :name (str "page_wp[" dest_station "][" field_nm "][editable]") :value field_nm}]]
                          ]))
                  )
                    )

            )
       ]
       ]
         (footer)

    ;my includes of js and css
    ]]))
4

2 に答える 2

3

あなたの問題は、次のようなことをしようとしている可能性があります

[:tr (for ... [:td .])]

その結果、無効なヒカップ形式が発生します

[:tr [[:td ..] [:td ..] ..]] ; note the vector of vectors inside the :tr

しゃっくりが期待する場所

[:tr [:td ..] [:td ..] ..] ; :td vectors are direct elements of :tr

期待されるフォーマットを取得するには、次のようなものが必要です

(into [:tr] (for ... [:td .]))

更新: (html..) コンストラクトもこの問題を修正する理由は、フォーマットされたヒカップ タグのシーケンス全体が単一の HTML 文字列に変換されるためです。そして、あなたはドロップすることができますdo- それは何も役に立ちません。

于 2012-03-21T14:17:44.013 に答える
2

代わりに書きたい

(html5 
 [:tr ...]
 (for ...))

または単に

(cons [:tr ...]
      (for ...])

do副作用のためのものであり、しゃっくりは純粋に機能的であり、副作用はありません. doを使用して副作用をグループ化する代わりに、リストを使用してドキュメント要素をグループ化します。

于 2012-03-21T19:17:33.030 に答える