Browse Source

minor ui improvements

master
Christian Mueller 14 years ago
parent
commit
c1a7009986
  1. 4
      messages
  2. 2
      src-cljs/main.cljs
  3. 1
      src/NoteHub/views/css_generator.clj
  4. 4
      src/NoteHub/views/pages.clj

4
messages

@ -10,8 +10,8 @@ status-500 = OMG, Server Exploded.
created-by = Created by [@chmllr](http://twitter.com/chmllr) created-by = Created by [@chmllr](http://twitter.com/chmllr)
loading = Loading... loading = Loading...
set-passwd = Set password for editing: set-passwd = Password for editing
enter-passwd = Password: enter-passwd = Password
preview = Preview preview = Preview
publish = Publish publish = Publish
update = Save update = Save

2
src-cljs/main.cljs

@ -26,8 +26,8 @@
(def ios-detected (.match (.-userAgent js/navigator) "(iPad|iPod|iPhone)")) (def ios-detected (.match (.-userAgent js/navigator) "(iPad|iPod|iPhone)"))
(defn update-preview (defn update-preview
[]
"Updates the preview" "Updates the preview"
[]
(do (do
(show $dashed-line) (show $dashed-line)
(show $input-elems) (show $input-elems)

1
src/NoteHub/views/css_generator.clj

@ -82,6 +82,7 @@
(rule ".ui-elem" (rule ".ui-elem"
helvetica-neue helvetica-neue
(thin-border foreground) (thin-border foreground)
:padding :0.3em
:opacity 0.8 :opacity 0.8
:font-size :1em :font-size :1em
:background background) :background background)

4
src/NoteHub/views/pages.clj

@ -97,8 +97,8 @@
fields fields
(text-area {:class :max-width} :draft content) (text-area {:class :max-width} :draft content)
[:fieldset#input-elems {:class css-class} [:fieldset#input-elems {:class css-class}
(get-message passwd-msg) (text-field {:class "ui-elem" :placeholder (get-message passwd-msg)}
(text-field {:class "ui-elem"} :plain-password) :plain-password)
(submit-button {:class "button ui-elem" (submit-button {:class "button ui-elem"
:id :publish-button} (get-message command))])]))) :id :publish-button} (get-message command))])])))

Loading…
Cancel
Save