tools/upload: fix +upload/browse & add docstrings

This commit is contained in:
Henrik Lissner 2018-02-21 05:10:31 -05:00
parent e659ab0609
commit e6f58d3714
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

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