emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(vertico): docker-tramp => tramp-container

Browse source 
Amend: 1b9f93859f
Ref: #6986
This commit is contained in:
Ellis Kenyő 2023-02-21 23:28:34 +00:00 • committed by GitHub
parent 92c9e93ed7
commit 344178c208
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/completion/vertico/config.el
View file

@ -184,13 +184,18 @@ orderless."
("C-x C-d" . consult-dir)
("C-x C-j" . consult-dir-jump-file))
:config
(when (and (< emacs-major-version 29) (modulep! :tools docker))
(when (modulep! :tools docker)
(defun +vertico--consult-dir-docker-hosts ()
"Get a list of hosts from docker."
(when (require 'docker-tramp nil t)
(when (if (>= emacs-major-version 29)
(require 'tramp-container nil t)
(setq-local docker-tramp-use-names t)
(require 'docker-tramp nil t))
(let ((hosts)
(docker-tramp-use-names t))
(dolist (cand (docker-tramp--parse-running-containers))
(docker-query-fn #'docker-tramp--parse-running-containers))
(when (>= emacs-major-version 29)
(setq docker-query-fn #'tramp-docker--completion-function))
(dolist (cand (funcall docker-query-fn))
(let ((user (unless (string-empty-p (car cand))
(concat (car cand) "@")))
(host (car (cdr cand))))