wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Only override shell-command-to-string for projectile-find-file

Browse Source
This commit is contained in:
Ivan Malison 2016-10-29 12:55:53 -07:00
parent 04ae4335f2
commit 19f5f1d7b1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dotfiles/emacs.d/README.org
View File

@ -218,9 +218,24 @@ This makes it so that we always try to call-process instead of shell-command-to-
(imalison:get-call-process-args-from-shell-command command))) (imalison:get-call-process-args-from-shell-command command)))
(if call-process-args (if call-process-args
(apply 'imalison:call-process-to-string call-process-args)))) (apply 'imalison:call-process-to-string call-process-args))))
#+END_SRC
This had to be disabled because it was causing a bunch of issues with projectile.
#+BEGIN_SRC emacs-lisp :tangle no
(advice-add 'shell-command-to-string :before-until 'imalison:try-call-process) (advice-add 'shell-command-to-string :before-until 'imalison:try-call-process)
#+END_SRC #+END_SRC
This solution only applies it to projectile-find-file
#+BEGIN_SRC emacs-lisp
(require 'noflet)
(defun imalison:call-with-quick-shell-command (fn &rest args)
(noflet ((shell-command-to-string (&rest args)
(or (apply 'imalison:try-call-process args) (apply this-fn args))))
(apply fn args)))
(advice-add 'projectile-find-file :around 'imalison:call-with-quick-shell-command)
#+END_SRC
** Security ** Security
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:secure t) (defvar imalison:secure t)