+++ /dev/null
-;;; docker-tramp-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-\f
-;;;### (autoloads nil "docker-tramp" "docker-tramp.el" (0 0 0 0))
-;;; Generated autoloads from docker-tramp.el
-
-(defvar docker-tramp-docker-options nil "\
-List of docker options.")
-
-(custom-autoload 'docker-tramp-docker-options "docker-tramp" t)
-
-(defconst docker-tramp-completion-function-alist '((docker-tramp--parse-running-containers "")) "\
-Default list of (FUNCTION FILE) pairs to be examined for docker method.")
-
-(defconst docker-tramp-method "docker" "\
-Method to connect docker containers.")
-
-(autoload 'docker-tramp-cleanup "docker-tramp" "\
-Cleanup TRAMP cache for docker method." t nil)
-
-(autoload 'docker-tramp-add-method "docker-tramp" "\
-Add docker tramp method." nil nil)
-
-(eval-after-load 'tramp '(progn (docker-tramp-add-method) (tramp-set-completion-function docker-tramp-method docker-tramp-completion-function-alist)))
-
-(register-definition-prefixes "docker-tramp" '("docker-tramp-"))
-
-;;;***
-\f
-;;;### (autoloads nil nil ("docker-tramp-compat.el" "docker-tramp-pkg.el")
-;;;;;; (0 0 0 0))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; docker-tramp-autoloads.el ends here
+++ /dev/null
-;;; docker-tramp-compat.el --- TRAMP integration for docker containers -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015 Mario Rodas <marsamNOSPAMusers.noreply.github.com>
-
-;; Author: Mario Rodas <marsamNOSPAMusers.noreply.github.com>
-;; URL: https://github.com/emacs-pe/docker-tramp.el
-;; Keywords: docker, convenience
-;; Version: 0.1
-;; Package-Requires: ((emacs "24"))
-
-;; This file is NOT part of GNU Emacs.
-
-;;; License:
-
-;; This program 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.
-
-;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-(require 'tramp-sh)
-
-(when (version< tramp-version "2.3")
-;; Overwrite `tramp-wait-for-output' to work with Alpine busy boxes in Tramp<2.3
-;;
-;; See:
-;; + https://lists.gnu.org/archive/html/tramp-devel/2016-05/msg00000.html
-;; + http://git.savannah.gnu.org/cgit/tramp.git/commit/?id=98a511248a9405848ed44de48a565b0b725af82c
-(defconst tramp-device-escape-sequence-regexp "\e[[0-9]+n"
- "Terminal control escape sequences for device status.")
-
-(defun tramp-wait-for-output (proc &optional timeout)
- "Wait for output from remote command."
- (unless (buffer-live-p (process-buffer proc))
- (delete-process proc)
- (tramp-error proc 'file-error "Process `%s' not available, try again" proc))
- (with-current-buffer (process-buffer proc)
- (let* (;; Initially, `tramp-end-of-output' is "#$ ". There might
- ;; be leading escape sequences, which must be ignored.
- ;; Busyboxes built with the EDITING_ASK_TERMINAL config
- ;; option send also escape sequences, which must be
- ;; ignored.
- (regexp (format "[^#$\n]*%s\\(%s\\)?\r?$"
- (regexp-quote tramp-end-of-output)
- tramp-device-escape-sequence-regexp))
- ;; Sometimes, the commands do not return a newline but a
- ;; null byte before the shell prompt, for example "git
- ;; ls-files -c -z ...".
- (regexp1 (format "\\(^\\|\000\\)%s" regexp))
- (found (tramp-wait-for-regexp proc timeout regexp1)))
- (if found
- (let (buffer-read-only)
- ;; A simple-minded busybox has sent " ^H" sequences.
- ;; Delete them.
- (goto-char (point-min))
- (when (re-search-forward "^\\(.\b\\)+$" (point-at-eol) t)
- (forward-line 1)
- (delete-region (point-min) (point)))
- ;; Delete the prompt.
- (goto-char (point-max))
- (re-search-backward regexp nil t)
- (delete-region (point) (point-max)))
- (if timeout
- (tramp-error
- proc 'file-error
- "[[Remote prompt `%s' not found in %d secs]]"
- tramp-end-of-output timeout)
- (tramp-error
- proc 'file-error
- "[[Remote prompt `%s' not found]]" tramp-end-of-output)))
- ;; Return value is whether end-of-output sentinel was found.
- found)))
-)
-
-(provide 'docker-tramp-compat)
-
-;;; docker-tramp-compat.el ends here
+++ /dev/null
-(define-package "docker-tramp" "20220219.420" "TRAMP integration for docker containers"
- '((emacs "24")
- (cl-lib "0.5"))
- :commit "930d7b46c180d8a13240a028c1b40af84f2a3219" :authors
- '(("Mario Rodas" . "marsamNOSPAMusers.noreply.github.com"))
- :maintainers
- '(("Mario Rodas" . "marsamNOSPAMusers.noreply.github.com"))
- :maintainer
- '("Mario Rodas" . "marsamNOSPAMusers.noreply.github.com")
- :keywords
- '("docker" "convenience")
- :url "https://github.com/emacs-pe/docker-tramp.el")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
+++ /dev/null
-;;; docker-tramp.el --- TRAMP integration for docker containers -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015 Mario Rodas <marsamNOSPAMusers.noreply.github.com>
-
-;; Author: Mario Rodas <marsamNOSPAMusers.noreply.github.com>
-;; URL: https://github.com/emacs-pe/docker-tramp.el
-;; Keywords: docker, convenience
-;; Version: 0.1.1
-;; Package-Requires: ((emacs "24") (cl-lib "0.5"))
-
-;; This file is NOT part of GNU Emacs.
-
-;;; License:
-
-;; This program 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.
-
-;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; `docker-tramp.el' offers a TRAMP method for Docker containers.
-;;
-;; > **NOTE**: `docker-tramp.el' relies in the `docker exec` command. Tested
-;; > with docker version 1.6.x but should work with versions >1.3. Podman
-;; > also works.
-;;
-;; ## Usage
-;;
-;; Offers the TRAMP method `docker` to access running containers
-;;
-;; C-x C-f /docker:user@container:/path/to/file
-;;
-;; where
-;; user is the user that you want to use inside the container (optional)
-;; container is the id or name of the container
-;;
-;; ### [Multi-hop][] examples
-;;
-;; If you container is hosted on `vm.example.net`:
-;;
-;; /ssh:vm-userNOSPAMvm.example.net|docker:user@container:/path/to/file
-;;
-;; If you need to run the `docker` command as, say, the `root` user:
-;;
-;; /sudo:root@localhost|docker:user@container:/path/to/file
-;;
-;; ## Troubleshooting
-;;
-;; ### Tramp hangs on Alpine container
-;;
-;; Busyboxes built with the `ENABLE_FEATURE_EDITING_ASK_TERMINAL' config option
-;; send also escape sequences, which `tramp-wait-for-output' doesn't ignores
-;; correctly. Tramp upstream fixed in [98a5112][] and is available since
-;; Tramp>=2.3.
-;;
-;; For older versions of Tramp you can dump [docker-tramp-compat.el][] in your
-;; `load-path' somewhere and add the following to your `init.el', which
-;; overwrites `tramp-wait-for-output' with the patch applied:
-;;
-;; (require 'docker-tramp-compat)
-;;
-;; ### Tramp does not respect remote `PATH'
-;;
-;; This is a known issue with Tramp, but is not a bug so much as a poor default
-;; setting. Adding `tramp-own-remote-path' to `tramp-remote-path' will make
-;; Tramp use the remote's `PATH' environment varialbe.
-;;
-;; (add-to-list 'tramp-remote-path 'tramp-own-remote-path)
-;;
-;; [Multi-hop]: https://www.gnu.org/software/emacs/manual/html_node/tramp/Ad_002dhoc-multi_002dhops.html
-;; [98a5112]: http://git.savannah.gnu.org/cgit/tramp.git/commit/?id=98a511248a9405848ed44de48a565b0b725af82c
-;; [docker-tramp-compat.el]: https://github.com/emacs-pe/docker-tramp.el/raw/master/docker-tramp-compat.el
-
-;;; Code:
-(eval-when-compile (require 'cl-lib))
-
-(require 'tramp)
-(require 'tramp-cache)
-
-(defgroup docker-tramp nil
- "TRAMP integration for Docker containers."
- :prefix "docker-tramp-"
- :group 'applications
- :link '(url-link :tag "Github" "https://github.com/emacs-pe/docker-tramp.el")
- :link '(emacs-commentary-link :tag "Commentary" "docker-tramp"))
-
-(defcustom docker-tramp-docker-executable "docker"
- "Path to docker (or compatible) executable."
- :type '(choice
- (const "docker")
- (const "podman")
- (string))
- :group 'docker-tramp)
-
-;;;###autoload
-(defcustom docker-tramp-docker-options nil
- "List of docker options."
- :type '(repeat string)
- :group 'docker-tramp)
-
-(defcustom docker-tramp-use-names nil
- "Whether use names instead of id."
- :type 'boolean
- :group 'docker-tramp)
-
-;;;###autoload
-(defconst docker-tramp-completion-function-alist
- '((docker-tramp--parse-running-containers ""))
- "Default list of (FUNCTION FILE) pairs to be examined for docker method.")
-
-;;;###autoload
-(defconst docker-tramp-method "docker"
- "Method to connect docker containers.")
-
-(defun docker-tramp--running-containers ()
- "Collect docker running containers.
-
-Return a list of containers of the form: \(ID NAME\)"
- (cl-loop for line in (cdr (ignore-errors (apply #'process-lines docker-tramp-docker-executable (append docker-tramp-docker-options (list "ps")))))
- for info = (split-string line "[[:space:]]+" t)
- collect (cons (car info) (last info))))
-
-(defun docker-tramp--parse-running-containers (&optional ignored)
- "Return a list of (user host) tuples.
-
-TRAMP calls this function with a filename which is IGNORED. The
-user is an empty string because the docker TRAMP method uses bash
-to connect to the default user containers."
- (cl-loop for (id name) in (docker-tramp--running-containers)
- collect (list "" (if docker-tramp-use-names name id))))
-
-;;;###autoload
-(defun docker-tramp-cleanup ()
- "Cleanup TRAMP cache for docker method."
- (interactive)
- (let ((containers (apply 'append (docker-tramp--running-containers))))
- (maphash (lambda (key _)
- (and (vectorp key)
- (string-equal docker-tramp-method (tramp-file-name-method key))
- (not (member (tramp-file-name-host key) containers))
- (remhash key tramp-cache-data)))
- tramp-cache-data))
- (setq tramp-cache-data-changed t)
- (if (zerop (hash-table-count tramp-cache-data))
- (ignore-errors (delete-file tramp-persistency-file-name))
- (tramp-dump-connection-properties)))
-
-;;;###autoload
-(defun docker-tramp-add-method ()
- "Add docker tramp method."
- (add-to-list 'tramp-methods
- `(,docker-tramp-method
- (tramp-login-program ,docker-tramp-docker-executable)
- (tramp-login-args (,docker-tramp-docker-options ("exec" "-it") ("-u" "%u") ("%h") ("sh")))
- (tramp-remote-shell "/bin/sh")
- (tramp-remote-shell-args ("-i" "-c")))))
-
-;;;###autoload
-(eval-after-load 'tramp
- '(progn
- (docker-tramp-add-method)
- (tramp-set-completion-function docker-tramp-method docker-tramp-completion-function-alist)))
-
-(provide 'docker-tramp)
-
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; End:
-
-;;; docker-tramp.el ends here
+++ /dev/null
-`docker-tramp.el' offers a TRAMP method for Docker containers.
-
-> **NOTE**: `docker-tramp.el' relies in the `docker exec` command. Tested
-> with docker version 1.6.x but should work with versions >1.3
-
-## Usage
-
-Offers the TRAMP method `docker` to access running containers
-
- C-x C-f /docker:user@container:/path/to/file
-
- where
- user is the user that you want to use (optional)
- container is the id or name of the container
-
-## Troubleshooting
-
-### Tramp hangs on Alpine container
-
-Busyboxes built with the `ENABLE_FEATURE_EDITING_ASK_TERMINAL' config option
-send also escape sequences, which `tramp-wait-for-output' doesn't ignores
-correctly. Tramp upstream fixed in [98a5112][] and is available since
-Tramp>=2.3.
-
-For older versions of Tramp you can dump [docker-tramp-compat.el][] in your
-`load-path' somewhere and add the following to your `init.el', which
-overwrites `tramp-wait-for-output' with the patch applied:
-
- (require 'docker-tramp-compat)
-
-[98a5112]: http://git.savannah.gnu.org/cgit/tramp.git/commit/?id=98a511248a9405848ed44de48a565b0b725af82c
-[docker-tramp-compat.el]: https://github.com/emacs-pe/docker-tramp.el/raw/master/docker-tramp-compat.el
projects / emacsconfig.git / commitdiff