emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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 ()