You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
2.9 KiB
67 lines
2.9 KiB
(ns NoteHub.views.common |
|
(:use |
|
[NoteHub.settings :only [get-message]] |
|
[noir.core :only [defpartial]] |
|
[noir.options :only [dev-mode?]] |
|
[hiccup.util :only [escape-html]] |
|
[ring.util.codec :only [url-encode]] |
|
[hiccup.core] |
|
[hiccup.page :only [include-js html5]] |
|
[hiccup.element :only [javascript-tag]])) |
|
|
|
(defn url |
|
"Creates a local url from the given substrings" |
|
[& args] |
|
(apply str (interpose "/" (cons "" (map url-encode args))))) |
|
|
|
; Creates the main html layout |
|
(defpartial generate-layout |
|
[params title & content] |
|
; for the sake of security: escape all symbols of the param values |
|
(let [params (into {} (for [[k v] params] [k (escape-html v)])) |
|
theme (:theme params "default")] |
|
(html5 |
|
[:head |
|
[:title (print-str (get-message :name) "—" title)] |
|
[:meta {:charset "UTF-8"}] |
|
; generating a link to google's webfonts |
|
[:link {:href |
|
(clojure.string/replace |
|
(str "http://fonts.googleapis.com/css?family=" |
|
(apply |
|
str |
|
(interpose "|" |
|
; ugly thing, but it cannot be avoided since these |
|
; fonts have to be loaded (independently of CSS) |
|
(concat ["PT+Serif:700" "Noticia+Text:700"] |
|
(vals (select-keys params |
|
[:header-font :text-font]))))) |
|
"&subset=latin,cyrillic") " " "+") |
|
:rel "stylesheet" |
|
:type "text/css"}] |
|
[:link {:rel "stylesheet/less" :type "text/css" :href "/style.less"}] |
|
(html |
|
(include-js "/js/less.js") |
|
(include-js "/js/md5.js") |
|
(include-js "/js/marked.js") |
|
(include-js "/js/main.js") |
|
(include-js "/js/themes.js") |
|
(javascript-tag (str "less.modifyVars({ |
|
'@background': themes['" theme "'].background.normal, |
|
'@background_halftone': themes['" theme "'].background.halftone, |
|
'@foreground': themes['" theme "'].foreground.normal, |
|
'@foreground_halftone': themes['" theme "'].foreground.halftone, |
|
'@link_fresh': themes['" theme "'].link.fresh, |
|
'@link_visited': themes['" theme "'].link.visited, |
|
'@link_hover': themes['" theme "'].link.hover});"))) |
|
; google analytics code should appear in prod mode only |
|
(if-not (dev-mode?) (include-js "/js/google-analytics.js"))] |
|
[:body {:onload "loadPage()"} content]))) |
|
|
|
(defn layout |
|
"Generates the main html layout" |
|
[& args] |
|
; if some parameter weren't added we provide an empty map |
|
(if (map? (first args)) |
|
(apply generate-layout args) |
|
(apply generate-layout {} args)))
|
|
|