Switch from dns-backplane to backplane-dns

backplane-dns.asd

@@ -1,10 +1,10 @@
 ;;;; dns-backplane.asd
 
-(asdf:defsystem #:dns-backplane
-  :description "Describe dns-backplane here"
-  :author "Your Name <your.name@example.com>"
+(asdf:defsystem #:backplane-dns
+  :description "Server to listen on Fudo backplane for DNS updates"
+  :author "Niten <niten@fudo.org>"
   :license  "Specify license here"
-  :version "0.0.1"
+  :version "0.1.0"
   :serial t
   :depends-on (:alexandria
                :arrows
@@ -15,4 +15,4 @@
                :postmodern
                :trivia)
   :components ((:file "package")
-               (:file "dns-backplane")))
+               (:file "backplane-dns")))

backplane-dns.lisp

@@ -1,6 +1,6 @@
-;;;; dns-backplane.lisp
+;;;; backplane-dns.lisp
 
-(in-package #:dns-backplane)
+(in-package #:backplane-dns)
 
 (defun xmpp-connect (hostname username password)
   (let ((conn (xmpp:connect-tls :hostname hostname)))
@@ -181,7 +181,7 @@
                :mechanism :sasl-plain)
     (funcall f backplane)))
 
-(defun dns-backplane-listen (xmpp-host
+(defun backplane-dns-listen (xmpp-host
                              xmpp-username
                              xmpp-password
                              db-host
@@ -197,8 +197,8 @@
   (let ((input (open filename :if-does-not-exist nil)))
     (read-line input)))
 
-(defun start-dns-backplane-listener-with-env ()
-  (dns-backplane-listen
+(defun start-backplane-dns-listener-with-env ()
+  (backplane-dns-listen
    (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org")
    (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns")
    (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))

package.lisp

@@ -1,6 +1,6 @@
 ;;;; package.lisp
 
-(defpackage #:dns-backplane
+(defpackage #:backplane-dns
   (:use #:cl)
   (:import-from #:arrows
                 #:->