ExampleJob.clj

;; must be AOT compiled as far as I can tell

(ns com.example.ExampleJob
  (:use [clojure.contrib.duck-streams :only [spit]])
  (:gen-class
   :implements [org.quartz.Job]))

(defn -execute
  [this context]
  (spit "qrtz.txt" "HI"))

scheduler.clj

(ns com.example.scheduler
  (:import (org.quartz Job SchedulerFactory Scheduler
                       TriggerUtils JobDetail SimpleTrigger)
           (org.quartz.impl StdSchedulerFactory)
           (com.example ExampleJob)))

(def *scheduler* (atom nil))

(defn start-scheduler []
  (reset! *scheduler* (StdSchedulerFactory/getDefaultScheduler))
  (.start @*scheduler*))

(defn schedule-job
  [job when]
  (let [job (JobDetail. "job1" "group1" job)
        trigger (SimpleTrigger. "trigger1" "group1" when)]
    (.scheduleJob @*scheduler* job trigger)))

(start-scheduler)
(schedule-job ExampleJob java.util.Date.)