awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-31 14:43:40 -05:00
Code Issues Packages Projects Releases Wiki Activity

General refactor & cleanup, across the board

Browse Source
This commit is contained in:
Henrik Lissner
2019-09-13 21:59:03 -04:00
parent 4ddc5c194b
commit 2d365619cd
35 changed files with 141 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
modules/tools/upload/config.el
View File

@@ -33,19 +33,19 @@
(put (car sym) 'safe-local-variable (cdr sym)))
;; Maybe auto-upload on save
(defun +upload|init-after-save ()
(when (and (bound-and-true-p ssh-deploy-root-remote)
ssh-deploy-on-explicit-save)
(ssh-deploy-upload-handler)))
(add-hook 'after-save-hook #'+upload|init-after-save)
(add-hook! 'after-save-hook
(defun +upload-init-after-save-h ()
(when (and (bound-and-true-p ssh-deploy-root-remote)
ssh-deploy-on-explicit-save)
(ssh-deploy-upload-handler))))
;; Enable ssh-deploy if variables are set, and check for changes on open file
;; (if possible)
(defun +upload|init-find-file ()
(when (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy)
(unless ssh-deploy-root-local
(setq ssh-deploy-root-local (doom-project-root)))
(when ssh-deploy-automatically-detect-remote-changes
(ssh-deploy-remote-changes-handler))))
(add-hook 'find-file-hook #'+upload|init-find-file))
(add-hook! 'find-file-hook
(defun +upload-init-find-file-h ()
(when (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy)
(unless ssh-deploy-root-local
(setq ssh-deploy-root-local (doom-project-root)))
(when ssh-deploy-automatically-detect-remote-changes
(ssh-deploy-remote-changes-handler))))))