;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\310\305\317\320&\210\311\321\313\314\322DD\323\310\305\317\320&\210\311\324\313\314\325DD\326\310\305\317\320&\210\311\327\313\314\330DD\331\310\305\317\320&\210\311\332\313\314\333DD\334\310\305\317\320&\210\311\335\313\314\336DD\337\310\305\317\320&\210\311\340\313\314\341DD\342\317\343%\210\311\344\313\314\345DD\346\317\343%\210\311\347\313\314\350DD\351\317\343%\210\311\352\313\314\353DD\354\317\320%\207" [require helm tramp cl-lib custom-declare-group helm-tramp nil "Tramp with helm interface for ssh, docker, vagrant" :group custom-declare-variable helm-tramp-default-method funcall function #[0 "\300\207" [#1="ssh"] 1 #1#] "Default method when use tramp multi hop." :type string helm-tramp-docker-user #[0 "\300\207" [nil] 1] "If you want to use login user name when `docker-tramp' used, set variable." helm-tramp-localhost-directory #[0 "\300\207" [#2="/"] 1 #2#] "Initial directory when connecting with /sudo:root@localhost:." helm-tramp-control-master #[0 "\300\207" [nil] 1] "If you want to put out a candidate for completion from ssh controlmaster, please set to t." helm-tramp-control-master-path #[0 "\300\207" [#3="~/.ssh/"] 1 #3#] "Path where ssh controlmaster exists." helm-tramp-control-master-prefix #[0 "\300\207" [#4="master-"] 1 #4#] "Prefix of ssh controlmaster." helm-tramp-pre-command-hook #[0 "\300\207" [nil] 1] "Hook run before `helm-tramp'.\nThe hook is called with one argument that is non-nil." hook helm-tramp-post-command-hook #[0 "\300\207" [nil] 1] "Hook run after `helm-tramp'.\nThe hook is called with one argument that is non-nil." helm-tramp-quit-hook #[0 "\300\207" [nil] 1] "Hook run when `helm-tramp-quit'.\nThe hook is called with one argument that is non-nil." helm-tramp-custom-connections #[0 "\300\207" [nil] 1] "A list to manually add extra connections.\nE.g.: '(/ssh:domain|sudo:user@localhost:/)."] 8) #@43 Quit helm-tramp. Kill all remote buffers. (defalias 'helm-tramp-quit #[0 "\300\301!\210\302 \207" [run-hooks helm-tramp-quit-hook tramp-cleanup-all-buffers] 2 (#$ . 2058) nil]) #@67 Collect candidates for helm-tramp from FILE. (fn &optional FILE) (defalias 'helm-tramp--candidates #[256 "\306\307\310\311\"r\211q\210\312\313\"\216\314\206\315!\210\316 *\262\317\"?\205#\211\203\323\211@\320\321\"\203\246\322\323\"\262\320\324\"\203E\325\326\311\211$\210\320\327\"\203S\325\326\311\211$\210\211\330\230\204\246\320\331\"\203\216\306\332\"\211\203\212\333 \334@\334\260B\262\333\n\334@\335@\336\260B\262\211A\262\202d\210\202\246\333 \334\334\260B\262\333\n\334\335\336\260B\262\320\337\"\203\314\322\323\"\340 !\204\276\341\342! P\343 !\203\314\344\345 !\"\262A\266\202\202$\210\f\203;\346\347 !@\"\350\211\211\211\2039\211@\351!\320@\352P\"\2031\322\323\"\262\322\353\"\262\322\354\"\262\333 \334\355 \356\n\334\260 B\262\333\n\334\355 \356\n\335 \336\260 B\262\210A\266\202\202\343\266\357\360\350\311#\203\301\3611Q\362\363\364\365C#0\202S\210\350A\350\211\211\211:\203\275@\262\366\306\367\311#!\262\370@\336QB\262A\205\257A<\203\240A\211\205\233\370@\355@\336\260B\262\211A\262\202\201\262\202\257\370A\355@\336\260B\211\262B\262A\262\350\262\202X\237\266\357\371\350\311#\203\372\373\374 \350\362\375$\205\335\376\"\266\205\350:\203@\262\377\336QB\262\377\201C\336\260B\262A\262\202\340\266\201DBPB\262\366!\207" [helm-tramp-custom-connections tramp-default-method helm-tramp-default-method include-file helm-tramp-control-master helm-tramp-control-master-path split-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents "~/.ssh/config" buffer-string "\n" string-match "[H\\|h]ost +\\(.+?\\)$" match-string 1 "[ \n ]+\\'" replace-match "" "\\`[ \n ]+" "*" "[ ]+" " " "/" ":" "|sudo:root@" ":/" "Include +\\(.+\\)$" file-name-absolute-p file-name-as-directory "~/.ssh" file-exists-p append helm-tramp--candidates helm-tramp--directory-files expand-file-name nil file-name-nondirectory "\\(.+?\\)@\\(.+?\\):\\(.+?\\)$" 2 3 "@" "#" require docker-tramp (error) apply process-lines "docker" "ps" reverse "[[:space:]]+" "/docker:" vagrant-tramp list cadr vagrant-tramp--completions cl-mapcar cl-coerce "/vagrant:" helm-tramp-control-master-prefix helm-tramp-docker-user helm-tramp-localhost-directory "|sudo:" "/sudo:root@localhost:"] 21 (#$ . 2241)]) #@91 Return list of all files under DIR that have file names matching REGEXP. (fn DIR REGEXP) (defalias 'helm-tramp--directory-files #[514 "\301\205\n\302\303!!\304\305\306\"\307\"\211\203;\211@\211\310\235\2044\311!\2044\312\"\2034\303\"B\262A\266\202\202\210\301\237\244)\207" [tramp-mode nil file-remote-p expand-file-name sort file-name-all-completions "" string< ("./" "../") helm-tramp--directory-name-p string-match] 8 (#$ . 4673)]) #@78 Return non-nil if NAME ends with a directory separator character. (fn NAME) (defalias 'helm-tramp--directory-name-p #[257 "\211G\301\302V\203SH\262\211\303U\206\304>\205\211\305U\207" [system-type 46 0 47 (windows-nt ms-dos) 92] 5 (#$ . 5136)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-tramp--directory-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@34 Tramp open with PATH. (fn PATH) (defalias 'helm-tramp-open #[257 "\300!\207" [find-file] 3 (#$ . 5553)]) #@38 Tramp open shell at PATH. (fn PATH) (defalias 'helm-tramp-open-shell #[257 "\211\301\302P!)\207" [default-directory shell "* Helm tramp shell - "] 4 (#$ . 5666)]) (defvar helm-tramp--source (byte-code "\300\301\302\303\304\305\306\307\310\301\311\312\313$&\207" [helm-make-source "Tramp" helm-source-sync :candidates helm-tramp--candidates :volatile t :action helm-make-actions helm-tramp-open "Shell" helm-tramp-open-shell] 13)) #@85 Open your ~/.ssh/config with helm interface. You can connect your server with tramp (defalias 'helm-tramp #[0 "\300\301!\204\n\302\303!\210\304\305\306\307#\203\310\311!\204\302\312!\210\304\313\306\307#\203.\310\314!\204.\302\315!\210\316\317!\210\320\321\322\323\324$\210\316\325!\207" [file-exists-p "~/.ssh/config" error "There is no ~/.ssh/config" require docker-tramp nil t executable-find "docker" "'docker' is not installed" vagrant-tramp "vagrant" "'vagrant' is not installed" run-hooks helm-tramp-pre-command-hook helm :sources (helm-tramp--source) :buffer "*helm tramp*" helm-tramp-post-command-hook] 5 (#$ . 6106) nil]) (provide 'helm-tramp)