问题:Enlive 片段制作时髦的 HTML
问题的视觉参考:http: //i.imgur.com/FIOzgZv.png
请参阅代码片段底部以了解有问题的奇怪 HTML
(ns notebook.handler
(:require [compojure.core :refer :all]
[compojure.handler :as handler]
[compojure.route :as route]
[net.cgrand.enlive-html :as html]))
(html/defsnippet nav "templates/nav.html" [:*]
[])
(html/deftemplate home-page "templates/base.html"
[]
[:body] (html/prepend (nav)))
(defroutes app-routes
(GET "/" [] (home-page))
(route/resources "/")
(route/not-found "Not Found"))
(def app
(handler/site app-routes))
base.html 的内容:
<html>
<head>
<link rel=stylesheet href="css/base.css">
</head>
<body>
</body>
</html>
nav.html 的内容:
<nav>
<ul>
<li>FlatNotes</li>
</ul>
</nav>
访问 localhost:3000 时的 HTML:
<html>
<head>
<link href="css/base.css" rel="stylesheet" />
</head>
<body><nav>
<ul>
<li>FlatNotes</li>
</ul>
</nav><ul>
<li>FlatNotes</li>
</ul><li>FlatNotes</li>
</body>
</html>
(reduce str (html/emit* (nav)))
显示奇怪的 HTML 意味着问题发生在defsnippet
之前deftemplate
:
"<nav>\n <ul>\n\t<li>FlatNotes</li>\n </ul>\n\n</nav><ul>\n\t<li>FlatNotes</li>\n </ul><li>FlatNotes</li>"
也许我弄错了什么[:*]
,或者有一个根本的误解,或者有一个我不知道的陷阱。我已经将代码减少到尽可能少,所以 lolidk。