src/clojure/io/cons/carddav_sync/main.clj


1
2
3
4
5
6
7
8
9
10
11
12
13

(ns io.cons.carddav_sync.main
  (:use [neko.activity :only [defactivity set-content-view!]]
        [neko.threading :only [on-ui]]
        [neko.ui :only [make-ui]]))

(defactivity io.cons.carddav_sync.MainActivity
  :def a
  :on-create
  (fn [this bundle]
    (on-ui
     (set-content-view! a
      (make-ui [:linear-layout {}
                [:text-view {:text "Hello from Clojure!"}]])))))