;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\311\312\313\314\306\303\315\316&\210\311\317\320\321\306\303\315\316&\210\311\322\323\324\306\303\315\316&\210\311\325\326\327\306\303\315\330&\210\311\331\332\333\306\303\315\334&\210\311\335\336\337\306\303\315\334&\207" [require w3m custom-declare-group w3m-perldoc nil "Perldoc front-end for emacs-w3m." :group :prefix "w3m-perldoc-" custom-declare-variable w3m-perldoc-base-url "https://perldoc.perl.org/" "The URL domain base to lookup the perldoc with." :type string w3m-perldoc-command "perldoc" "Name of the executable file of perldoc." w3m-perldoc-pod2html-command "pod2html" "Name of the executable file of pod2html." w3m-perldoc-pod2html-arguments '("--noindex") "Arguments passed to pod2html." (repeat :value-to-internal (lambda (_widget value) (delq nil (delete #1="" (mapcar (lambda (x) (if (stringp x) x)) value)))) :value-to-external (lambda (_widget value) (delq nil (delete #1# (mapcar (lambda (x) (if (stringp x) x)) value)))) (string :format "Argument: %v")) w3m-perldoc-input-coding-system (if (string= "Japanese" w3m-language) 'euc-japan (if (w3m-find-coding-system 'utf-8) 'utf-8 'iso-latin-1)) "Coding system used when writing to `w3m-perldoc-command'." coding-system w3m-perldoc-output-coding-system 'undecided "Coding system used when reading from `w3m-perldoc-command'."] 8) (defalias 'w3m-about-perldoc #[(url &optional no-decode no-cache &rest args) "\306\307\"\205\217G\310\225U\203\311\202\312\310\225\313O!\314 !\315\n!\316\317 \"\210 !\320\"\313\321\313\322\f&\310U)\205\216#\211!$\323\324ed%\321\325\313\326&\327\"&\310U*\205\216\321'eb\210\330\331\313\321#\203\214\332\224\332\225|\210\214\333\224\333\225}\210\334\335\313\321#\203\205\336\333!\210\337c\210\202sdb\210)\202^)\340+\207" [url w3m-profile-directory process-environment default-directory docname w3m-perldoc-output-coding-system string-match "\\`about://perldoc/" 0 "perl" w3m-url-decode-string nil expand-file-name copy-sequence setenv "HOME" call-process t "-u" apply call-process-region (t nil) append ("--htmlroot=about://perldoc") re-search-forward "" 2 1 search-backward "/" delete-char "::" "text/html" coding-system-for-read w3m-perldoc-command w3m-perldoc-input-coding-system coding-system-for-write w3m-perldoc-pod2html-command w3m-perldoc-pod2html-arguments case-fold-search] 11]) #@51 Make a string more likely to find a perldoc page. (defalias 'w3m-perldoc-pretty #[(string) "\303\304K\305\216\304M\210\304\306\307\304\310\307\n##\n\311\230\204\312\202\311\313Q+\207" [#1=#:vnew #2=#:old string #[(old new string) "\304 \"\211\203 \305\nO \306 G\n\\\307O#Q\202 )\207" [old string loc new string-match 0 swap nil] 9] swap #[nil "\301M\207" [#2# swap] 2] " " "/" "::" "" ".html" "#perl_version"] 7 (#$ . 2529)]) #@22 View Perl documents. (defalias 'w3m-perldoc #[(docname) "\302\303!\304 !P!\207" [w3m-perldoc-base-url docname w3m-goto-url w3m-ensure-slash w3m-perldoc-pretty] 4 (#$ . 2978) "sDocument: "]) (provide 'w3m-perldoc)