working example

Author: doppioslash

project.clj

@@ -13,8 +13,7 @@
   :javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"]
 
   :dependencies [[org.clojure-android/clojure "1.6.0-RC1" :use-resources true]
-                 [neko/neko "3.0.1"]
-                 [adamwynne/feedparser-clj "0.5.2"]]
+                 [neko/neko "3.0.1"]]
 
   :plugins [[cider/cider-nrepl "0.7.0"]]
 

src/clojure/com/doppioslash/androidtut/main.clj

@@ -1,13 +1,39 @@
 (ns com.doppioslash.androidtut.main
   (:use [neko.activity]
         [neko.threading :only [on-ui]]
-        [neko.ui :only [make-ui]]))
+        [neko.ui :only [make-ui config]]))
+
+(declare ^android.widget.LinearLayout mylayout)
+(declare add-text)
+
+(def lines  (atom ""))
+
+(defn get-elmt [elmt]
+  (str (.getText (elmt (.getTag mylayout)))))
+
+(defn set-elmt [elmt s]
+  (on-ui (config (elmt (.getTag mylayout)) :text s)))
+
+(defn update-ui []
+  (set-elmt ::lines @lines)
+  (set-elmt ::edit ""))
+
+(defn add-text []
+  (swap! lines str (get-elmt ::edit) "\n")
+  (update-ui))
+
+
+(def main-layout [:linear-layout {:orientation :vertical
+                                 :id-holder true 
+                                 :def `mylayout}
+                  [:edit-text {:hint "Write here",:id ::edit}]
+                  [:button {:text "Add text" :on-click (fn [_](add-text))}]
+                  [:text-view {:text @lines,:id ::lines}]])
 
 (defactivity com.doppioslash.androidtut.Reader
   :def a
   :on-create
   (fn [this bundle]
     (on-ui
      (set-content-view! a
-      (make-ui [:linear-layout {}
-                [:text-view {:text "Hello from Clojure!"}]])))))
+      (make-ui main-layout)))))