| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\320\321\311\306&\210\312\322\314\315\323DD\324\320\325\311\306&\210\312\326\314\315\327DD\330\311\306\320\321&\207" [require cl-lib helm helm-help helm-net custom-declare-group helm-external nil "External related Applications and libraries for Helm." :group custom-declare-variable helm-raise-command funcall function #[0 "\300\207" [nil] 1] "A shell command to jump to a window running specific program.\nNeed external program wmctrl.\nThis will be use with `format', so use something like \"wmctrl -xa %s\"." :type string helm-external-programs-associations #[0 "\300\207" [nil] 1] "Alist to store externals programs associated with file extension.\nThis variable overhide setting in .mailcap file.\ne.g : '((\"jpg\" . \"gqview\") (\"pdf\" . \"xpdf\")) " (alist :key-type string :value-type string) helm-default-external-file-browser #[0 "\300\207" [#1="nautilus"] 1 #1#] "Default external file browser for your system.\nDirectories will be opened externally with it when\nopening file externally in `helm-find-files'.\nSet to nil if you do not have external file browser\nor do not want to use it.\nWindows users should set that to \"explorer.exe\"."] 8) | |
| 16 | (defvar helm-external-command-history nil) | |
| 17 | #@133 A list of all external commands the user can execute. | |
| 18 | If this variable is not set by the user, it will be calculated | |
| 19 | automatically. | |
| 20 | (defvar helm-external-commands-list nil (#$ . 1733)) | |
| 21 | #@239 Returns a list of all external commands the user can execute. | |
| 22 | If `helm-external-commands-list' is non-nil it will | |
| 23 | return its contents. Else it calculates all external commands | |
| 24 | and sets `helm-external-commands-list'. | |
| 25 | ||
| 26 | (fn &optional SORT) | |
| 27 | (defalias 'helm-external-commands-list-1 #[256 "\211\203 \211\202} \302\303\304! \"\305\211\211:\203m @\262\306!\203` \307!\203` \310\311\"\305\211\211:\203Z @\262\312!\262\235\204S \313!\204S \314!\203S B\262A\262\202. \211\237\266\204\262\315\"\262A\262\202 \203x \316\317\"\202y \211\266\204\211\207" [helm-external-commands-list path-separator split-string getenv "PATH" nil file-exists-p file-accessible-directory-p directory-files t file-name-nondirectory file-directory-p file-executable-p append sort string-lessp] 12 (#$ . 1925)]) | |
| 28 | #@221 Run asynchronously EXE or jump to the application window. | |
| 29 | If EXE is already running just jump to his window if `helm-raise-command' | |
| 30 | is non--nil. | |
| 31 | When FILE argument is provided run EXE with FILE. | |
| 32 | ||
| 33 | (fn EXE &optional FILE) | |
| 34 | (defalias 'helm-run-or-raise #[513 "\304!@\203 \211\305Q\202 \211\306\307!\203, \203% \310\311 \"!\202| \312\313\"\202| \n\235\203t \314\315\"\210\203[ \316\306\311\317\320 \321=\203P \322\n!\202T \323\n!!##\210\202a \316\306#\210\324\307!\325\326\327\330\331!\332\"\333\334%\"\210\335\n\"B\211)\207" [process-connection-type helm-raise-command helm-external-commands-list system-type split-string " " nil get-process shell-command format error "Error: %s is already running" message "Starting %s..." start-process-shell-command "%s %s" shell-quote-argument windows-nt helm-w32-prepare-filename expand-file-name set-process-sentinel make-byte-code 514 "\211\302\230\203 \203 \303\300!\204 \304\305 \306\"!\210\307\310\"\207" vconcat vector [helm-raise-command "finished\n" helm-get-pid-from-process-name shell-command format "emacs" message "%s process...Finished."] 6 "\n\n(fn PROCESS EVENT)" delete] 13 (#$ . 2742)]) | |
| 35 | #@72 Get the command to use for FILENAME from mailcap files. | |
| 36 | ||
| 37 | (fn FILENAME) | |
| 38 | (defalias 'helm-get-mailcap-for-file #[257 "\300 \210\301!\211\205 \302!\211\205 \303!\211;\205 \304!\207" [mailcap-parse-mailcaps file-name-extension mailcap-extension-to-mime mailcap-mime-info helm-basename] 6 (#$ . 3918)]) | |
| 39 | #@169 Try to find a default program to open FILENAME. | |
| 40 | Try first in `helm-external-programs-associations' and then in mailcap file | |
| 41 | if nothing found return nil. | |
| 42 | ||
| 43 | (fn FILENAME) | |
| 44 | (defalias 'helm-get-default-program-for-file #[257 "\302!\303\"\211\203 \211\304\230\204 \211\202& \203# \305!\203# \202& \306!\207" [helm-external-programs-associations helm-default-external-file-browser file-name-extension assoc-default "" file-directory-p helm-get-mailcap-for-file] 5 (#$ . 4229)]) | |
| 45 | #@196 Open FILE with an external program. | |
| 46 | Try to guess which program to use with `helm-get-default-program-for-file'. | |
| 47 | If not found or a prefix arg is given query the user which tool to use. | |
| 48 | ||
| 49 | (fn FILE) | |
| 50 | (defalias 'helm-open-file-externally #[257 "\303!\304\305!\306!\204 \211\204$ \307\310\311\312\313\314\315\316\317 &\n\316\262\202% \211\204X \320!\203X \321\322\323\"!\203X \324\325!\n\"\211\203G \326\n\"\210\325!\327\330\"B\nB\331\302\n\"\210\332\"\210\211\326 \316\211:\203 @\262\333!\203x B\262A\262\202d \211\237\266\203\"B\211\207" [helm-current-prefix-arg helm-external-command-history helm-external-programs-associations expand-file-name helm-external-commands-list-1 sort helm-get-default-program-for-file helm-comp-read "Program: " :must-match t :name "Open file Externally" :del-input nil :history file-exists-p y-or-n-p format "Do you want to make `%s' the default program for this kind of files? " assoc file-name-extension delete helm-read-string "Program (Add args maybe and confirm): " customize-save-variable helm-run-or-raise executable-find] 15 (#$ . 4715)]) | |
| 51 | #@207 Preconfigured `helm' to run External PROGRAM asyncronously from Emacs. | |
| 52 | If program is already running exit with error. | |
| 53 | You can set your own list of commands with | |
| 54 | `helm-external-commands-list'. | |
| 55 | ||
| 56 | (fn PROGRAM) | |
| 57 | (defalias 'helm-run-external-command #[257 "\301!\210\211\302\303\211:\203% @\262\304!\203 B\262A\262\202\n \211\237\266\203\"B\211\207" [helm-external-command-history helm-run-or-raise delete nil executable-find] 9 (#$ . 5825) (byte-code "\301\302\303\304!\305\306\307\310\311\312\313&\nC\207" [helm-external-command-history helm-comp-read "RunProgram: " helm-external-commands-list-1 sort :must-match t :del-input nil :name "External Commands" :history] 11)]) | |
| 58 | (provide 'helm-external) | |
