diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2017-05-30 01:51:39 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2017-05-30 01:51:39 (GMT) |
| commit | 511f342511790d94959b3a21294edbae2970ef9b (patch) | |
| tree | 89a199f56e5bc196863f5e116677cd86f84aa522 /lisp | |
| parent | 63f7ae8e52ca86b6b2a19130b4c03d289a177176 (diff) | |
| download | dotemacs-511f342511790d94959b3a21294edbae2970ef9b.zip dotemacs-511f342511790d94959b3a21294edbae2970ef9b.tar.gz dotemacs-511f342511790d94959b3a21294edbae2970ef9b.tar.bz2 | |
Extra top-level arguments for rsync
Perhaps we simply need to find a way to only mirror those files that
are managed by git. This would mess up new files, but that may be a
price we are willing to pay.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ravi-init-vc.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ravi-init-vc.el b/lisp/ravi-init-vc.el index da864ca..6c1d3a0 100644 --- a/lisp/ravi-init-vc.el +++ b/lisp/ravi-init-vc.el @@ -41,12 +41,16 @@ (setq magit-restore-window-configuration t) (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh) + (defvar ravi/sync-top-level-host-extra-args "" + "Extra arguments to rsync for `ravi/sync-top-level'") + (defun ravi/sync-top-level () (when (and (boundp 'ravi/sync-top-level-host) (not (s-equals? (car (s-split-up-to "\\." (system-name) 1)) (car (s-split-up-to "\\." ravi/sync-top-level-host 1))))) (message "Synchronizing with %s" ravi/sync-top-level-host) - (shell-command (concat "rsync -a " (magit-toplevel) " " ravi/sync-top-level-host ":" (magit-toplevel))))) + (shell-command (concat "rsync -a " ravi/sync-top-level-host-extra-args + " " (magit-toplevel) " " ravi/sync-top-level-host ":" (magit-toplevel))))) (add-hook 'magit-post-refresh-hook 'ravi/sync-top-level) (use-package magit-svn |