mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
10991877c8
* doc/misc/tramp.texi: Use @dots{} where appropriate.
(External methods): Precise remark on rsync speed.
(Customizing Methods): Add incus-tramp.
(Password handling): Mention expiration of cached passwords when a
session timeout happens.
(Predefined connection information): Mention also "androidsu" as
special case of "tmpdir".
(Ad-hoc multi-hops, Frequently Asked Questions):
Improve description how ad-hoc multi-hop file names can be made
persistent. (Bug#65039, Bug#76457)
(Remote processes): Signals are not delivered to remote direct
async processes. Say, that there are restrictions for transfer of
binary data to remote direct async processes.
(Bug Reports): Explain bisecting.
(Frequently Asked Questions): Improve index. Speak about
fingerprint readers. Recommend `small-temporary-file-directory'
for ssh sockets.
(External packages): Rename subsection "Timers, process filters,
process sentinels, redisplay".
(Extension packages): New node.
(Top, Files directories and localnames): Add it to @menu.
* doc/misc/trampver.texi:
* lisp/net/trampver.el (tramp-version): Adapt Tramp versions.
(tramp-repository-branch, tramp-repository-version):
Remove ;;;###tramp-autoload cookie.
* lisp/net/tramp-adb.el:
* lisp/net/tramp-androidsu.el:
* lisp/net/tramp-cache.el:
* lisp/net/tramp-cmds.el:
* lisp/net/tramp-compat.el:
* lisp/net/tramp-container.el:
* lisp/net/tramp-crypt.el:
* lisp/net/tramp-ftp.el:
* lisp/net/tramp-fuse.el:
* lisp/net/tramp-gvfs.el:
* lisp/net/tramp-integration.el:
* lisp/net/tramp-message.el:
* lisp/net/tramp-rclone.el:
* lisp/net/tramp-sh.el:
* lisp/net/tramp-smb.el:
* lisp/net/tramp-sshfs.el:
* lisp/net/tramp-sudoedit.el:
* lisp/net/tramp.el: Use `when-let*', `if-let*' and `and-let*'
consequently. (Bug#73441)
* lisp/net/tramp-adb.el (tramp-adb-maybe-open-connection):
Move setting of sentinel up.
* lisp/net/tramp-archive.el (tramp-archive-file-name-p):
Add ;;;###tramp-autoload cookie.
(tramp-archive-local-file-name): New defun.
* lisp/net/tramp-cache.el (tramp-connection-properties): Add link
to the Tramp manual in the docstring.
(tramp-get-connection-property, tramp-set-connection-property):
Don't raise a debug message for the `tramp-cache-version' key.
(with-tramp-saved-connection-property)
(with-tramp-saved-connection-properties): Add traces.
(tramp-dump-connection-properties): Don't save connection property
"pw-spec".
* lisp/net/tramp-cmds.el (tramp-repository-branch)
(tramp-repository-version): Declare.
* lisp/net/tramp-gvfs.el (tramp-gvfs-do-copy-or-rename-file):
(tramp-gvfs-do-copy-or-rename-file): Don't use the truename.
Handle symlinks.
(tramp-gvfs-local-file-name): New defun.
* lisp/net/tramp-message.el (tramp-repository-branch)
(tramp-repository-version): Declare.
(tramp-error-with-buffer, tramp-user-error): Don't redisplay in
`sit-for'. (Bug#73718)
(tramp-warning): Fix `lwarn' call.
* lisp/net/tramp.el (tramp-read-passwd):
* lisp/net/tramp-sh.el (tramp-maybe-open-connection):
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-send-command):
Rename connection property "password-vector" to "pw-vector".
* lisp/net/tramp-sh.el (tramp-methods) <pscp, psftp>:
Adapt `tramp-copy-args' argument.
(tramp-get-remote-pipe-buf, tramp-actions-before-shell):
Use `tramp-fingerprint-prompt-regexp'.
(tramp-sh-handle-copy-directory):
Apply `tramp-do-copy-or-rename-file-directly' if possible.
(tramp-do-copy-or-rename-file): Refactor. Handle symlinks.
(Bug#76678)
(tramp-plink-option-exists-p): New defun.
(tramp-ssh-or-plink-options): Rename from
`tramp-ssh-controlmaster-options'. Adapt further plink options.
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-maybe-open-connection): Adapt calls.
(tramp-sh-handle-make-process): Don't set connection property
"remote-pid", it's unused.
(tramp-sh-handle-process-file): Do proper quoting.
(tramp-vc-file-name-handler): Add `file-directory-p', which is
used in `vc-find-root'. (Bug#74026)
(tramp-maybe-open-connection): Use connection property "hop-vector".
(tramp-get-remote-pipe-buf): Make it more robust.
* lisp/net/tramp-smb.el (tramp-smb-errors): Add string.
(tramp-smb-handle-copy-directory): Don't check existence of
DIRNAME, this is done in `tramp-skeleton-copy-directory' already.
(tramp-smb-handle-copy-file, tramp-smb-handle-rename-file): Refactor.
* lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
STDERR is not implemented.
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-do-copy-or-rename-file):
Don't use the truename. Handle symlinks.
* lisp/net/tramp.el (tramp-mode): Set to nil on MS-DOS.
(tramp-otp-password-prompt-regexp): Add TACC HPC prompt.
(tramp-wrong-passwd-regexp): Add fingerprint messages.
(tramp-fingerprint-prompt-regexp, tramp-use-fingerprint):
New defcustoms.
(tramp-string-empty-or-nil-p):
Declare `tramp-suppress-trace' property.
(tramp-barf-if-file-missing): Accept also symlinks.
(tramp-skeleton-file-exists-p)
(tramp-handle-file-directory-p): Protect against cyclic symlinks.
(tramp-skeleton-make-symbolic-link): Drop volume letter when flushing.
(tramp-skeleton-process-file): Raise a warning if STDERR is not
implemented.
(tramp-skeleton-set-file-modes-times-uid-gid): Fix typo.
(tramp-compute-multi-hops): Check for
`tramp-sh-file-name-handler-p', it works only for this.
(tramp-handle-shell-command):
Respect `async-shell-command-display-buffer'.
(tramp-action-password, tramp-process-actions): Use connection
property "hop-vector".
(tramp-action-fingerprint, tramp-action-show-message): New defuns.
(tramp-action-show-and-confirm-message): Start check at (point-min).
(tramp-wait-for-regexp): Don't redisplay in `sit-for'. (Bug#73718)
(tramp-convert-file-attributes): Don't cache
"file-attributes-ID-FORMAT".
(tramp-read-passwd, tramp-clear-passwd): Rewrite. (Bug#74105)
* test/lisp/net/tramp-tests.el (auth-source-cache-expiry)
(ert-batch-backtrace-right-margin): Set them to nil.
(vc-handled-backends): Suppress if noninteractive.
(tramp--test-enabled): Cleanup also
`tramp-compat-temporary-file-directory'.
(tramp-test11-copy-file, tramp-test12-rename-file)
(tramp-test18-file-attributes, tramp--test-deftest-with-stat)
(tramp--test-deftest-with-perl, tramp--test-deftest-with-ls)
(tramp--test-deftest-without-file-attributes)
(tramp-test21-file-links, tramp-test28-process-file)
(tramp-test32-shell-command, tramp-test36-vc-registered)
(tramp-test39-make-lock-file-name, tramp--test-check-files)
(tramp-test42-utf8, tramp-test43-file-system-info)
(tramp-test44-file-user-group-ids, tramp-test47-read-password):
Adapt tests.
(tramp-test47-read-fingerprint): New test.
757 lines
25 KiB
EmacsLisp
757 lines
25 KiB
EmacsLisp
;;; tramp-container.el --- Tramp integration for Docker-like containers -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright © 2022-2025 Free Software Foundation, Inc.
|
|
|
|
;; Author: Brian Cully <bjc@kublai.com>
|
|
;; Maintainer: Michael Albinus <michael.albinus@gmx.de>
|
|
;; Keywords: comm, processes
|
|
;; Package: tramp
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Allows Tramp access to environments provided by Docker and similar
|
|
;; programs.
|
|
;;
|
|
;; ## Usage
|
|
;;
|
|
;; Open a file on a running Docker container:
|
|
;;
|
|
;; C-x C-f /docker:USER@CONTAINER:/path/to/file
|
|
;; C-x C-f /dockercp:USER@CONTAINER:/path/to/file
|
|
;;
|
|
;; or Podman:
|
|
;;
|
|
;; C-x C-f /podman:USER@CONTAINER:/path/to/file
|
|
;; C-x C-f /podmancp:USER@CONTAINER:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; USER is the user on the container to connect as (optional).
|
|
;; CONTAINER is the container to connect to.
|
|
;;
|
|
;; "docker" and "podman" are inline methods, "dockercp" and "podmancp"
|
|
;; are out-of-band methods.
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open file in a Kubernetes container:
|
|
;;
|
|
;; C-x C-f /kubernetes:[CONTAINER.]POD:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; POD is the pod to connect to.
|
|
;; CONTAINER is the container to connect to (optional).
|
|
;; By default, the first container in that pod will
|
|
;; be used.
|
|
;;
|
|
;; Completion for POD and accessing it operate in the current
|
|
;; namespace, use this command to change it:
|
|
;;
|
|
;; "kubectl config set-context --current --namespace=<name>"
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open a file on an existing Toolbox container:
|
|
;;
|
|
;; C-x C-f /toolbox:CONTAINER:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; CONTAINER is the container to connect to (optional).
|
|
;;
|
|
;; If the container is not running, it is started. If no container is
|
|
;; specified, the default Toolbox container is used.
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open a file on an existing Distrobox container:
|
|
;;
|
|
;; C-x C-f /distrobox:CONTAINER:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; CONTAINER is the container to connect to.
|
|
;;
|
|
;; If the container is not running, it is started.
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open a file on a running Flatpak sandbox:
|
|
;;
|
|
;; C-x C-f /flatpak:SANDBOX:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; SANDBOX is the running sandbox to connect to.
|
|
;; It could be an application ID, an instance ID, or a PID.
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open a file on a running Apptainer instance:
|
|
;;
|
|
;; C-x C-f /apptainer:INSTANCE:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; INSTANCE is the running instance to connect to.
|
|
;;
|
|
;;
|
|
;;
|
|
;; Open a file on a running systemd-nspawn container:
|
|
;;
|
|
;; C-x C-f /nspawn:USER@CONTAINER:/path/to/file
|
|
;;
|
|
;; Where:
|
|
;; USER is the user on the container to connect as (optional)
|
|
;; CONTAINER is the container to connect to
|
|
|
|
;;; Code:
|
|
|
|
(require 'tramp)
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-docker-program "docker"
|
|
"Name of the Docker client program."
|
|
:group 'tramp
|
|
:version "29.1"
|
|
:type '(choice (const "docker")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-podman-program "podman"
|
|
"Name of the Podman client program."
|
|
:group 'tramp
|
|
:version "29.1"
|
|
:type '(choice (const "podman")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-kubernetes-program "kubectl"
|
|
"Name of the Kubernetes client program."
|
|
:group 'tramp
|
|
:version "29.1"
|
|
:type '(choice (const "kubectl")
|
|
(string)))
|
|
|
|
(defcustom tramp-kubernetes-context nil
|
|
"Context of Kubernetes.
|
|
If it is nil, the default context will be used."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const :tag "Use default" nil)
|
|
(string)))
|
|
|
|
(defcustom tramp-kubernetes-namespace "default"
|
|
"Namespace of Kubernetes."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type 'string)
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-toolbox-program "toolbox"
|
|
"Name of the Toolbox client program."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const "toolbox")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-distrobox-program "distrobox"
|
|
"Name of the Distrobox client program."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const "distrobox")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-flatpak-program "flatpak"
|
|
"Name of the Flatpak client program."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const "flatpak")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defcustom tramp-apptainer-program "apptainer"
|
|
"Name of the Apptainer client program."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const "apptainer")
|
|
(string)))
|
|
|
|
(defcustom tramp-nspawn-program "machinectl"
|
|
"Name of the machinectl program."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type '(choice (const "machinectl")
|
|
(string)))
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-docker-method "docker"
|
|
"Tramp method name to connect to Docker containers.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-dockercp-method "dockercp"
|
|
"Tramp method name to connect to Docker containers.
|
|
This is for out-of-band connections.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-podman-method "podman"
|
|
"Tramp method name to connect to Podman containers.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-podmancp-method "podmancp"
|
|
"Tramp method name to connect to Podman containers.
|
|
This is for out-of-band connections.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-kubernetes-method "kubernetes"
|
|
"Tramp method name to connect to Kubernetes containers.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-toolbox-method "toolbox"
|
|
"Tramp method name to connect to Toolbox containers.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-distrobox-method "distrobox"
|
|
"Tramp method name to connect to Distrobox containers.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-flatpak-method "flatpak"
|
|
"Tramp method name to connect to Flatpak sandboxes.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-apptainer-method "apptainer"
|
|
"Tramp method name to connect to Apptainer instances.")
|
|
|
|
;;;###tramp-autoload
|
|
(defconst tramp-nspawn-method "nspawn"
|
|
"Tramp method name to connect to systemd-nspawn containers.")
|
|
|
|
(defcustom tramp-distrobox-no-container-regexp
|
|
(rx bol "Error:" (1+ nonl) "no such container" (0+ nonl) "\n"
|
|
"Create it now, out of image " (+ (not blank)) "? [Y/n]:" (* blank))
|
|
"Regexp matching missing distrobox error message.
|
|
The regexp should match at end of buffer."
|
|
:group 'tramp
|
|
:version "30.1"
|
|
:type 'regexp)
|
|
|
|
;;;###tramp-autoload
|
|
(defmacro tramp-skeleton-completion-function (method &rest body)
|
|
"Skeleton for `tramp-*-completion-function' with multi-hop support.
|
|
BODY is the backend specific code."
|
|
(declare (indent 1) (debug t))
|
|
`(let* ((default-directory
|
|
(or (and (member ,method tramp-completion-multi-hop-methods)
|
|
tramp--last-hop-directory)
|
|
tramp-compat-temporary-file-directory))
|
|
(program (let ((tramp-verbose 0))
|
|
(tramp-get-method-parameter
|
|
(make-tramp-file-name :method ,method)
|
|
'tramp-login-program)))
|
|
(vec (when (tramp-tramp-file-p default-directory)
|
|
(tramp-dissect-file-name default-directory)))
|
|
non-essential)
|
|
;; We don't use connection properties, because this information
|
|
;; shouldn't be kept persistently.
|
|
(with-tramp-file-property
|
|
vec (concat "/" ,method ":") "user-host-completions"
|
|
,@body)))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-container--completion-function (method)
|
|
"List running containers available for connection.
|
|
METHOD is the Tramp method to be used for \"ps\", either
|
|
`tramp-docker-method', `tramp-dockercp-method', `tramp-podman-method',
|
|
or `tramp-podmancp-method'.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list
|
|
(shell-command-to-string
|
|
(concat program " ps --format '{{.ID}}\t{{.Names}}'")))
|
|
(lines (split-string raw-list "\n" 'omit))
|
|
(names
|
|
(tramp-compat-seq-keep
|
|
(lambda (line)
|
|
(when (string-match
|
|
(rx bol (group (1+ nonl))
|
|
"\t" (? (group (1+ nonl))) eol)
|
|
line)
|
|
(or (match-string 2 line) (match-string 1 line))))
|
|
lines)))
|
|
(mapcar (lambda (name) (list nil name)) names))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-kubernetes--completion-function (method)
|
|
"List Kubernetes pods available for connection.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list
|
|
(shell-command-to-string
|
|
(concat
|
|
program " "
|
|
(tramp-kubernetes--context-namespace vec)
|
|
" get pods --no-headers"
|
|
;; We separate pods by "|". Inside a pod, its name
|
|
;; is separated from the containers by ":".
|
|
;; Containers are separated by ",".
|
|
" -o jsonpath='{range .items[*]}{\"|\"}{.metadata.name}"
|
|
"{\":\"}{range .spec.containers[*]}{.name}{\",\"}"
|
|
"{end}{end}'")))
|
|
(lines (split-string raw-list "|" 'omit)))
|
|
(let (names)
|
|
(dolist (line lines)
|
|
(setq line (split-string line ":" 'omit))
|
|
;; Pod name.
|
|
(push (car line) names)
|
|
;; Container names.
|
|
(dolist (elt (split-string (cadr line) "," 'omit))
|
|
(push (concat elt "." (car line)) names)))
|
|
(mapcar (lambda (name) (list nil name)) (delq nil names))))))
|
|
|
|
(defconst tramp-kubernetes--host-name-regexp
|
|
(rx (? (group (regexp tramp-host-regexp)) ".")
|
|
(group (regexp tramp-host-regexp)))
|
|
"The CONTAINER.POD syntax of kubernetes host names in Tramp.")
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-kubernetes--container (vec)
|
|
"Extract the container name from a kubernetes host name in VEC."
|
|
(or (let ((host (tramp-file-name-host vec)))
|
|
(and (string-match tramp-kubernetes--host-name-regexp host)
|
|
(match-string 1 host)))
|
|
""))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-kubernetes--pod (vec)
|
|
"Extract the pod name from a kubernetes host name in VEC."
|
|
(or (let ((host (tramp-file-name-host vec)))
|
|
(and (string-match tramp-kubernetes--host-name-regexp host)
|
|
(match-string 2 host)))
|
|
""))
|
|
|
|
;; We must change `vec' and `default-directory' to the previous hop,
|
|
;; in order to run `process-file' in a proper environment.
|
|
(defmacro tramp-skeleton-kubernetes-vector (vec &rest body)
|
|
"Skeleton for `tramp-kubernetes--current-context*' with multi-hop support.
|
|
BODY is the backend specific code."
|
|
(declare (indent 1) (debug t))
|
|
`(let* ((vec
|
|
(cond
|
|
((null ,vec) tramp-null-hop)
|
|
((equal (tramp-file-name-method ,vec) tramp-kubernetes-method)
|
|
(if (tramp-file-name-hop ,vec)
|
|
(tramp-dissect-hop-name (tramp-file-name-hop ,vec))
|
|
tramp-null-hop))
|
|
(t ,vec)))
|
|
(default-directory
|
|
(if (equal vec tramp-null-hop)
|
|
tramp-compat-temporary-file-directory
|
|
(tramp-make-tramp-file-name vec "/"))))
|
|
,@body))
|
|
|
|
(defun tramp-kubernetes--current-context (vec)
|
|
"Return Kubernetes current context.
|
|
Obey `tramp-kubernetes-context'"
|
|
(or tramp-kubernetes-context
|
|
(tramp-skeleton-kubernetes-vector vec
|
|
(with-tramp-file-property
|
|
vec (concat "/" tramp-kubernetes-method ":") "current-context"
|
|
(with-temp-buffer
|
|
(when (zerop
|
|
(process-file
|
|
tramp-kubernetes-program nil t nil
|
|
"config" "current-context"))
|
|
(goto-char (point-min))
|
|
(buffer-substring (point) (line-end-position))))))))
|
|
|
|
(defun tramp-kubernetes--current-context-data (vec)
|
|
"Return Kubernetes current context data as JSON string."
|
|
(when-let* ((current-context (tramp-kubernetes--current-context vec)))
|
|
(tramp-skeleton-kubernetes-vector vec
|
|
(with-temp-buffer
|
|
(when (zerop
|
|
(process-file
|
|
tramp-kubernetes-program nil t nil
|
|
"config" "view" "-o"
|
|
(format
|
|
"jsonpath='{.contexts[?(@.name == \"%s\")]}'" current-context)))
|
|
(buffer-string))))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-kubernetes--context-namespace (vec)
|
|
"The kubectl options for context and namespace as string."
|
|
(mapconcat
|
|
#'identity
|
|
`(,(when-let* ((context (tramp-kubernetes--current-context vec)))
|
|
(format "--context=%s" context))
|
|
,(when tramp-kubernetes-namespace
|
|
(format "--namespace=%s" tramp-kubernetes-namespace)))
|
|
" "))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-toolbox--completion-function (method)
|
|
"List Toolbox containers available for connection.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list (shell-command-to-string (concat program " list -c")))
|
|
;; Ignore header line.
|
|
(lines (cdr (split-string raw-list "\n" 'omit)))
|
|
;; We do not show container IDs.
|
|
(names (tramp-compat-seq-keep
|
|
(lambda (line)
|
|
(when (string-match
|
|
(rx bol (1+ (not space))
|
|
(1+ space) (group (1+ (not space))) space)
|
|
line)
|
|
(match-string 1 line)))
|
|
lines)))
|
|
(mapcar (lambda (name) (list nil name)) names))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-distrobox--completion-function (method)
|
|
"List Distrobox containers available for connection.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list (shell-command-to-string (concat program " list")))
|
|
;; Ignore header line.
|
|
(lines (cdr (split-string raw-list "\n" 'omit)))
|
|
;; We do not show container IDs.
|
|
(names (tramp-compat-seq-keep
|
|
(lambda (line)
|
|
(when (string-match
|
|
(rx bol (1+ (not space))
|
|
(1+ space) "|" (1+ space)
|
|
(group (1+ (not space))) space)
|
|
line)
|
|
(match-string 1 line)))
|
|
lines)))
|
|
(mapcar (lambda (name) (list nil name)) names))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-flatpak--completion-function (method)
|
|
"List Flatpak sandboxes available for connection.
|
|
It returns application IDs or, in case there is no application
|
|
ID, instance IDs.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list
|
|
(shell-command-to-string
|
|
;; Ignore header line.
|
|
(concat program " ps --columns=instance,application | cat -")))
|
|
(lines (split-string raw-list "\n" 'omit))
|
|
(names (tramp-compat-seq-keep
|
|
(lambda (line)
|
|
(when (string-match
|
|
(rx bol (* space) (group (+ (not space)))
|
|
(? (+ space) (group (+ (not space)))) eol)
|
|
line)
|
|
(or (match-string 2 line) (match-string 1 line))))
|
|
lines)))
|
|
(mapcar (lambda (name) (list nil name)) names))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-apptainer--completion-function (method)
|
|
"List Apptainer instances available for connection.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list
|
|
(shell-command-to-string (concat program " instance list")))
|
|
;; Ignore header line.
|
|
(lines (cdr (split-string raw-list "\n" 'omit)))
|
|
(names (tramp-compat-seq-keep
|
|
(lambda (line)
|
|
(when (string-match
|
|
(rx bol (group (1+ (not space)))
|
|
(1+ space) (1+ (not space))
|
|
(1+ space) (1+ (not space)))
|
|
line)
|
|
(match-string 1 line)))
|
|
lines)))
|
|
(mapcar (lambda (name) (list nil name)) names))))
|
|
|
|
(defun tramp-nspawn--completion-function (method)
|
|
"List systemd-nspawn containers available for connection.
|
|
|
|
This function is used by `tramp-set-completion-function', please
|
|
see its function help for a description of the format."
|
|
(tramp-skeleton-completion-function method
|
|
(when-let* ((raw-list
|
|
(shell-command-to-string (concat program " list --all -q")))
|
|
;; Ignore header line.
|
|
(lines (cdr (split-string raw-list "\n")))
|
|
(first-words
|
|
(mapcar (lambda (line) (car (split-string line))) lines))
|
|
(machines (seq-take-while (lambda (name) name) first-words)))
|
|
(mapcar (lambda (m) (list nil m)) machines))))
|
|
|
|
;;;###tramp-autoload
|
|
(defvar tramp-default-remote-shell) ;; Silence byte compiler.
|
|
|
|
;;;###tramp-autoload
|
|
(tramp--with-startup
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-docker-method
|
|
(tramp-login-program ,tramp-docker-program)
|
|
(tramp-login-args (("exec")
|
|
("-it")
|
|
("-u" "%u")
|
|
("%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))))
|
|
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-dockercp-method
|
|
(tramp-login-program ,tramp-docker-program)
|
|
(tramp-login-args (("exec")
|
|
("-it")
|
|
("-u" "%u")
|
|
("%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))
|
|
(tramp-copy-program ,tramp-docker-program)
|
|
(tramp-copy-args (("cp")))
|
|
(tramp-copy-file-name (("%h" ":") ("%f")))
|
|
(tramp-copy-recursive t)))
|
|
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-podman-method
|
|
(tramp-login-program ,tramp-podman-program)
|
|
(tramp-login-args (("exec")
|
|
("-it")
|
|
("-u" "%u")
|
|
("%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))))
|
|
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-podmancp-method
|
|
(tramp-login-program ,tramp-podman-program)
|
|
(tramp-login-args (("exec")
|
|
("-it")
|
|
("-u" "%u")
|
|
("%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))
|
|
(tramp-copy-program ,tramp-podman-program)
|
|
(tramp-copy-args (("cp")))
|
|
(tramp-copy-file-name (("%h" ":") ("%f")))
|
|
(tramp-copy-recursive t)))
|
|
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-kubernetes-method
|
|
(tramp-login-program ,tramp-kubernetes-program)
|
|
(tramp-login-args (("%x") ; context and namespace.
|
|
("exec")
|
|
("-c" "%a") ; container.
|
|
("%h")
|
|
("-it")
|
|
("--")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))))
|
|
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-docker-method)
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-podman-method)
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-kubernetes-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-docker-method
|
|
`((tramp-container--completion-function ,tramp-docker-method)))
|
|
|
|
(tramp-set-completion-function
|
|
tramp-dockercp-method
|
|
`((tramp-container--completion-function ,tramp-dockercp-method)))
|
|
|
|
(tramp-set-completion-function
|
|
tramp-podman-method
|
|
`((tramp-container--completion-function ,tramp-podman-method)))
|
|
|
|
(tramp-set-completion-function
|
|
tramp-podmancp-method
|
|
`((tramp-container--completion-function ,tramp-podmancp-method)))
|
|
|
|
(tramp-set-completion-function
|
|
tramp-kubernetes-method
|
|
`((tramp-kubernetes--completion-function ,tramp-kubernetes-method)))
|
|
|
|
(defconst tramp-kubernetes-connection-local-default-variables
|
|
'((tramp-config-check . tramp-kubernetes--current-context-data)
|
|
;; This variable will be eval'ed in `tramp-expand-args'.
|
|
(tramp-extra-expand-args
|
|
. (?a (tramp-kubernetes--container (car tramp-current-connection))
|
|
?h (tramp-kubernetes--pod (car tramp-current-connection))
|
|
?x (tramp-kubernetes--context-namespace
|
|
(car tramp-current-connection)))))
|
|
"Default connection-local variables for remote kubernetes connections.")
|
|
|
|
(connection-local-set-profile-variables
|
|
'tramp-kubernetes-connection-local-default-profile
|
|
tramp-kubernetes-connection-local-default-variables)
|
|
|
|
(connection-local-set-profiles
|
|
`(:application tramp :protocol ,tramp-kubernetes-method)
|
|
'tramp-kubernetes-connection-local-default-profile))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-enable-toolbox-method ()
|
|
"Enable connection to Toolbox containers."
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-toolbox-method
|
|
(tramp-login-program ,tramp-toolbox-program)
|
|
(tramp-login-args (("run")
|
|
("-c" "%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-c"))))
|
|
|
|
(add-to-list 'tramp-default-host-alist `(,tramp-toolbox-method nil ""))
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-toolbox-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-toolbox-method
|
|
`((tramp-toolbox--completion-function ,tramp-toolbox-method))))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-enable-distrobox-method ()
|
|
"Enable connection to Distrobox containers."
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-distrobox-method
|
|
(tramp-login-program ,tramp-distrobox-program)
|
|
(tramp-login-args (("enter")
|
|
("-n" "%h")
|
|
("--" "%l")))
|
|
;(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-c"))))
|
|
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-distrobox-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-distrobox-method
|
|
`((tramp-distrobox--completion-function ,tramp-distrobox-method)))
|
|
|
|
(add-to-list
|
|
'tramp-actions-before-shell
|
|
'(tramp-distrobox-no-container-regexp tramp-action-permission-denied)))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-enable-flatpak-method ()
|
|
"Enable connection to Flatpak sandboxes."
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-flatpak-method
|
|
(tramp-login-program ,tramp-flatpak-program)
|
|
(tramp-login-args (("enter")
|
|
("%h")
|
|
("%l")))
|
|
(tramp-direct-async (,tramp-default-remote-shell "-c"))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-c"))))
|
|
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-flatpak-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-flatpak-method
|
|
`((tramp-flatpak--completion-function ,tramp-flatpak-method)))
|
|
|
|
(defconst tramp-flatpak-connection-local-default-variables
|
|
`((tramp-remote-path . ,(cons "/app/bin" tramp-remote-path)))
|
|
"Default connection-local variables for remote flatpak connections.")
|
|
|
|
(connection-local-set-profile-variables
|
|
'tramp-flatpak-connection-local-default-profile
|
|
tramp-flatpak-connection-local-default-variables)
|
|
|
|
(connection-local-set-profiles
|
|
`(:application tramp :protocol ,tramp-flatpak-method)
|
|
'tramp-flatpak-connection-local-default-profile))
|
|
|
|
;;;###tramp-autoload
|
|
(defun tramp-enable-apptainer-method ()
|
|
"Enable connection to Apptainer instances."
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-apptainer-method
|
|
(tramp-login-program ,tramp-apptainer-program)
|
|
(tramp-login-args (("shell")
|
|
("instance://%h")
|
|
("%h"))) ; Needed for multi-hop check.
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-c"))))
|
|
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-apptainer-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-apptainer-method
|
|
`((tramp-apptainer--completion-function ,tramp-apptainer-method))))
|
|
|
|
;; todo: check tramp-async-args and tramp-direct-async
|
|
;;;###tramp-autoload
|
|
(defun tramp-enable-nspawn-method ()
|
|
"Enable connection to nspawn containers."
|
|
(add-to-list 'tramp-methods
|
|
`(,tramp-nspawn-method
|
|
(tramp-login-program ,tramp-nspawn-program)
|
|
(tramp-login-args (("shell")
|
|
("-q")
|
|
("--uid" "%u")
|
|
("%h")))
|
|
(tramp-remote-shell ,tramp-default-remote-shell)
|
|
(tramp-remote-shell-login ("-l"))
|
|
(tramp-remote-shell-args ("-i" "-c"))))
|
|
|
|
(add-to-list 'tramp-default-host-alist `(,tramp-nspawn-method nil ".host"))
|
|
(add-to-list 'tramp-completion-multi-hop-methods tramp-nspawn-method)
|
|
|
|
(tramp-set-completion-function
|
|
tramp-nspawn-method
|
|
`((tramp-nspawn--completion-function ,tramp-nspawn-method))))
|
|
|
|
(add-hook 'tramp-unload-hook
|
|
(lambda ()
|
|
(unload-feature 'tramp-container 'force)))
|
|
|
|
(provide 'tramp-container)
|
|
|
|
;;; tramp-container.el ends here
|