awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/upload: refactor safe-local-variable setters

Browse Source
This commit is contained in:
Henrik Lissner
2018-09-19 23:58:01 -04:00
parent e0e63850d4
commit 25d19514de
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,14 +20,13 @@
ssh-deploy-remote-changes-handler)
:init
;; Make these safe as file-local variables
(dolist (sym '(ssh-deploy-root-local
ssh-deploy-root-remote
ssh-deploy-async
ssh-deploy-script))
(put sym 'safe-local-variable #'stringp))
(put 'ssh-deploy-on-explicitly-save 'safe-local-variable #'booleanp)
(put 'ssh-deploy-async 'safe-local-variable #'booleanp)
(put 'ssh-deploy-exclude-list 'safe-local-variable #'listp)
(dolist (sym '((ssh-deploy-root-local . stringp)
(ssh-deploy-root-remote . stringp)
(ssh-deploy-script . functionp)
(ssh-deploy-on-explicitly-save . booleanp)
(ssh-deploy-async . booleanp)
(ssh-deploy-exclude-list . listp)))
(put (car sym) 'safe-local-variable (cdr sym)))
;; Maybe auto-upload on save
(defun +upload|init-after-save ()