blog: Add deploy command

diff --git a/blog.lisp b/blog.lisp
index cece6ab..06fc4ea 100644 (file)
--- a/blog.lisp
+++ b/blog.lisp
@@ -264,3 +264,10 @@
   (tlbs-process-archive)
   ; index
   (tlbs-process-index))
+
+(defun deploy-site ()
+  (uiop:run-program (format nil "rsync -avz -e '~a' ~a/* ~a"
+                            "ssh -p 2200"
+                            *lbs-site*
+                            "mogosanu.ro:/virtual/sites/thetarpit.org")
+                    :output *standard-output*))