;ELC��� ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314\313\315&\210\316\317\320\321\322DD\323\324\325\311\304&\207" [require tramp subr-x custom-declare-group lxd-tramp nil "TRAMP integration for LXD containers." :prefix "lxd-tramp-" :group applications :link (url-link :tag "GitHub" "https://github.com/onixie/lxd-tramp.git") (emacs-commentary-link :tag "Commentary" "lxd-tramp") custom-declare-variable lxd-tramp-lxc-executable funcall function #[0 "\300\207" [#1="lxc"] 1 #1#] "Path to lxc executable." :type string] 12) #@70 Default list of (FUNCTION FILE) pairs to be examined for lxd method. (defconst lxd-tramp-completion-function-alist '((lxd-tramp--parse-running-containers "")) (#$ . 637)) #@38 Method to connect to LXD containers. (defconst lxd-tramp-method "lxd" (#$ . 814)) #@34 Collect running container names. (defalias 'lxd-tramp--running-containers #[0 "\3011 �\302\303\304#0\202�\210\305\305\306\305:\2036�@\262\307!\203+�\310\306\311O!B\262A\262T\262\202�\211\237\266\204A\207" [lxd-tramp-lxc-executable (error) process-lines "list" "--columns=n" nil 1 cl-evenp string-trim -1] 8 (#$ . 902)]) #@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 lxd TRAMP method uses bash to connect to the default user containers. (fn &optional IGNORED) (defalias 'lxd-tramp--parse-running-containers #[256 "\300 \301\211:\203�@\262\302DB\262A\262\202�\211\237\207" [lxd-tramp--running-containers nil ""] 6 (#$ . 1243)]) #@23 Add lxd tramp method. (defalias 'lxd-tramp-add-method #[0 "\302\303\304 D\305BB\"\207" [lxd-tramp-method lxd-tramp-lxc-executable add-to-list tramp-methods tramp-login-program ((tramp-login-args (("exec") ("%h") ("--") ("su - %u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-i" "-c")))] 5 (#$ . 1659)]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load tramp #[0 "\302 \210\303 \"\207" [lxd-tramp-method lxd-tramp-completion-function-alist lxd-tramp-add-method tramp-set-completion-function] 3] provide lxd-tramp] 3)