13 lines
474 B
EmacsLisp
13 lines
474 B
EmacsLisp
|
(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))))
|