emacsd/elpa/helm-20191201.633/helm-net.elc

;ELC
;;; Compiled
;;; in Emacs version 26.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\302%\210\314\315\316\317\320DD\321\313\310\322\323&\210\314\324\316\317\325DD\326\313\310\322\327&\210\314\330\316\317\331DD\332\313\310\322\323&\210\314\333\316\317\334DD\335\322\327\313\310&\210\314\336\316\317\337DD\340\322\327\313\310&\210\341\342\343\"\210\344\342\343\345#\210\314\343\316\317\346DD\347\322\350\313\310&\210\314\351\316\317\352DD\353\322\327\313\310&\210\314\354\316\317\355DD\356\322\327\313\310&\210\314\357\316\317\360DD\361\322\327\313\310&\210\314\362\316\317\363DD\364\322\327\313\310&\210\314\365\316\317\366DD\367\322\327\313\310&\210\314\370\316\317\371DD\372\322\327\313\310&\210\314\373\316\317\374DD\375\313\310\322\376&\210\314\377\316\317\201@DD\201A\313\310\322\201B&\210\314\201C\316\317\201DDD\201E\313\310\322\201F&\207" [require cl-lib helm helm-help url xml browse-url custom-declare-group helm-net nil "Net related applications and libraries for Helm." :group custom-declare-variable helm-google-suggest-default-browser-function funcall function #[0 "\300\207" [nil] 1] "The browse url function you prefer to use with google suggest.\nWhen nil, use the first browser function available\nSee `helm-browse-url-default-browser-alist'." :type symbol helm-home-url #[0 "\300\207" [#1="https://www.google.com"] 1 #1#] "Default url to use as home url." string helm-surfraw-default-browser-function #[0 "\300\207" [nil] 1] "The browse url function you prefer to use with surfraw.\nWhen nil, fallback to `browse-url-browser-function'." helm-google-suggest-url #[0 "\300\207" [#2="https://encrypted.google.com/complete/search?output=toolbar&q=%s"] 1 #2#] "URL used for looking up Google suggestions.\nThis is a format string, don't forget the `%s'." helm-google-suggest-search-url #[0 "\300\207" [#3="https://encrypted.google.com/search?ie=utf-8&oe=utf-8&q=%s"] 1 #3#] "URL used for Google searching.\nThis is a format string, don't forget the `%s'." defvaralias helm-google-suggest-use-curl-p helm-net-prefer-curl make-obsolete-variable "1.7.7" #[0 "\300\207" [nil] 1] "When non--nil use CURL external program to fetch data.\nOtherwise `url-retrieve-synchronously' is used." boolean helm-surfraw-duckduckgo-url #[0 "\300\207" [#4="https://duckduckgo.com/lite/?q=%s&kp=1"] 1 #4#] "The duckduckgo url.\nThis is a format string, don't forget the `%s'.\nIf you have personal settings saved on duckduckgo you should have\na personal url, see your settings on duckduckgo." helm-search-suggest-action-wikipedia-url #[0 "\300\207" [#5="https://en.wikipedia.org/wiki/Special:Search?search=%s"] 1 #5#] "The Wikipedia search url.\nThis is a format string, don't forget the `%s'." helm-search-suggest-action-youtube-url #[0 "\300\207" [#6="https://www.youtube.com/results?aq=f&search_query=%s"] 1 #6#] "The Youtube search url.\nThis is a format string, don't forget the `%s'." helm-search-suggest-action-imdb-url #[0 "\300\207" [#7="http://www.imdb.com/find?s=all&q=%s"] 1 #7#] "The IMDb search url.\nThis is a format string, don't forget the `%s'." helm-search-suggest-action-google-maps-url #[0 "\300\207" [#8="https://maps.google.com/maps?f=q&source=s_q&q=%s"] 1 #8#] "The Google Maps search url.\nThis is a format string, don't forget the `%s'." helm-search-suggest-action-google-news-url #[0 "\300\207" [#9="https://www.google.com/search?safe=off&prmd=nvlifd&source=lnms&tbs=nws:1&q=%s"] 1 #9#] "The Google News search url.\nThis is a format string, don't forget the `%s'." helm-google-suggest-actions #[0 "\300\207" [(("Google Search" . helm-google-suggest-action) ("Wikipedia" lambda (candidate) (helm-search-suggest-perform-additional-action helm-search-suggest-action-wikipedia-url candidate)) ("Youtube" lambda (candidate) (helm-search-suggest-perform-additional-action helm-search-suggest-action-youtube-url candidate)) ("IMDb" lambda (candidate) (helm-search-suggest-perform-additional-action helm-search-suggest-action-imdb-url candidate)) ("Google Maps" lambda (candidate) (helm-search-suggest-perform-additional-action helm-s
#@66 Perform the search via URL using QUERY as input.

(fn URL QUERY)
(defalias 'helm-search-suggest-perform-additional-action #[514 "\300\301\302!\"!\207" [browse-url format url-hexify-string] 7 (#$ . 5192)])
#@23 

(fn REQUEST PARSER)
(defalias 'helm-net--url-retrieve-sync #[514 "\203'\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315\316\317\316	&\210
 *\207r\320!q\210\211 )\207" [helm-net-prefer-curl helm-net-curl-switches generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process "curl" nil t url-retrieve-synchronously] 11 (#$ . 5405)])
(defalias 'helm-google-suggest-parser #[0 "\300\301ed\"@\302\"\211\303\211:\203&@\262\304\236A@@A
B\262
A\262\202\211\237\207" [xml-get-children xml-parse-region CompleteSuggestion nil suggestion] 6])
#@58 Fetch suggestions for INPUT from XML buffer.

(fn INPUT)
(defalias 'helm-google-suggest-fetch #[257 "\301\302!\"\303
\304\"\207" [helm-google-suggest-url format url-hexify-string helm-net--url-retrieve-sync helm-google-suggest-parser] 5 (#$ . 6059)])
#@95 Set candidates with result and number of google results found.

(fn &optional REQUEST-PREFIX)
(defalias 'helm-google-suggest-set-candidates #[256 "\302
\203\f
\303Q\206
!
\235\203\211\202\"\304
\305\306	\"	BC\"\207" [helm-pattern helm-input helm-google-suggest-fetch " " append format "Search for '%s' on Google"] 7 (#$ . 6318)])
#@12 

(fn NUM)
(defalias 'helm-ggs-set-number-result #[257 "\211\203P\211\247\203\300
!\262
\301\302\303\304#!\305\306\305:\203C@\262\307
C\"\262

\310U\2038\307
\311C\"\262
\312\262A\262
T\262\202\313\314\303\315\316\301!\303##\207\317\207" [number-to-string reverse split-string "" t nil 1 append 3 "," 0 replace-regexp-in-string "^," mapconcat identity "?"] 12 (#$ . 6662)])
#@73 Default action to jump to a google suggested candidate.

(fn CANDIDATE)
(defalias 'helm-google-suggest-action #[257 "\302\303!\"	\211\203\211!\202\304!\262
\207" [helm-google-suggest-search-url helm-google-suggest-default-browser-function format url-hexify-string helm-browse-url] 5 (#$ . 7060)])
#@49 Default function to use in helm google suggest.
(defvar helm-google-suggest-default-function 'helm-google-suggest-set-candidates (#$ . 7371))
(defvar helm-source-google-suggest (helm-make-source "Google Suggest" 'helm-source-sync :candidates #[0 " \207" [helm-google-suggest-default-function] 1] :action 'helm-google-suggest-actions :volatile t :keymap helm-map :requires-pattern 3))
#@53 Try to emacs lisp complete with google suggestions.
(defalias 'helm-google-suggest-emacs-lisp #[0 "\300\301!\207" [helm-google-suggest-set-candidates "emacs lisp"] 2 (#$ . 7762)])
(defvar helm-browse-url-chromium-program "chromium-browser")
(defvar helm-browse-url-uzbl-program "uzbl-browser")
(defvar helm-browse-url-conkeror-program "conkeror")
(defvar helm-browse-url-opera-program "opera")
#@74 *Alist of (executable . function) to try to find a suitable url browser.
(defvar helm-browse-url-default-browser-alist (byte-code "\306\300!\203\n\206\307\310B	\311B\n\312B\313B\f\314B
\315B\316B\317B\320B\321B\322B\323B\324B\325BBBBBBBBBBBBB\207" [w3m-command browse-url-firefox-program helm-browse-url-chromium-program helm-browse-url-conkeror-program helm-browse-url-opera-program helm-browse-url-uzbl-program boundp "/usr/bin/w3m" w3m-browse-url browse-url-firefox helm-browse-url-chromium helm-browse-url-conkeror helm-browse-url-opera helm-browse-url-uzbl browse-url-kde browse-url-gnome-moz browse-url-mozilla browse-url-galeon browse-url-netscape browse-url-mosaic browse-url-text-xterm (("emacs" . eww-browse-url)) browse-url-kde-program browse-url-gnome-moz-program browse-url-mozilla-program browse-url-galeon-program browse-url-netscape-program browse-url-mosaic-program browse-url-xterm-program] 14) (#$ . -8162))
#@61 Browse URL with NAME browser.

(fn URL CMD-NAME &rest ARGS)
(defalias 'helm-generic-browser #[642 "
\300Q\301\302\"\210\303\304\305\306\nC\"%\210\307\310!\311\"\207" [" " message "Starting %s..." apply start-process nil append set-process-sentinel get-process #[514 "\211\300\230\205\301\302#\207" ["finished\n" message "%s process %s"] 6 "\n\n(fn PROCESS EVENT)"]] 12 (#$ . 9114)])
#@249 Same as `browse-url-firefox' but detach from emacs.

So when you quit emacs you can keep your firefox session open
and not be prompted to kill firefox process.

NOTE: Probably not supported on some systems (e.g Windows).

(fn URL &optional IGNORE)
(defalias 'helm-browse-url-firefox #[513 "\303!\262\304 \305\306\307	\n\310!$!)\207" [process-environment browse-url-firefox-program helm-browse-url-firefox-new-window browse-url-encode-url browse-url-process-environment call-process-shell-command format "(%s %s %s &)" shell-quote-argument] 9 (#$ . 9517) (byte-code "\300\301\302 \"\303D\207" [read-string "URL: " browse-url-url-at-point nil] 3)])
#@246 Browse URL with opera browser and detach from emacs.

So when you quit emacs you can keep your opera session open
and not be prompted to kill opera process.

NOTE: Probably not supported on some systems (e.g Windows).

(fn URL &optional IGNORE)
(defalias 'helm-browse-url-opera #[513 "\302!\262\303 \304\305\306	\307!#!)\207" [process-environment helm-browse-url-opera-program browse-url-encode-url browse-url-process-environment call-process-shell-command format "(%s %s &)" shell-quote-argument] 8 (#$ . 10176) (byte-code "\300\301\302 \"\303D\207" [read-string "URL: " browse-url-url-at-point nil] 3)])
#@67 Browse URL with google chrome browser.

(fn URL &optional IGNORE)
(defalias 'helm-browse-url-chromium #[513 "\301\"\207" [helm-browse-url-chromium-program helm-generic-browser] 5 (#$ . 10793) "sURL: "])
#@58 Browse URL with uzbl browser.

(fn URL &optional IGNORE)
(defalias 'helm-browse-url-uzbl #[513 "\301\302#\207" [helm-browse-url-uzbl-program helm-generic-browser "-u"] 6 (#$ . 11004) "sURL: "])
#@62 Browse URL with conkeror browser.

(fn URL &optional IGNORE)
(defalias 'helm-browse-url-conkeror #[513 "\301\"\207" [helm-browse-url-conkeror-program helm-generic-browser] 5 (#$ . 11206) "sURL: "])
#@79 Find the first available browser and ask it to load URL.

(fn URL &rest ARGS)
(defalias 'helm-browse-url-default-browser #[385 "\301\211\302\301:\2038@\262\211A\262\242\262\205'\303!\205'\304!\205'\211\262?\211\262\2038A\262\202\266\204\211\203F\305
#\202I\306\307!\207" [helm-browse-url-default-browser-alist nil t executable-find fboundp apply error "No usable browser found"] 9 (#$ . 11412)])
#@53 Default command to browse URL.

(fn URL &rest ARGS)
(defalias 'helm-browse-url #[385 "\203	\301\"\207\302\"\207" [browse-url-browser-function browse-url helm-browse-url-default-browser] 5 (#$ . 11840)])
(defvar helm-surfraw-engines-history nil)
(defvar helm-surfraw-input-history nil)
(defvar helm-surfraw--elvi-cache nil)
#@65 Return list of all engines and descriptions handled by surfraw.
(defalias 'helm-build-elvi-list #[0 "\206*\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315\314\316%\210\317\320 \321\"*\262
A\211\207" [helm-surfraw--elvi-cache generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process "surfraw" nil t "-elvi" split-string buffer-string "\n"] 7 (#$ . 12175)])
#@81 Preconfigured `helm' to search PATTERN with search ENGINE.

(fn PATTERN ENGINE)
(defalias 'helm-surfraw #[514 "\305
!@\211\306\230\203\307\310!\"\202B\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322\323\324\325\326\325\327\330D\305\f!\"&\210\331\332\333\334 #*\262
	\206G\n
\335\230\203T\336!\202`\336
!\210\337\f\"B\211)\207" [helm-surfraw-duckduckgo-url helm-surfraw-default-browser-function browse-url-browser-function helm-home-url helm-surfraw-engines-history split-string "duckduckgo" format url-hexify-string generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process "surfraw" nil t append "-p" replace-regexp-in-string "\n" "" buffer-string "W" helm-browse-url delete] 14 (#$ . 12641) (byte-code "\301 \203\302\303 \304 \"\202\305\306!\211\203\307\310\"\202\311\312
\313\314$\266\202\315\316\317 \320\321\322\323\324\313\325&\nD\207" [helm-surfraw-engines-history use-region-p buffer-substring-no-properties region-beginning region-end thing-at-point symbol format "SearchFor (default %s): " "SearchFor: " read-string nil helm-surfraw-input-history helm-comp-read "Engine: " helm-build-elvi-list :must-match t :name "Surfraw Search Engines" :del-input :history] 12)])
#@61 Preconfigured `helm' for google search with google suggest.
(defalias 'helm-google-suggest #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-google-suggest "*helm google*"] 3 (#$ . 13945) nil])
(provide 'helm-net)