Recently Written · git

coleslaw

Emacs mode for the "Coleslaw" site generator written in Common Lisp.

git clone https://github.com/equwal/coleslaw

Log | Files | Refs

plugins/rsync.lisp (480 bytes)

1 
2 (defpackage :coleslaw-rsync
3   (:use :cl)
4   (:import-from :coleslaw #:*config*
5                           #:deploy
6                           #:deploy-dir)
7   (:export #:enable))
8 
9 (in-package :coleslaw-rsync)
10 
11 (defvar *args* nil)
12 
13 (defmethod deploy (staging)
14   (coleslaw::run-program "rsync ~{~A~^ ~} ~A ~A" *args*
15                          (merge-pathnames staging)
16                          (merge-pathnames (deploy-dir *config*))))
17 
18 (defun enable (&rest args)
19   (setf *args* args))