From bbc69bed6c29bb9f6a7a8e5e98f184cee5a23ae1 Mon Sep 17 00:00:00 2001
From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Sat, 28 Jan 2017 16:53:37 +0200
Subject: [PATCH] blog: Add deploy command

---
 blog.lisp |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/blog.lisp b/blog.lisp
index cece6ab..06fc4ea 100644
--- 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*))
-- 
1.7.10.4