(in-package :org.ryuslash.xmpp-send)

(defvar *connection* nil
  "The connection to the jabber server.")

(defvar *host* nil
  "The host to log-in on.")

(defvar *username* nil
  "The username to log-in with, should not contain the jabber host.")

(defvar *password* nil
  "The password to log-in with.")

(defvar *resource* nil
  "The resource to use when logging in.")

(defun get-rc-location ()
  "Get the location of the RC file."
  (let ((xdg (sb-ext:posix-getenv "XDG_CONFIG_HOME"))
        (home (sb-ext:posix-getenv "HOME")))
    (pathname
     (apply 'concatenate 'string
            (or xdg home)
            (unless xdg "/.config")
            '("/xmpp-send/rc.lisp")))))

;; (defun send (args)
;;   (handler-case (message *connection* (car args) (cadr args))))

(defun xmpp-send (args)
  ;; Load init file
  (let ((*package* (in-package :org.ryuslash.xmpp-send)))
    (load (get-rc-location) :if-does-not-exist nil))

  (setf *connection* (connect-tls :hostname *host*))
  (auth *connection* *username* *password* *resource*)
  (xmpp:message *connection* (cadr args) (caddr args) :type :chat)
  (disconnect *connection*))