awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-26 16:41:04 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(upload): ensure ssh-deploy is loaded

Browse Source 
The ssh-deploy-root-remote check isn't enough (they may be set file/dir
locally before the package is loaded).
This commit is contained in:
Henrik Lissner
2025-09-25 15:56:43 -04:00
parent b7d9c1801d
commit 1a116f51a9
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -27,6 +27,7 @@
(add-hook! 'after-save-hook (add-hook! 'after-save-hook
(defun +upload-init-after-save-h () (defun +upload-init-after-save-h ()
(when (and (bound-and-true-p ssh-deploy-root-remote) (when (and (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy nil t)
(integerp ssh-deploy-on-explicit-save) (integerp ssh-deploy-on-explicit-save)
(> ssh-deploy-on-explicit-save 0)) (> ssh-deploy-on-explicit-save 0))
(ssh-deploy-upload-handler ssh-deploy-force-on-explicit-save) (ssh-deploy-upload-handler ssh-deploy-force-on-explicit-save)
@@ -38,8 +39,8 @@
;; (if possible) ;; (if possible)
(add-hook! 'find-file-hook (add-hook! 'find-file-hook
(defun +upload-init-find-file-h () (defun +upload-init-find-file-h ()
(when (bound-and-true-p ssh-deploy-root-remote) (when (and (bound-and-true-p ssh-deploy-root-remote)
(require 'ssh-deploy) (require 'ssh-deploy nil t))
(unless ssh-deploy-root-local (unless ssh-deploy-root-local
(setq ssh-deploy-root-local (doom-project-root))) (setq ssh-deploy-root-local (doom-project-root)))
(when ssh-deploy-automatically-detect-remote-changes (when ssh-deploy-automatically-detect-remote-changes