Add ranger control contrib module
This commit is contained in:
parent
8cd55cf43b
commit
db51aab56e
2
contrib/ranger-control/config.el
Normal file
2
contrib/ranger-control/config.el
Normal file
|
@ -0,0 +1,2 @@
|
|||
(evil-leader/set-key
|
||||
"pc" 'ranger-control/projectile-cd)
|
12
contrib/ranger-control/funcs.el
Normal file
12
contrib/ranger-control/funcs.el
Normal file
|
@ -0,0 +1,12 @@
|
|||
(defun ranger-control/cd-tab (path)
|
||||
(start-process "ranger-control-curl" nil "curl" "-X" "POST" "--data" path
|
||||
"--connect-timeout" "0.1" "http://localhost:5964/cdtab-e"))
|
||||
|
||||
(defun ranger-control/kill-result-buffer (status)
|
||||
"Kill the buffer returned by `url-retrieve'."
|
||||
(kill-buffer (current-buffer)))
|
||||
|
||||
(defun ranger-control/projectile-cd ()
|
||||
(interactive)
|
||||
(use-package projectile :init
|
||||
(ranger-control/cd-tab (projectile-project-root))))
|
Loading…
Reference in a new issue