(require '[lpd.server :refer [make-server start-server]]
         '[lpd.protocol :as protocol])

;;; Create a 'handler' object. `accept-job' will be called for every
;;; received print job.
(def my-handler
  (reify
    protocol/IPrintJobHandler
    (accept-job [_ queue job]
      ;; `queue' is the name of the printer queue a client prints on
      (println "Got a job on" queue)
      ;; `job' is a PrintJob containing the job-data (a byte-array)
      ;; under the key :data and other information about the job
      (prn job))))

(def server (make-server {:host "localhost"
                          :port 6331
                          :handler my-handler}))

;;; Starts the server on a new thread. To stop the server, replace
;;; `start-server' with `stop-server'
(alter-var-root #'server start-server)