(buffer-string)))
(defvar esy/publish-remote-directory
- "/ssh:root@direct.eshelyaron.com:/var/www/html")
+ "/rsync:root@direct.eshelyaron.com:/var/www/html")
(defvar esy/publish-root-directory
(file-name-directory load-file-name))
(esy/publish-sitemap plist))
(defun esy/publish-to-remote ()
- (delete-directory esy/publish-remote-directory t)
- (copy-directory esy/publish-out-directory esy/publish-remote-directory nil t t)
- ;; (let ((files (directory-files-recursively esy/publish-out-directory
- ;; (rx (or ".html"
- ;; ".ico"
- ;; ".svg"
- ;; ".xml"
- ;; ".css")
- ;; eos))))
- ;; (dolist-with-progress-reporter (file files) "Copying files"
- ;; (copy-file file
- ;; (expand-file-name (file-relative-name file
- ;; esy/publish-out-directory)
- ;; esy/publish-remote-directory)
- ;; t)))
- )
+ (let ((files (directory-files-recursively esy/publish-out-directory
+ (rx (or ".html"
+ ".ico"
+ ".svg"
+ ".xml"
+ ".css")
+ eos))))
+ (dolist-with-progress-reporter (file files) "Copying files"
+ (copy-file file (expand-file-name
+ (file-relative-name file
+ esy/publish-out-directory)
+ esy/publish-remote-directory)
+ t))))
(defun esy/publish (&optional modified-only)
(interactive "P")