如何减少下面Clojure代码中的重复项？

Question

我有一个以下Clojure的代码渲染功能使用enlive-HTML这使得一个HTML页面。根据所选语言，使用不同的html模板。

正如你可以看到，有很多重复的代码，我想将其删除。

我正在考虑编写一些宏，但如果我理解正确，语言（即lang参数）在宏执行时不可用，因为它在请求中提供，并且处于执行时并且不处于编译时。

我还试图修改enlive为了在以后的某个点添加国际化支持，但我Clojure的技能还没有。

所以问题是：

如何删除在下面的代码的代码重复？

是enlive-HTML的方式去还是我应该用另一个库？ 有没有类似于支持i18n的图书馆？

谢谢！

在这里看到的代码：

(ns myapp.core 
    (:require [net.cgrand.enlive-html :as e)) 

(deftemplate not-found-en "en/404.html" 
    [{path :path}] 
    [:#path] (e/content path)) 

(deftemplate not-found-fr "fr/404.html" 
    [{path :path}] 
    [:#path] (e/content path)) 


(defn getTemplate [page lang] 
    (case lang 
     :en (case page 
       :page/not-found not-found-en) 
     :fr (case page 
       :page/not-found not-found-fr))) 

(defn render [lang [page params]] 
    (apply (getTemplate page lang) params)) 

Answer 1

，一方面，它不是太难写一个宏，将产生你这里的语言任意设定确切的代码。在另一方面，有可能是比使用deftemplate一个更好的方法 - 事情是def d的事情，你希望通过名称来引用的源代码，而你只是想这件事创建并自动使用。但我并不熟悉有效的API，所以我不能说你应该做什么。

如果你决定与宏坚持相反，你可以写这样的：

(defmacro def-language-404s [languages] 
    `(do 
    ~@(for [lang languages] 
     `(deftemplate ~(symbol (str "not-found-" lang)) ~(str lang "/404.html") 
      [{path# :path}] 
      [:#path] (e/content path#))) 
    (defn get-template [page# lang#] 
     (case page# 
     :page/not-found (case lang# 
          ~@(for [lang languages 
            clause [(keyword lang) 
              (symbol (str "not-found-" lang))]] 
           clause)))))) 

user> (macroexpand-1 '(def-language-404s [en fr])) 
(do 
    (deftemplate not-found-en "en/404.html" 
    [{path__2275__auto__ :path}] 
    [:#path] (content path__2275__auto__)) 
    (deftemplate not-found-fr "fr/404.html" 
    [{path__2275__auto__ :path}] 
    [:#path] (content path__2275__auto__)) 
    (defn get-template [page__2276__auto__ lang__2277__auto__] 
    (case page__2276__auto__ 
     :page/not-found (case lang__2277__auto__ 
         :en not-found-en 
         :fr not-found-fr)))) 

Answer 2

颇有几分宏孚的我给我很高兴与结果之后。从几个漂亮的stackoverflowers一些帮助我写的enlive顶部以下宏：

(ns hello-enlive 
    (:require [net.cgrand.enlive-html :refer [deftemplate]])) 

(defn- template-name [lang page] (symbol (str "-template-" (name page) "-" (name lang) "__"))) 
(defn- html-file [lang page] (str (name lang) "/" (name page) ".html")) 
(defn- page-fun-name [page] (symbol (str "-page" (name page)))) 

(defmacro def-page [app languages [page & forms]] 
    `(do 
    ~@(for [lang languages] 
     `(deftemplate ~(template-name lang page) ~(html-file lang page) 
      ~@forms)) 

     (defn ~(page-fun-name page) [lang#] 
     (case lang# 
      ~@(for [lang languages 
        clause [(keyword lang) (template-name lang page)]] 
       clause))) 

     (def ^:dynamic ~app 
     (assoc ~app ~page ~(page-fun-name page))) 
    )) 

(defmacro def-app [app-name languages pages] 
    (let [app (gensym "app__")] 
    `(do 
     (def ~(vary-meta app merge {:dynamic true}) {}) 

     ~@(for [page# pages] 
      `(def-page ~app ~languages ~page#)) 

     (defn ~app-name [lang# [page# params#]] 
     (apply (apply (get ~app page#) [lang#]) params#))))) 

...然后用于这样的：

的HTML模板存储在一个树这样

html/fr/not-found.html 
html/fr/index.html 
html/en/not-found.html 
html/en/index.html 
... 

...并呈现逻辑是这样的：

(def-app my-app [:en :it :fr :de] 
    [ [:page/index [] ] 

    ;... put your rendering here 

    [:page/not-found [{path :path}] 
     [:#path] (content path)]]) 

。 ..和使用情况是这样的：

... 
(render lang [:page/index {}]) 
(render lang [:page/not-found {:path path}]) 
... 

结果，尽管它或许可以得到改善，我认为这是相当不错的，不重复和样板代码。