Browse Source

landing finished

master
Christian Mueller 14 years ago
parent
commit
c9afa031a2
  1. 2
      README.md
  2. 3
      project.clj
  3. 48
      src/NoteHub/views/common.clj
  4. 9
      src/NoteHub/views/pages.clj

2
README.md

@ -1,6 +1,6 @@
# NoteHub # NoteHub
NoteHub is a free and anonymous hosting of markdown pages. It can be used for publishing of formated text. For instance, this service might be interesting for people, who want to publish something, but don't want to start a blog. NoteHub is a free and anonymous hosting for markdown pages. It can be used for publishing of markdown-formatted text. For instance, this service might be interesting to people, who want to publish something, but don't want to start a blog.
## Writing ## Writing

3
project.clj

@ -1,7 +1,8 @@
(defproject NoteHub "0.1.0-SNAPSHOT" (defproject NoteHub "0.1.0-SNAPSHOT"
:description "A free and anonymous hosting for markdown pages." :description "A free and anonymous hosting for markdown pages."
:dependencies [[org.clojure/clojure "1.4.0"] :dependencies [[org.clojure/clojure "1.4.0"]
[hiccup "1.0.0"]
[cssgen "0.2.6"] [cssgen "0.2.6"]
[noir "1.2.1"]] [noir "1.3.0-beta1"]]
:main NoteHub.server) :main NoteHub.server)

48
src/NoteHub/views/common.clj

@ -1,16 +1,50 @@
(ns NoteHub.views.common (ns NoteHub.views.common
(:use [noir.core :only [defpartial]] (:use [noir.core :only [defpartial]]
[hiccup.page-helpers :only [include-css html5]])) [hiccup.page :only [include-css html5]]))
(use 'cssgen) (use 'cssgen)
(defn gen-comma-list [fonts] (apply str (interpose "," fonts)))
(def global-css (css
(rule ".centerized"
:text-align :center)
(rule ".helvetica-neue"
:font-weight 300
:font-family (gen-comma-list ["'Helvetica Neue'"
"Helvetica"
"Arial"
"'Lucida Grande'"
"sans-serif"]))
(rule "button"
:margin :2em
:font-size :1.5em
:background :#0a2
:color :white
:border :none
:border-radius :10px
:padding :10px)
(rule "html, body"
:color :#333
:margin 0
:padding 0)
(rule "#hero"
:padding-top :5em
:padding-bottom :5em
:border-bottom [:1px :solid :gray]
:text-align :center)
(rule "#body"
:margin-left "auto"
:margin-right "auto"
:width "1000px")
(rule "h1, h2, h3, h4" :font-family "'Noticia Text'")))
(defpartial layout [& content] (defpartial layout [& content]
(html5 (html5
[:head [:head
[:title "NoteHub"] [:title "NoteHub"]
[:style {:type "text/css"} [:link {:href "http://fonts.googleapis.com/css?family=Noticia+Text:400,700"
(css (rule "h1" :font-family "Impact"))] :rel "stylesheet"
] :type "text/css"}]
[:style {:type "text/css"} global-css]]
[:body [:body
; TODO: replace wrapper with smth content]))
[:div#wrapper
content]]))

9
src/NoteHub/views/pages.clj

@ -5,5 +5,12 @@
(defpage "/" [] (defpage "/" []
(common/layout (common/layout
[:h1 "Welcome to NoteHub"])) [:div#hero
[:h1 "NoteHub"]
[:h2.helvetica-neue "Free hosting for markdown pages."]
[:button.helvetica-neue "Create Page"]]
[:div#body
[:p.centerized.helvetica-neue
(interpose (repeat 10 "&nbsp")
["About" "How to use" "Impressum"])]]))

Loading…
Cancel
Save