;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\312\314& \210\315\316\317\320\321DD\322\323\324\310\303&\210\315\325\317\320\326DD\327\323\324\310\303&\207" [require tramp custom-declare-group lxc-tramp nil "TRAMP integration for lxc containers." :prefix "lxc-tramp-" :group applications :link (url-link :tag "GitHub" "https://github.com/montag451/lxc-tramp") (emacs-commentary-link :tag "Commentary" "lxc-tramp") custom-declare-variable lxc-tramp-lxc-attach-executable funcall function #[0 "\300\207" [#1="lxc-attach"] 1 #1#] "Path to lxc-attach executable." :type string lxc-tramp-lxc-ls-executable #[0 "\300\207" [#2="lxc-ls"] 1 #2#] "Path to lxc-ls executable."] 12) #@70 Default list of (FUNCTION FILE) pairs to be examined for lxc method. (defconst lxc-tramp-completion-function-alist '((lxc-tramp--parse-running-containers "")) (#$ . 778)) #@35 Method to connect lxc containers. (defconst lxc-tramp-method "lxc" (#$ . 955)) #@463 A version of `process-lines' that use `process-file'. Contrary to `process-lines', this function uses `process-file' instead of `call-process'. PROGRAM is the program to execute, see the documentation of `process-lines' for further information. If DELETE-TRAILING-WS is non-nil trailing whitespace and trailing newlines will be removed from output. ARGS are passed to PROGRAM similarly to `process-lines' (fn PROGRAM &optional DELETE-TRAILING-WS &rest ARGS) (defalias 'lxc-tramp--process-lines #[641 "\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\310&\311U\205C\203&\303\312 \210)eb\210\310m\204?\313\314 \315 \"\211B\266\202\310y\210\202*\211\237\262*\207" [delete-trailing-lines generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file nil 0 delete-trailing-whitespace buffer-substring-no-properties line-beginning-position line-end-position] 11 (#$ . 1041)]) #@110 List running containers. TRAMP call this function with a filename which is IGNORED. (fn &optional IGNORED) (defalias 'lxc-tramp--running-containers #[256 "\301\302\303\304$\207" [lxc-tramp-lxc-ls-executable lxc-tramp--process-lines t "--running" "-1"] 6 (#$ . 2010)]) #@234 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 lxc TRAMP method uses bash to connect to the default user containers. (fn &optional IGNORED) (defalias 'lxc-tramp--parse-running-containers #[256 "\300 \301\211:\203@\262\302DB\262A\262\202\211\237\207" [lxc-tramp--running-containers nil ""] 6 (#$ . 2288)]) #@23 Add lxc tramp method. (defalias 'lxc-tramp-add-method #[0 "\302\303\304 D\305BB\"\207" [lxc-tramp-method lxc-tramp-lxc-attach-executable add-to-list tramp-methods tramp-login-program ((tramp-login-args (("--clear-env") ("-v") ("HOME=/root") ("-n") ("%h") ("--") ("su - %u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-i" "-c")))] 5 (#$ . 2704)]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load tramp #[0 "\302 \210\303 \"\207" [lxc-tramp-method lxc-tramp-completion-function-alist lxc-tramp-add-method tramp-set-completion-function] 3] provide lxc-tramp] 3)