Skip to content

Instantly share code, notes, and snippets.

@wujiang
Forked from mtmtcode/auto-rsync.el
Last active April 7, 2016 22:05
Show Gist options
  • Save wujiang/7f72d50986f9f8afc944 to your computer and use it in GitHub Desktop.
Save wujiang/7f72d50986f9f8afc944 to your computer and use it in GitHub Desktop.
;;; auto-rsync-mode -- minor mode for auto rsync
;;
;; Author: @l3msh0
;;
;;; Example
;;
;; (require 'auto-rsync)
;; (auto-rsync-mode t)
;; (setq auto-rsync-dir-alist
;; '(("/path/to/src1/" . "/path/to/dest1/")
;; ("/path/to/src2/" . "username@hostname:/path/to/dest2/")))
;;; Customize
;;
(defgroup auto-rsync nil "Auto rsync")
(defcustom auto-rsync-command "rsync" "rsync command path" :group 'auto-rsync)
(defcustom auto-rsync-command-option "-avzq" "rsync command option" :group 'auto-rsync)
;;; TODO
;;
;; open remote counterpart
;;
(defvar auto-rsync-dir-alist nil "Pair of rsync source and destination dir")
(defvar auto-rsync-normalized-alist nil)
;;; Code
(defun auto-rsync-exec-rsync ()
"execute rsync if editing file path matches src dir"
(interactive)
(let* ((normalized-alist (mapcar (lambda (x) (cons (file-name-as-directory (expand-file-name (car x)))
(file-name-as-directory (cdr x))))
auto-rsync-dir-alist))
(sync-pair (assoc-if (lambda (key) (string-match key buffer-file-name)) normalized-alist)))
(when sync-pair
(save-window-excursion
;; avoid annoying shell comannd window
(shell-command (format "%s %s %s %s&" auto-rsync-command auto-rsync-command-option (car sync-pair) (cdr sync-pair)) nil)))))
(define-minor-mode auto-rsync-mode
"automatically execute rsync when editing file's path matches `auto-rsync-dir-alist`"
:lighter " rsync"
:global t
(cond (auto-rsync-mode
(add-hook 'after-save-hook 'auto-rsync-exec-rsync))
(t
(remove-hook 'after-save-hook 'auto-rsync-exec-rsync))))
(provide 'auto-rsync)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment