小编jtm*_*lia的帖子

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

为此,我需要能够动态创建与视图和模型相对应的新命名空间,然后在其中实现相应的功能.我的想法是在一个单独的命名空间中指定宏,当在新命名空间中调用时,它将提供适当的路由/部分/其他.

例如(原谅我的第一个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.我非常感谢任何帮助,以及是否有更好的方法.就像,只使用引用包含所有必要定义的命名空间？

第一篇文章,我不认为这是一个重复此.谢谢!