plain text hidden behind a function call (to make localization easier)
This commit is contained in:
Christian Mueller
@@ -1,5 +1,6 @@
|
||||
(ns NoteHub.views.common
|
||||
(:use
|
||||
[NoteHub.settings :only [get-message]]
|
||||
[NoteHub.views.css-generator]
|
||||
[noir.core :only [defpartial]]
|
||||
[hiccup.page :only [include-js html5]]
|
||||
@@ -10,7 +11,7 @@
|
||||
[params title & content]
|
||||
(html5
|
||||
[:head
|
||||
[:title "NoteHub — " title]
|
||||
[:title (print-str (get-message :name) "—" title)]
|
||||
[:link {:href
|
||||
(clojure.string/replace
|
||||
(str "http://fonts.googleapis.com/css?family="
|
||||
|
||||
@@ -54,12 +54,19 @@
|
||||
background-halftone (color theme :background-halftone)
|
||||
foreground-halftone (color theme :foreground-halftone)]
|
||||
(css
|
||||
(rule "a"
|
||||
:color :#097
|
||||
:text-decoration :none
|
||||
:border-bottom [:1px :dotted]
|
||||
(rule "&:hover"
|
||||
:color :#0a8)
|
||||
(rule "&:visited"
|
||||
:color :#054))
|
||||
(rule ".landing-button"
|
||||
:box-shadow [0 :2px :5px :#aaa]
|
||||
:text-decoration :none
|
||||
:font-size :1.5em
|
||||
:background :#0a2
|
||||
:color :white
|
||||
:border :none
|
||||
:border-radius :10px
|
||||
:padding :10px
|
||||
@@ -77,6 +84,7 @@
|
||||
(rule "td"
|
||||
:padding :0.5em)
|
||||
(rule ".one-third-column"
|
||||
:line-height (% 120)
|
||||
:text-align :justify
|
||||
:vertical-align :top
|
||||
; Replace this by arithmetic with css-lengths as soon as they fix the bug
|
||||
@@ -94,16 +102,19 @@
|
||||
:margin :2em))
|
||||
(rule "article"
|
||||
central-element
|
||||
:line-height (% 140)
|
||||
:font-family text-fonts
|
||||
:text-align :justify
|
||||
:font-size :1.2em
|
||||
(rule "p"
|
||||
:line-height (% 140))
|
||||
(rule "& > h1:first-child"
|
||||
:text-align :center
|
||||
:margin :2em))
|
||||
(rule ".centered"
|
||||
:text-align :center)
|
||||
(rule "pre"
|
||||
:border-radius :3px
|
||||
:padding :1em
|
||||
:padding :0.5em
|
||||
:border [:1px :dotted foreground-halftone]
|
||||
:background background-halftone)
|
||||
(rule "*:focus"
|
||||
@@ -129,7 +140,7 @@
|
||||
central-element)
|
||||
(rule "h1"
|
||||
:font-size :2em)
|
||||
(rule "#preview-start-line"
|
||||
(rule ".dashed-line"
|
||||
:border-bottom [:1px :dashed foreground-halftone]
|
||||
:margin-bottom :5em)
|
||||
(rule "h1, h2, h3, h4"
|
||||
|
||||
+33
-57
@@ -1,5 +1,6 @@
|
||||
(ns NoteHub.views.pages
|
||||
(:require [NoteHub.crossover.lib :as lib])
|
||||
(:require [NoteHub.crossover.lib :as lib]
|
||||
[clojure.contrib.string :as ccs])
|
||||
(:use
|
||||
[NoteHub.storage]
|
||||
[NoteHub.settings]
|
||||
@@ -34,23 +35,18 @@
|
||||
(layout params title [:article (md-to-html md-text)]))
|
||||
(status 404 (get-page 404))))
|
||||
|
||||
; Template for the error sites
|
||||
(defn page-setter [code message]
|
||||
; Sets a custom message for each corresponding HTTP status
|
||||
(doseq [code [400 404 500]]
|
||||
(set-page! code
|
||||
(layout message
|
||||
[:article
|
||||
[:h1 message]])))
|
||||
|
||||
; Sets a message for each corresponding HTTP status
|
||||
(page-setter 404 "Nothing Found.")
|
||||
(page-setter 400 "Bad request.")
|
||||
(page-setter 500 "OMG, Server Exploded.")
|
||||
(let [message (get-message (keyword (str "status-" code)))]
|
||||
(layout message
|
||||
[:article [:h1 message]]))))
|
||||
|
||||
; Routes
|
||||
; ======
|
||||
|
||||
; This function answers to a AJAX request: it gets a sesion key and markdown text.
|
||||
; IT return html version of the provided markdown and a new session key
|
||||
; It returns the html code of the provided markdown and a new session key.
|
||||
(defremote get-preview-md [session-key md]
|
||||
(when (flash-get session-key)
|
||||
{:session-key (get-flash-key)
|
||||
@@ -58,58 +54,38 @@
|
||||
|
||||
; Landing Page
|
||||
(defpage "/" {}
|
||||
(layout "Free Markdown Hosting"
|
||||
(layout (get-message :title)
|
||||
[:div#hero
|
||||
[:h1 "NoteHub"]
|
||||
[:h2 "Free and hassle-free hosting for markdown pages."]
|
||||
[:h1 (get-message :name)]
|
||||
[:h2 (get-message :title)]
|
||||
[:br]
|
||||
[:a.landing-button {:href "/new"} "New Page"]]
|
||||
[:div#preview-start-line]
|
||||
[:table.central-element.helvetica-neue
|
||||
[:tr
|
||||
[:td.one-third-column
|
||||
[:h2 "Why?"]
|
||||
"Not every person, who occasionally wants to express some thoughts, needs a blog.
|
||||
Blogs are <b>tedious</b> for writers and for readers. Most people are not interested in thoughts
|
||||
of other random people. Moreover, nowadays everything rotates around social networks and not
|
||||
individual blogs. It makes much more sense to publish something somewhere and to share
|
||||
the link with the audience on the community or social network of your choice, than to maintain a blog
|
||||
trying to keep your readers interested.
|
||||
<b>NoteHub</b> should be the place, where you can publish your thoughts without hassle."]
|
||||
[:td.one-third-column
|
||||
[:h2 "How to Use?"]
|
||||
"First create a new page using the markdown syntax. Now, besides just sharing the link, you can
|
||||
view some rudimentary statistics by appending <code>/stats</code> to the note url:
|
||||
<pre>notehub.org/.../title/stats</pre>
|
||||
If you want to export a note in the original Markdown format, append <code>/export</code>
|
||||
<pre>notehub.org/.../title/export</pre>
|
||||
And if you want, you also can invert the color scheme by appending <code>?theme=dark</code> to the note url.
|
||||
<pre>notehub.org/.../title?theme=dark</pre>"]
|
||||
[:td.one-third-column
|
||||
[:h2 "For Geeks!"]
|
||||
"NoteHub was an experiment and is implemented entirely in Clojure and ClojureScript. Its source code can
|
||||
be found on GitHub. Look at the code to find some undocumented NoteHub features (or bugs) and — feel free to contribute!
|
||||
(If you are interested in more detailed code overview, read the following note.) NoteHub's design
|
||||
is intentionally kept extremelly simple and minimalistic, and should stay like this.
|
||||
NoteHub's persistence layer bases on the key-value store redis.
|
||||
Currently, NoteHub is hosted for free on Heroku.
|
||||
Send your feedback and comments directly to @chmllr."]]]))
|
||||
[:a.landing-button {:href "/new" :style "color: white"} (get-message :new-page)]]
|
||||
[:div.dashed-line]
|
||||
[:table.central-element.helvetica-neue
|
||||
[:tr
|
||||
[:td.one-third-column
|
||||
[:h2 (get-message :column-why)] (md-to-html (get-message :column-why-long))]
|
||||
[:td.one-third-column
|
||||
[:h2 (get-message :column-how)] (md-to-html (get-message :column-how-long))]
|
||||
[:td.one-third-column
|
||||
[:h2 (get-message :column-geeks)] (md-to-html (get-message :column-geeks-long))]]]
|
||||
[:div.centered.helvetica-neue (md-to-html (get-message :created-by))]))
|
||||
|
||||
; New Note Page
|
||||
(defpage "/new" {}
|
||||
(layout {:js true} "New Markdown Note"
|
||||
(layout {:js true} (get-message :new-note)
|
||||
[:div.central-element
|
||||
(form-to [:post "/post-note"]
|
||||
(hidden-field :session-key (get-flash-key))
|
||||
(hidden-field {:id :session-value} :session-value)
|
||||
(text-area {:class :max-width} :draft "Loading...")
|
||||
(text-area {:class :max-width} :draft (get-message :loading))
|
||||
[:div#buttons.hidden
|
||||
(submit-button {:style "float: left"
|
||||
:class :button
|
||||
:id :publish-button} "Publish")
|
||||
:id :publish-button} (get-message :publish))
|
||||
[:button#preview-button.button {:type :button
|
||||
:style "float: right"} "Preview"]])]
|
||||
[:div#preview-start-line.hidden]
|
||||
:style "float: right"} (get-message :preview)]])]
|
||||
[:div#preview-start-line.dashed-line.hidden]
|
||||
[:article#preview]))
|
||||
|
||||
; Display the note
|
||||
@@ -127,14 +103,14 @@
|
||||
(defpage "/:year/:month/:day/:title/stat" {:keys [year month day title]}
|
||||
(let [views (get-views [year month day] title)]
|
||||
(if views
|
||||
(layout "Statistics"
|
||||
(layout (get-message :statistics)
|
||||
[:article.helvetica-neue
|
||||
[:table {:style "width: 100%"}
|
||||
[:tr
|
||||
[:td "Published"]
|
||||
[:td (get-message :published)]
|
||||
[:td (interpose "-" [year month day])]]
|
||||
[:tr
|
||||
[:td "Article views"]
|
||||
[:td (get-message :article-views)]
|
||||
[:td views]]]])
|
||||
(status 404 (get-page 404)))))
|
||||
|
||||
@@ -151,11 +127,11 @@
|
||||
(let [[year month day] (map #(+ (second %) (.get (Calendar/getInstance) (first %)))
|
||||
{Calendar/YEAR 0, Calendar/MONTH 1, Calendar/DAY_OF_MONTH 0})
|
||||
untrimmed-line (filter #(or (= \- %) (Character/isLetterOrDigit %))
|
||||
(-> draft (split #"\n") first (sreplace " " "-") lower-case))
|
||||
(-> draft ccs/split-lines first (sreplace " " "-") lower-case))
|
||||
trim (fn [s] (apply str (drop-while #(= \- %) s)))
|
||||
title-uncut (-> untrimmed-line trim reverse trim reverse)
|
||||
proposed-title (apply str (take (get-setting :max-title-length #(Integer/parseInt %) 80)
|
||||
title-uncut))
|
||||
max-length (get-setting :max-title-length #(Integer/parseInt %) 80)
|
||||
proposed-title (apply str (take max-length title-uncut))
|
||||
date [year month day]
|
||||
title (first (drop-while #(note-exists? date %)
|
||||
(cons proposed-title
|
||||
|
||||
Reference in New Issue
Block a user