links panel improved

This commit is contained in:
Christian Mueller
2014-01-25 22:12:32 +01:00
parent 32238ff298
commit 4a395fe167
3 changed files with 13 additions and 14 deletions
+1
View File
@@ -22,6 +22,7 @@ views = Article Views
statistics = Statistics
stats = statistics
export = export
notehub = notehub
edit = edit
short-url = short url
api-title = API
+4 -8
View File
@@ -87,18 +87,14 @@ a:visited {
.landing-button:hover {
background: #0b2;
}
#panel {
#links {
.helvetica;
position: fixed;
width: 100%;
border-top: 1px dotted @foreground_halftone;
background: @background_halftone;
padding: 0.2em;
bottom: 0px;
font-size: 0.7em;
padding: 1em;
font-size: 0.8em;
text-align: center;
}
#panel a {
#links a {
border: none;
}
html, body {
+7 -5
View File
@@ -105,14 +105,16 @@
(let [note (api/get-note noteID)]
(layout (:title note)
(md-node :article.bottom-space (:note note))
(let [links (map #(link-to
(if (= :short-url %)
(api/url (storage/create-short-url noteID params))
(let [urls {:short-url (api/url (storage/create-short-url noteID params))
:notehub "/"}
links (map #(link-to
(if (urls %)
(urls %)
(str (:longURL note) "/" (name %)))
(get-message %))
[:stats :edit :export :short-url])
[:notehub :stats :edit :export :short-url])
links (interpose [:span.middot "·"] links)]
[:div#panel (map identity links)]))))))
[:div#links links]))))))
(defpage "/:year/:month/:day/:title/export" {:keys [year month day title]}
(when-let [md-text (:note (api/get-note (api/build-key [year month day] title)))]