devious.scm

(define-macro (symbol env-var default)
    (let ((store (get-environment-variable ,env-var)))
          (if store
            (define symbol store)
            (define symbol ,default))))

(let ((port (get-environment-variable "DEVIOUS_PORT")))
      (if port
        (define devious-port (string->number port))
        (define devious-port 6697)))

(let ((ssl (get-environment-variable "DEVIOUS_SSL")))
      (if ssl
        (if (= ssl "false")
          (define devious-ssl? #f)
          (define devious-ssl? #t)
          )
        (define devious-ssl? #f)
        ))

(define-from-env-or-default 'devious-server "DEVIOUS_SERVER" "irc.psych0tik.net")
(define-from-env-or-default 'devious-nick   "DEVIOUS_NICK"   "devious")
(define-from-env-or-default 'devious-name   "DEVIOUS_NAME"   "devious")

(define devious-channels (list "#devious"))

(define devious-admin-nick "warl0ck")
(load-config)