lots of minor refactorings; landing page extended
This commit is contained in:
Christian Mueller
@@ -12,7 +12,7 @@
|
||||
; CSS Mixins
|
||||
(def page-width
|
||||
(mixin
|
||||
:width (get-setting :page-width :800px keyword)))
|
||||
:width (px (get-setting :page-width #(Integer/parseInt %) 800))))
|
||||
|
||||
(def helvetica-neue
|
||||
(mixin
|
||||
@@ -71,18 +71,32 @@
|
||||
:color foreground
|
||||
:margin 0
|
||||
:padding 0)
|
||||
(rule "table,tr,td"
|
||||
:margin 0
|
||||
:border :none)
|
||||
(rule "td"
|
||||
:padding :0.5em)
|
||||
(rule ".one-third-column"
|
||||
:text-align :justify
|
||||
:vertical-align :top
|
||||
; Replace this by arithmetic with css-lengths as soon as they fix the bug
|
||||
:width (px (quot (get-setting :page-width #(Integer/parseInt %) 800) 3)))
|
||||
(rule ".helvetica-neue"
|
||||
helvetica-neue)
|
||||
(rule "#hero"
|
||||
:padding-top :5em
|
||||
:padding-bottom :5em
|
||||
:text-align :center
|
||||
(rule "h1"
|
||||
:font-size :2.5em)
|
||||
(rule "h2"
|
||||
helvetica-neue))
|
||||
helvetica-neue
|
||||
:margin :2em))
|
||||
(rule "article"
|
||||
central-element
|
||||
:line-height (% 140)
|
||||
:font-family text-fonts
|
||||
:text-align :justify
|
||||
:font-size :1.2em
|
||||
(rule "& > h1:first-child"
|
||||
:text-align :center
|
||||
@@ -97,9 +111,8 @@
|
||||
(rule "textarea"
|
||||
page-width
|
||||
:font-family :Courier
|
||||
:font-size :1.2em
|
||||
:font-size :1em
|
||||
:border :none
|
||||
; TODO: make this dynamic
|
||||
:height :500px
|
||||
:margin-bottom :2em)
|
||||
(rule ".hidden"
|
||||
|
||||
+65
-35
@@ -1,9 +1,9 @@
|
||||
(ns NoteHub.views.pages
|
||||
(:require [NoteHub.views.common :as common])
|
||||
(:require [NoteHub.crossover.lib :as lib])
|
||||
(:use
|
||||
[NoteHub.storage]
|
||||
[NoteHub.settings]
|
||||
[NoteHub.views.common]
|
||||
[clojure.string :rename {replace sreplace} :only [split replace lower-case]]
|
||||
[clojure.core.incubator :only [-?>]]
|
||||
[hiccup.form]
|
||||
@@ -31,15 +31,15 @@
|
||||
(defn- wrap [params md-text]
|
||||
(if md-text
|
||||
(let [title (-?> md-text (split #"\n") first (sreplace #"[_\*#]" ""))]
|
||||
(common/layout params title [:article (md-to-html md-text)]))
|
||||
(layout params title [:article (md-to-html md-text)]))
|
||||
(status 404 (get-page 404))))
|
||||
|
||||
; Template for the error sites
|
||||
(defn page-setter [code message]
|
||||
(set-page! code
|
||||
(common/layout message
|
||||
[:article
|
||||
[:h1 message]])))
|
||||
(layout message
|
||||
[:article
|
||||
[:h1 message]])))
|
||||
|
||||
; Sets a message for each corresponding HTTP status
|
||||
(page-setter 404 "Nothing Found.")
|
||||
@@ -58,29 +58,59 @@
|
||||
|
||||
; Landing Page
|
||||
(defpage "/" {}
|
||||
(common/layout "Free Markdown Hosting"
|
||||
[:div#hero
|
||||
[:h1 "NoteHub"]
|
||||
[:h2 "Free hosting for markdown pages."]
|
||||
[:br]
|
||||
[:a.landing-button {:href "/new"} "New Page"]]))
|
||||
(layout "Free Markdown Hosting"
|
||||
[:div#hero
|
||||
[:h1 "NoteHub"]
|
||||
[:h2 "Free and hassle-free hosting for markdown pages."]
|
||||
[: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."]]]))
|
||||
|
||||
; New Note Page
|
||||
(defpage "/new" {}
|
||||
(common/layout {:js true} "New Markdown 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...")
|
||||
[:div#buttons.hidden
|
||||
(submit-button {:style "float: left"
|
||||
:class :button
|
||||
:id :publish-button} "Publish")
|
||||
[:button#preview-button.button {:type :button
|
||||
:style "float: right"} "Preview"]])]
|
||||
[:div#preview-start-line.hidden]
|
||||
[:article#preview]))
|
||||
(layout {:js true} "New Markdown 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...")
|
||||
[:div#buttons.hidden
|
||||
(submit-button {:style "float: left"
|
||||
:class :button
|
||||
:id :publish-button} "Publish")
|
||||
[:button#preview-button.button {:type :button
|
||||
:style "float: right"} "Preview"]])]
|
||||
[:div#preview-start-line.hidden]
|
||||
[:article#preview]))
|
||||
|
||||
; Display the note
|
||||
(defpage "/:year/:month/:day/:title" {:keys [year month day title theme header-font text-font] :as params}
|
||||
@@ -97,15 +127,15 @@
|
||||
(defpage "/:year/:month/:day/:title/stat" {:keys [year month day title]}
|
||||
(let [views (get-views [year month day] title)]
|
||||
(if views
|
||||
(common/layout "Statistics"
|
||||
[:article.helvetica-neue
|
||||
[:table {:style "width: 100%"}
|
||||
[:tr
|
||||
[:td "Published"]
|
||||
[:td (interpose "-" [year month day])]]
|
||||
[:tr
|
||||
[:td "Article views"]
|
||||
[:td views]]]])
|
||||
(layout "Statistics"
|
||||
[:article.helvetica-neue
|
||||
[:table {:style "width: 100%"}
|
||||
[:tr
|
||||
[:td "Published"]
|
||||
[:td (interpose "-" [year month day])]]
|
||||
[:tr
|
||||
[:td "Article views"]
|
||||
[:td views]]]])
|
||||
(status 404 (get-page 404)))))
|
||||
|
||||
; New Note Posting
|
||||
@@ -124,7 +154,7 @@
|
||||
(-> draft (split #"\n") 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 80 #(Integer/parseInt %))
|
||||
proposed-title (apply str (take (get-setting :max-title-length #(Integer/parseInt %) 80)
|
||||
title-uncut))
|
||||
date [year month day]
|
||||
title (first (drop-while #(note-exists? date %)
|
||||
|
||||
Reference in New Issue
Block a user