mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
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!\203SB\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!\203xB\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!\203B\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)