;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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-search-suggest-action-google-maps-url candidate)) ("Google News" lambda (candidate) (helm-search-suggest-perform-additional-action helm-search-suggest-action-google-news-url candidate)))] 1] "List of actions for google suggest sources." (alist :key-type string :value-type function) helm-browse-url-firefox-new-window #[0 "\300\207" [#10="-new-tab"] 1 #10#] "Allow choosing to browse url in new window or new tab.\nCan be \"-new-tab\" (default) or \"-new-window\"." (radio (const :tag "New tab" "-new-tab") (const :tag "New window" "-new-window")) helm-net-curl-switches #[0 "\300\207" [("-s" "-L")] 1] "Arguments list passed to curl when using `helm-net-prefer-curl'." (repeat string)] 8) (defvar helm-net-curl-log-file (expand-file-name "helm-curl.log" user-emacs-directory)) #@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 (#$ . 4959)]) #@23 (fn REQUEST PARSER) (defalias 'helm-net--url-retrieve-sync #[514 "\203#\303\304\305\"r\211q\210\306\307\"\216\310\311\312\313\305 D\313\n&\210 *\207r\314!q\210\211 )\207" [helm-net-prefer-curl helm-net-curl-log-file helm-net-curl-switches generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply call-process "curl" nil url-retrieve-synchronously] 11 (#$ . 5172)]) (defalias 'helm-google-suggest-parser #[0 "\300\301ed\"@\302\"\211\303\211:\203&@\262\304\236A@@AB\262A\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 (#$ . 5824)]) #@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\207\304\305\306 \" BC\"\207" [helm-pattern helm-input helm-google-suggest-fetch " " append format "Search for '%s' on Google"] 7 (#$ . 6083)]) #@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\307C\"\262\310U\2038\307\311C\"\262\312\262A\262T\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 (#$ . 6420)]) #@73 Default action to jump to a Google suggested candidate. (fn CANDIDATE) (defalias 'helm-google-suggest-action #[257 "\302\303!\" \211\203\211!\207\304!\207" [helm-google-suggest-search-url helm-google-suggest-default-browser-function format url-hexify-string helm-browse-url] 5 (#$ . 6818)]) #@51 Default function to use in `helm-google-suggest'. (defvar helm-google-suggest-default-function 'helm-google-suggest-set-candidates (#$ . 7122)) (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 :match-dynamic 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 (#$ . 7520)]) (defvar helm-browse-url-chromium-program "chromium-browser") (defvar helm-browse-url-uzbl-program "uzbl-browser") (defvar helm-browse-url-nyxt-program "nyxt") (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\324BBBBBBBBBBBB\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-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-xterm-program] 13) (#$ . -7965)) #@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 (#$ . 8865)]) #@255 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 the 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 (#$ . 9268) (byte-code "\300\301\302 \"\303D\207" [read-string "URL: " browse-url-url-at-point nil] 3)]) #@252 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 the 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 (#$ . 9933) (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 (#$ . 10555) "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 (#$ . 10766) "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 (#$ . 10968) "sURL: "]) #@58 Browse URL with next browser. (fn URL &optional IGNORE) (defalias 'helm-browse-url-nyxt #[513 "\301\"\207" [helm-browse-url-nyxt-program helm-generic-browser] 5 (#$ . 11174) "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\211\211:\2038@\262\211A\262\242\262\205'\302!\205'\303!\205'\211\262?\211\262\2038A\262\202\266\204\211\203D\304#\207\305\306!\207" [helm-browse-url-default-browser-alist nil executable-find fboundp apply error "No usable browser found"] 9 (#$ . 11368)]) #@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 (#$ . 11792)]) (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\303\"r\211q\210\304\305\"\216\306\307\310\303\310\311%\210\312\313 \314\"*\262A\211\207" [helm-surfraw--elvi-cache generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "surfraw" nil "-elvi" split-string buffer-string "\n"] 7 (#$ . 12127)]) #@81 Preconfigured `helm' to search PATTERN with search ENGINE. (fn PATTERN ENGINE) (defalias 'helm-surfraw #[514 "\305!@\211\306\230\203\307\310!\"\202<\311\312\313\"r\211q\210\314\315\"\216\316\317\320\321\313\321\322\323D\305\f!\"&\210\324\325\326\327 #*\262 \206A\n\330\230\203N\331 !\202Z\331!\210\332\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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply call-process "surfraw" nil append "-p" replace-regexp-in-string "\n" "" buffer-string "W" helm-browse-url delete] 14 (#$ . 12565) (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 (#$ . 13841) nil]) (provide 'helm-net)