Merge pull request #152 from guicho271828/rsync-deploy

Removed the default deploy method and added RSYNC plugin

cli/cli.lisp

@@ -43,6 +43,8 @@
            (sitemap)
            (static-pages)
            ; (versioned)    ;; *Remove comment to enable symlinked, timestamped deploys.
+           ;; default deploy method is rsync
+           (rsync \"-avz\" \"--delete\" \"--exclude\" \".git/\" \"--exclude\" \".gitignore\" \"--copy-links\")
           )
  :sitenav ((:url \"http://~a.github.com/\" :name \"Home\")
            (:url \"http://twitter.com/~a\" :name \"Twitter\")

docs/plugin-use.md

@@ -7,6 +7,13 @@
 * Available plugins are listed below with usage descriptions and
   config examples.
 
+## Direct deployment via rsync
+
+**Description**: This directly sends the contents of the staging dir to the deployed directory.
+The former default deployment method.
+
+**Example**: `(rsync "--exclude" ".git/" "--exclude" ".gitignore" "--copy-links")`
+
 ## Analytics via Google
 
 **Description**: Provides traffic analysis through

plugins/rsync.lisp

@@ -0,0 +1,19 @@
+
+(defpackage :coleslaw-rsync
+  (:use :cl)
+  (:import-from :coleslaw #:*config*
+                          #:deploy
+                          #:deploy-dir)
+  (:export #:enable))
+
+(in-package :coleslaw-rsync)
+
+(defvar *args* nil)
+
+(defmethod deploy (staging)
+  (coleslaw::run-program "rsync ~{~A~^ ~} ~A ~A" *args*
+                         (merge-pathnames staging)
+                         (merge-pathnames (deploy-dir *config*))))
+
+(defun enable (&rest args)
+  (setf *args* args))

src/coleslaw.lisp

@@ -46,7 +46,8 @@
 (defgeneric deploy (staging)
   (:documentation "Deploy the STAGING build to the directory specified in the config.")
   (:method (staging)
-    (run-program "rsync --delete -avz ~a ~a" staging (merge-pathnames (deploy-dir *config*)))))
+    "By default, do nothing"
+    (declare)))
 
 (defun update-symlink (path target)
   "Update the symlink at PATH to point to TARGET."

src/config.lisp

@@ -21,7 +21,7 @@
   (:default-initargs
    :feeds        nil
    :license      nil
-   :plugins      nil
+   :plugins      '((rsync "-avz" "--delete" "--exclude" ".git/" "--exclude" ".gitignore" "--copy-links"))
    :sitenav      nil
    :excerpt-sep  "<!--more-->"
    :charset      "UTF-8"