sattvik

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
        <key>CFBundleDevelopmentRegion</key>
        <string>English</string>
        <key>CFBundleExecutable</key>
        <string>libjli.dylib</string>
        <key>CFBundleGetInfoString</key>
        <string>OpenJDK 10.0.2+13</string>

sattvik

(ns com.example.hello_clojure.HelloActivity
  (:gen-class :main false
              :extends android.app.Activity
              :exposes-methods {onCreate superOnCreate})
  (:import [com.example.hello_clojure R$layout]))

(defn -onCreate
  [this bundle]
  (doto this
    (.superOnCreate bundle)

sattvik

<?xml version='1.0' encoding='utf-8'?>
<!--
  Copyright © 2010 Daniel Solano Gómez
  All rights reserved.

  Permission is hereby granted, free of charge, to any person obtaining a copy
  of this software and associated documentation files (the "Software"), to deal
  in the Software without restriction, including without limitation the rights
  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  copies of the Software, and to permit persons to whom the Software is

sattvik

(ns #^{:doc "An example program that uses Jetty 7 to serve HelloServlet"
       :author "Daniel Solano Gómez"}
  jetty-hello-demo
  (:import org.eclipse.jetty.server.Server
           org.eclipse.jetty.webapp.WebAppContext))

(defn- create-webapp []
  (doto (WebAppContext.)
    (.setContextPath "/")
    (.setWar "/path/to/blah.war")))

sattvik

(ns sgblog-runtime
  (:import com.martiansoftware.nailgun.NGServer java.net.InetAddress)
  (:use clojure.contrib.repl-utils))

(def ngserver (NGServer. (InetAddress/getByName "localhost") 2114))

(.start (Thread. ngserver))
(println "Welcome to the REPL.")
(clojure.main/repl)
(.shutdown ngserver false)