Add: "logging" and symlink update to DEPLOY.org

1 files changed, 26 insertions, 6 deletions

diff --git a/DEPLOY.org b/DEPLOY.org
index 5558813..8d77b77 100644
--- a/DEPLOY.org
+++ b/DEPLOY.org
@@ -19,16 +19,36 @@
     (format "bin/vampire-%s-%s" commit date))
 #+end_src
 
-* Copy Image To Host Destination
+* Deploy Image and Assets to Server Host
+
+#+begin_src emacs-lisp :var name=vampire-image-name() dest="/scp:vampire@:" :noweb yes
+    (with-current-buffer (get-buffer-create "*vampire-deploy*")
+      (erase-buffer)
+      (insert (format "Deploying image %s. \n\n" name))
+      <<deploy-image>>
+      <<deploy-assets>>)
+    (switch-to-buffer-other-window "*vampire-deploy*")
+#+end_src
+
+** Copy Image To Host Destination
 
-#+begin_src emacs-lisp :var name=vampire-image-name() dest="/scp:vampire@:" :results none
-  (copy-file name (concat dest name)))
+#+name: deploy-image
+#+begin_src emacs-lisp :results none
+  (let ((destination (concat dest name)))
+    (insert (format "Copying image %s to %s" name destination)) (newline)
+    (copy-file name destination t)
+    (insert (format "Making symbolic link to point bin/vampire at %s" name destination)) (newline)
+    (make-symbolic-link destination (concat dest "bin/vampire") t))
 #+end_src
 
-* Copy CSS files
+** Copy CSS files
 
-#+begin_src emacs-lisp :var dest="/scp:vampire@:static/css/" :results none
-  (copy-directory "static/css/" dest nil nil t)
+#+name: deploy-assets
+#+begin_src emacs-lisp :results none
+(let ((destination (concat dest "static/css/")))
+  (insert (format "Copying static CSS assets %s..." destination)) (newline)
+  (copy-directory "static/css/" destination nil nil t)
+  (insert "Done.") (newline))
 #+end_src
 
 ** copy directory notes