branch: externals/ssh-deploy
commit 1f0bdf6c5ed26cf4121f1eed8e819e2619e13a6f
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Create directories on remote When uploading files in a folder that
doesn't exist yet
---
ssh-deploy.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index 8b7fdbf..cf6aa27 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -3,14 +3,14 @@
;; Author: Christian Johansson <github.com/cjohansson>
;; Maintainer: Christian Johansson <github.com/cjohansson>
;; Created: 5 Jul 2016
-;; Modified: 15 May 2017
-;; Version: 1.54
+;; Modified: 20 May 2017
+;; Version: 1.55
;; Keywords: tools, convenience
;; URL: https://github.com/cjohansson/emacs-ssh-deploy
;; This file is not part of GNU Emacs.
-;; Copyright (C) 2016 Christian Johansson
+;; Copyright (C) 2017 Christian Johansson
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -264,6 +264,8 @@
(progn
(if (or (eq t ,force) (not (file-exists-p
,remote-path)) (and (file-exists-p ,revision-path) (ediff-same-file-contents
,revision-path ,remote-path)))
(progn
+ (if (not (file-directory-p
(directory-file-name ,remote-path)))
+ (make-directory (directory-file-name
,remote-path) t))
(copy-file ,local ,remote-path t t t t)
(copy-file ,local ,revision-path t t t t)
(list 0 (format "Upload '%s' completed."
,remote-path)))
@@ -279,6 +281,8 @@
(progn
(async-start
`(lambda()
+ (if (not (file-directory-p (directory-file-name
,remote-path)))
+ (make-directory (directory-file-name ,remote-path)
t))
(copy-directory ,local ,remote-path t t t)
,local)
(lambda(return-path)
