From 59f65fbfbc1f04212827c49547b75a12c0e93a70 Mon Sep 17 00:00:00 2001
From: Christian Mueller <chmllr@me.com>
Date: Mon, 25 Jun 2012 20:50:44 +0200
Subject: [PATCH] iOS support added

---
 src-cljs/main.cljs                  | 10 +++++++++-
 src/NoteHub/views/css_generator.clj |  7 +++++--
 src/NoteHub/views/pages.clj         |  4 ++--
 3 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/src-cljs/main.cljs b/src-cljs/main.cljs
index ea188da..57c8dec 100644
--- a/src-cljs/main.cljs
+++ b/src-cljs/main.cljs
@@ -16,11 +16,17 @@
   [$id]
   (anim ($ :body) {:scrollTop ((js->clj (.offset $id)) "top")} 500))
 
+; try to detect iOS
+(def ios-detected (.match (.-userAgent js/navigator) "(iPad|iPod|iPhone)"))
+
 ; set focus to the draft textarea (if there is one)
 (when $draft
   (do
     (val $draft "")
-    (.focus $draft)))
+    ; foces setting is impossible in iOS, so we border the field instead
+    (if ios-detected
+      (.addClass $draft "ui-border")
+      (.focus $draft))))
 
 ; show the preview & publish buttons as soon as the user starts typing.
 (.keypress $draft
@@ -40,6 +46,8 @@
                      (show $preview-start-line)
                      (scroll-to $preview-start-line)))))))
 
+; when the publish button is clicked, compute the hash of the entered text and
+; provided session key and assign to the field session-value
 (.click ($ :#publish-button)
         (fn [e]
           (val ($ :#session-value) 
diff --git a/src/NoteHub/views/css_generator.clj b/src/NoteHub/views/css_generator.clj
index af4fefa..6fc7fe6 100644
--- a/src/NoteHub/views/css_generator.clj
+++ b/src/NoteHub/views/css_generator.clj
@@ -71,6 +71,9 @@
                   :color link-hover)
             (rule "&:visited"
                   :color link-visited))
+      (rule ".ui-border"
+            :border-radius :3px
+            :border [:1px :solid foreground])
       (rule ".landing-button"
             :box-shadow [0 :2px :5px :#aaa]
             :text-decoration :none
@@ -146,6 +149,7 @@
             :outline [:0px :none :transparent])
       (rule "textarea"
             :width (px page-width)
+            :border-radius :5px
             :font-family :Courier
             :font-size :1em
             :border :none
@@ -154,10 +158,9 @@
       (rule ".hidden"
             :display :none)
       (rule ".button"
-            :border-radius :3px
+            :-webkit-appearance :none
             helvetica-neue
             :cursor :pointer
-            :border [:1px :solid foreground]
             :opacity 0.8
             :font-size :1em
             :background background)
diff --git a/src/NoteHub/views/pages.clj b/src/NoteHub/views/pages.clj
index ca77655..fb1de93 100644
--- a/src/NoteHub/views/pages.clj
+++ b/src/NoteHub/views/pages.clj
@@ -96,9 +96,9 @@
                            (text-area {:class :max-width} :draft (get-message :loading))
                            [:div#buttons.hidden
                             (submit-button {:style "float: left"
-                                            :class :button 
+                                            :class "button ui-border"
                                             :id :publish-button} (get-message :publish))
-                            [:button#preview-button.button {:type :button 
+                            [:button#preview-button.button.ui-border {:type :button 
                                                             :style "float: right"} (get-message :preview)]])]
                  [:div#preview-start-line.dashed-line.hidden]
                  [:article#preview]))