emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ssh-deploy 18be92e 011/173: Fixed keywords, defgroup gr


From: Stefan Monnier
Subject: [elpa] externals/ssh-deploy 18be92e 011/173: Fixed keywords, defgroup groups and white-spaces.
Date: Sat, 20 Oct 2018 10:36:21 -0400 (EDT)

branch: externals/ssh-deploy
commit 18be92e6593d4f7ca799200c5d1d0c00f75ded03
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Fixed keywords, defgroup groups and white-spaces.
---
 ssh-deploy.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index 5e729ee..9f826a8 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -1,15 +1,17 @@
 ;;; ssh-deploy.el --- Deployment via SSH, global or per directory.
 
-;; Copyright (C) 2016 Christian Johansson
-
-;; Author: Christian Johansson <address@hidden>
-;; Maintainer: Christian Johansson <address@hidden>
+;; Author: Christian Johansson <github.com/cjohansson>
+;; Maintainer: Christian Johansson <github.com/cjohansson>
 ;; Created: 5 Jul 2016
 ;; Modified: 11 Jul 2016
 ;; Version: 1.0
-;; Keywords: SSH deploy package
+;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
+;; This file is not part of GNU Emacs.
+
+;; Copyright (C) 2016 Christian Johansson
+
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 ;; published by the Free Software Foundation; either version 2, or (at
@@ -35,13 +37,13 @@
 ;; `ssh-deploy-on-explicity-save` you can setup a directory for
 ;; SSH deploy.
 ;;
-;; To setup hook on explicit save do this:
-;; (add-hook 'after-save-hook (lambda() (if ssh-deploy-on-explicity-save 
(ssh-deploy-upload-handler)) ))
+;; - To setup hook on explicit save do this:
+;;     (add-hook 'after-save-hook (lambda() (if ssh-deploy-on-explicity-save 
(ssh-deploy-upload-handler)) ))
 ;;
-;; To set key-bindings do something like this:
-;; (global-set-key (kbd "C-c C-z u") (lambda() 
(interactive)(ssh-deploy-upload-handler) ))
-;; (global-set-key (kbd "C-c C-z d") (lambda() 
(interactive)(ssh-deploy-download-handler)(revert-buffer) ))
-;; (global-set-key (kbd "C-c C-z x") (lambda() 
(interactive)(ssh-deploy-diff-handler) ))
+;; - To set key-bindings do something like this:
+;;     (global-set-key (kbd "C-c C-z u") (lambda() 
(interactive)(ssh-deploy-upload-handler) ))
+;;     (global-set-key (kbd "C-c C-z d") (lambda() 
(interactive)(ssh-deploy-download-handler)(revert-buffer) ))
+;;     (global-set-key (kbd "C-c C-z x") (lambda() 
(interactive)(ssh-deploy-diff-handler) ))
 ;;
 ;; Please see README.md from the same repository for documentation.
 
@@ -49,9 +51,9 @@
 
 (defgroup ssh-deploy nil
   "Upload, download and difference handler for files on remote hosts via SSH."
-:group 'ssh-deploy)
+  :group 'tools
+  :group 'convenience)
 
-;; Variables
 (defcustom ssh-deploy-root-local nil
   "String variable of local root, nil by default."
   :type 'string
@@ -67,8 +69,6 @@
   :type 'boolean
   :group 'ssh-deploy)
 
-
-;; Functions
 (defun ssh-deploy-diff (local-root-raw remote-root)
   "Find differences between the path LOCAL-ROOT-RAW with REMOTE-ROOT via ssh."
   (let ((filename (shell-quote-argument buffer-file-name))
@@ -130,6 +130,5 @@
       (ssh-deploy-diff ssh-deploy-root-local ssh-deploy-root-remote)
     ))
 
-
 (provide 'ssh-deploy)
 ;;; ssh-deploy.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]