doomemacs/modules/tools/upload/autoload.el

34 lines
919 B
EmacsLisp
Raw Normal View History

;;; tools/upload/autoload.el -*- lexical-binding: t; -*-
2017-02-19 18:54:32 -05:00
;;;###autoload
(defun +upload/put-file (&optional force-p)
"Upload the current buffer's file to the configured remote."
(interactive "P")
2017-02-19 18:54:32 -05:00
(if force-p
(ssh-deploy-upload-handler-forced)
(ssh-deploy-upload-handler)))
;;;###autoload
(defun +upload/get-file ()
"Download the current buffer's file from the configured remote."
2017-02-19 18:54:32 -05:00
(interactive)
(ssh-deploy-download-handler))
;;;###autoload
(defun +upload/diff-file ()
"Open a diff of the local file against the remote."
2017-02-19 18:54:32 -05:00
(interactive)
(ssh-deploy-diff-handler))
;;;###autoload
(defun +upload/browse ()
"Browse the remote directory mapped to this file's directory."
2017-02-19 18:54:32 -05:00
(interactive)
(ssh-deploy-browse-remote-handler))
2017-02-19 18:54:32 -05:00
;;;###autoload
(defun +upload/check-remote ()
"Check if local file exists or if the remote file has changed."
2017-02-19 18:54:32 -05:00
(interactive)
(ssh-deploy-remote-changes-handler))