From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Sat, 28 Jan 2017 14:53:37 +0000 (+0200)
Subject: blog: Add deploy command
X-Git-Tag: v0.9^2~4
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=bbc69bed6c29bb9f6a7a8e5e98f184cee5a23ae1;p=thetarpit.git

blog: Add deploy command
---

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*))