11

我正在创建一个黑色 web 应用程序，我需要动态创建新的视图和模型。我一直在关注黑色示例，其中资源的视图和控制器具有单独的命名空间，我发现它是一种非常干净的方法。

为此，我需要能够动态地创建与视图和模型对应的新命名空间，然后在其中实习适当的函数。我的想法是在单独的命名空间中指定宏，当在新命名空间中调用时，将提供适当的路由/部分/任何内容。

例如（原谅我的第一个 defmacro）：

(ns project.views.proto
  (:use noir.core
        hiccup.core
        hiccup.element
        hiccup.form))

(defmacro def-all-page
  [path]
  `(defpage ~path []
     (html
      [:h1 "Ya'll here"])))

被称为...

(ns project.proto
   (:use [clojure.contrib.with-ns :only [with-ns]])

(create-ns 'foo)
(intern 'foo 'path "path")  ; In reality, the path is dynamic which is why I intern it
(with-ns 'foo
    (clojure.core/refer-clojure)
    (use 'noir.core
         'hiccup.core
         'hiccup.element
         '[project.views.proto :only [def-all-page]])

    (def-all-page path)

但是，从我的新命名空间中调用它会给我一个 NullPointerException。我非常感谢任何帮助，以及是否有更好的方法。就像，只使用引用包含所有必要定义的命名空间？

第一次发帖，我不认为这是重复的。谢谢！

4

1 回答 1

1

首先，这个问题已经有点过时了。Noir 和 Clojure 都在过去一年中不断发展。为了清楚起见，我将把 Noir 排除在外，并尝试回答您有关使用宏动态创建函数的问题。

跟随 REPL：

$ lein repl
user=> (in-ns 'foo)
#<Namespace foo>
foo=> (clojure.core/refer-clojure)
nil
foo=> (defmacro say-hello-to
 #_=>           [name]
 #_=>           `(defn ~(symbol (str "hello-" name))
 #_=>                  []
 #_=>                  ~(str "hello: " name)))
#'foo/say-hello-to

在这里，我们创建了一个命名空间“foo”，其中包含一个用于定义“hello-yourname”函数的宏。让我们创建另一个命名空间：

foo=> (in-ns 'bar)
#<Namespace bar>
bar=> (clojure.core/refer-clojure)
nil
bar=> (refer 'foo :only '[say-hello-to])
nil
bar=> (say-hello-to "tom") 
#'bar/hello-tom
bar=> (say-hello-to "jerry") 
#'bar/hello-jerry

让我们看看这些是否真的有效：

bar=> (hello-tom)
"hello: tom"
bar=> (hello-jerry)
"hello: jerry"

我认为这与您的原始示例非常接近。

希望这可以帮助！

于 2013-10-27T22:33:26.950 回答