aboutsummaryrefslogtreecommitdiffhomepage
path: root/DEPLOY.org
blob: 5558813282ff7c8b495984f27d8914da2e2f805b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
* Build New Lisp Application Image

#+name: build-image
#+begin_src emacs-lisp :results none :var image-name=vampire-image-name()
  (with-current-buffer (get-buffer-create "*vampire-build*")
    (erase-buffer)
    (insert (format "Building image %s.\n\n" image-name))
    (shell-command "sbcl --load build.lisp" (current-buffer))
    (rename-file "bin/vampire" image-name))
  (switch-to-buffer-other-window "*vampire-build*")
#+end_src

** New tagged image filename

#+name: vampire-image-name
#+begin_src emacs-lisp
  (let ((commit (string-trim (shell-command-to-string "git rev-parse --short HEAD")))
	(date (string-trim (shell-command-to-string "date '+%Y%m%d'"))))
    (format "bin/vampire-%s-%s" commit date))
#+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)))
#+end_src

* Copy CSS files

#+begin_src emacs-lisp :var dest="/scp:vampire@:static/css/" :results none
  (copy-directory "static/css/" dest nil nil t)
#+end_src

** copy directory notes

If NEWNAME is a directory name, copy DIRECTORY as a subdirectory
there.  However, if called from Lisp with a non-nil optional
argument COPY-CONTENTS, copy the contents of DIRECTORY directly
into NEWNAME instead.