1

我需要从输出打嗝的 edn 文件中读取 clojure 函数以生成 html 内容。但我被困在需要评估函数的部分。我收到错误消息：

java.lang.RuntimeException: Unable to resolve symbol: fn in this context, compiling:(null:1:1)

((eval (read-string "(fn [] (list [:div\"Hello\"]))")))

和

((load-string "(fn [] (list [:div\"Hello\"]))"))

在 clojure REPL 中工作并输出预期结果

([:div "Hello"])

项目.clj

(defproject infocenter "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [org.clojure/clojurescript "1.9.225"]
                 [hiccup "1.0.5"]]
  :plugins [[lein-figwheel "0.5.4-7"]]
  :clean-targets ^{:protect false} [:target-path "out" "resources/public/cljs"]
  :cljsbuild {
              :builds [{:id "dev"
                        :source-paths ["src"]
                        :figwheel true
                        :compiler {:main "templ.core"
                                   :asset-path "cljs/out"
                                   :output-to  "resources/public/cljs/main.js"
                                   :output-dir "resources/public/cljs/out"}}]}
  :figwheel {
             :css-dirs ["resources/public/template"]})

核心.cljs

(ns templ.core
  (:require-macros [templ.edn :refer [read-edn]]))
(let [div (. js/document getElementById "content")]
     (set! (. div -innerHTML) (read-edn "fn.edn")))

edn.clj

(ns templ.edn
  (:use [hiccup core form]))

(defmacro read-edn
  "Read template from file in resources/"
  [edn-name]
  ;(slurp edn-name)
  ;((eval (read-string "(fn [] (list [:div\"Hello\"]))")))
  ((load-string "(fn [] (list [:div\"Hello\"]))"))
  )
4

1 回答 1

0

尝试这个：

(ns xyz.core
  (:gen-class))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "main - enter")
  (println (eval '(+ 2 3)))
  (println ((eval (read-string "(fn [] (list [:div\"Hello\"]))"))))
  (println "main - exit")
)

结果：

> lein run
main - enter
5
([:div Hello])
main - exit

这只是普通的 Clojure，我看到您也在使用 CLJS。您的设置中的 CLJS 部分可能存在一些问题。你想用read-ednand做fn.edn什么？我会尽可能完全避免使用宏。

于 2016-08-26T14:53:22.533 回答