iOS support added

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) 

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)

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]))