;ELC ;;; Compiled by root@revel.ossh.com on Sun Oct 23 11:01:34 2005 ;;; from file /home/lcandell/emacs-w3m-1.4.4/w3m-antenna.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`w3m-antenna.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\303\311\312&\210\313\314\315\316\317\320\321\306\322\323& \207" [require w3m-util w3m-rss w3m custom-declare-group w3m-antenna nil "w3m-antenna - Utility to detect changes of WEB." :group :prefix "w3m-antenna-" define-widget w3m-antenna-string string "String widget with default value.\nWhen creating a new widget, its value is given by an expression specified\nwith :value-from." :tag "URL" :value-from :create w3m-antenna-string-create] 10) (defalias 'w3m-antenna-string-create #[(widget) "\303\304\"\305\230\203&\306\304\303\307\"\310 !\211\203 \311L\210\202\"\305\n*#\210\312!\207" [widget symbol value widget-get :value "" widget-put :value-from eval nil widget-default-create] 7]) (byte-code "\300\301\302\303\304\305\306!\205\306\307!\205\310%\207" [apply define-widget w3m-antenna-function function "Bug-fixed version of the `function' widget.\nIn Emacs 20.7 through 21.4 and XEmacs, it doesn't represent a value as\na string internally, converts it into a string in the customization\nbuffer, and provides the default value as `ignore'." fboundp widget-default-get (function :value-to-external ignore :value foo) (:value-create (lambda (widget) (widget-put widget :value (widget-sexp-value-to-internal widget value)) (widget-field-value-create widget)) :value-to-internal (lambda (widget value) value) :value ignore)] 7) #@330 A list of site information (internal variable). nil means that antenna database is not initialized. Each site information is a list that consists of: 0. Format string of URL. 1. Title. 2. Class (Normal, HNS or TIME). 3. Real URL. 4. Last modification time. 5. Size in bytes. 6. Time when size modification is detected.  (defvar w3m-antenna-alist nil (#$ . 2038)) (defalias 'w3m-antenna-site-key '(macro . #[(site) "\301D\207" [site car] 2])) (defalias 'w3m-antenna-site-title '(macro . #[(site) "\301\302E\207" [site nth 1] 3])) (defalias 'w3m-antenna-site-class '(macro . #[(site) "\301\302E\207" [site nth 2] 3])) (defalias 'w3m-antenna-site-url '(macro . #[(site) "\301\302E\207" [site nth 3] 3])) (defalias 'w3m-antenna-site-last-modified '(macro . #[(site) "\301\302E\207" [site nth 4] 3])) (defalias 'w3m-antenna-site-size '(macro . #[(site) "\301\302E\207" [site nth 5] 3])) (defalias 'w3m-antenna-site-size-detected '(macro . #[(site) "\301\302E\207" [site nth 6] 3])) #@38 File which has list of antenna URLs. (custom-declare-variable 'w3m-antenna-file '(expand-file-name ".antenna" w3m-profile-directory) '(#$ . 3037) :group 'w3m-antenna :type '(file :size 0)) #@46 List of WEB sites, watched by `w3m-antenna'. (custom-declare-variable 'w3m-antenna-sites '(unless noninteractive (mapcar (lambda (site) (list (w3m-antenna-site-key site) (w3m-antenna-site-title site) (w3m-antenna-site-class site))) (w3m-load-list w3m-antenna-file))) '(#$ . 3232) :group 'w3m-antenna :type `(repeat (group :indent 7 (w3m-antenna-string :format "URL: %v\n" :size 0 :value-from w3m-antenna-tmp-url) (w3m-antenna-string :format "Title: %v\n" :size 0 :value-from w3m-antenna-tmp-title) (choice :tag "Procedure" (const :tag "Check either its last modified time or its size" nil) (const :tag "Check its last modified time only" time) (const :tag "Check its current date provided by Hyper Nikki System" hns) (list :tag "Check RSS" (function-item :format "" w3m-antenna-check-rss) (string :format "URL: %v\n" :value "")) (list :tag "Check the another changelog page" (function-item :format "" w3m-antenna-check-another-page) (string :format "URL: %v\n" :value "")) (list :tag "Check the page linked by the anchor that matches" (function-item :format "" w3m-antenna-check-anchor) (regexp :value "") (integer :value 0)) (cons :tag "Check with a user defined function" (w3m-antenna-function :match (lambda (widget value) (and (functionp value) (not (memq value '(w3m-antenna-check-rss w3m-antenna-check-another-page w3m-antenna-check-anchor)))))) (repeat :tag "Arguments" sexp)))))) #@26 HTML skelton of antenna. (custom-declare-variable 'w3m-antenna-html-skelton '(eval-when-compile (concat "\n" "\n\nAntenna\n\n\n" "

Antenna

\n

Checked at %D.

\n" "

Updated

\n\n" "

Visited

\n\n" "\n\n")) '(#$ . 4626) :group 'w3m-antenna :type 'string) #@47 Function to make summary of site information. (custom-declare-variable 'w3m-antenna-make-summary-function ''w3m-antenna-make-summary-like-natsumican '(#$ . 5055) :group 'w3m-antenna :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (function-item :tag "Simple style." w3m-antenna-make-summary) (function-item :tag "Natsumican style." w3m-antenna-make-summary-like-natsumican) (function :format "User function: %v\n" :size 0))) #@41 Function to sort list of changed sites. (custom-declare-variable 'w3m-antenna-sort-changed-sites-function ''w3m-antenna-sort-sites-by-time '(#$ . 5491) :group 'w3m-antenna :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (function-item :tag "Sort by last modification time." w3m-antenna-sort-sites-by-time) (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title) (function-item :tag "Do nothing." identity) (function :format "User function: %v\n" :size 0))) #@43 Function to sort list of unchanged sites. (custom-declare-variable 'w3m-antenna-sort-unchanged-sites-function ''w3m-antenna-sort-sites-by-time '(#$ . 5973) :group 'w3m-antenna :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (function-item :tag "Sort by last modification time." w3m-antenna-sort-sites-by-time) (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title) (function-item :tag "Do nothing." identity) (function :format "User function: %v\n" :size 0))) (defalias 'w3m-antenna-alist #[nil "\303!\304\305\n\")\207" [w3m-antenna-file alist w3m-antenna-sites w3m-load-list mapcar #[(site) "\302@ \"\206\303\304\211\211\211F\"\207" [site alist assoc append nil] 6]] 3]) (defalias 'w3m-antenna-hns-last-modified #[(url handler) "\306\307!\306\310!\211\311\n!\312 !\206!\313 !\211 B\314\f!\210\f))L\210pL\210\306\315!\306\316!\211 \317L\210\317L\210 \320\321\322\323\324D\323D\323 D\323D\323 D\325\257EL\210\320\321\322\323\326D\323D\323 D\323D\323 D\325\257EL\210J J!BB!r Jq\210\327\330\331\"\"\317\332\317\211!&*\211#\211$:\205\254\333$A!\205\254$A\334H\335=)\203\301!\203\272#\202\336#!\202r J!B!J#!*\211#\211$:\205\352\333$A!\205\352$A\334H\335=)\203\377!\203\370#\202\336#!\202 J#!-\207" [#1=#:----current-buffer--54873--54875 #2=#:----temp-buffer--54872--54874 w3m-work-buffer-name name buf w3m-work-buffer-list make-symbol "----temp-buffer--54872--" "----current-buffer--54873--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G54877--" "--G54876--" nil lambda (&rest --cl-rest--) apply quote #[(#3=#:G54880 #4=#:G54881 #5=#:G54882 #6=#:G54883 type) "J\211\204 p ;\203\305 !\306 !\203\307 !\210\310 \n\")\311 J!\203- Jq\210\f\207" [#6# buffer w3m-work-buffer-list #5# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] --cl-rest-- #[(#7=#:G54884 #8=#:G54885 #9=#:G54886 #10=#:G54887 type) "\304J!\203 Jq\210 \205f\305\211eb\210\306\307\305\310#\205A\311\225\211\205A\306\312\305\310#\205A \311\224{\211\205A\313\314\n\"?\205A\315\n!*\206feb\210\316\317\305\310#\205f\320\311\211\211\321\322\323!!\321\322\324!!\321\322\325!!\326&\207" [#10# type str start buffer-name nil search-forward "\nLast-Modified: " t 0 "
" string-match " *[0-9][0-9][0-9][0-9], +[0-9][0-9] +[0-9][0-9] +" w3m-time-parse-string re-search-forward "^newest day is \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)$" encode-time string-to-number match-string 3 2 1 32400] 9] w3m-retrieve w3m-expand-url "di.cgi" t vectorp 0 w3m-process-object w3m-process-start-process #11=#:--G54876--54879 #12=#:--G54877--54878 handler url type object] 11]) #@67 Check the page served by HNS (Hyper Nikki System) asynchronously. (defalias 'w3m-antenna-check-hns #[(site handler) "\306\307!\211 L\210\310\311\312\313\314D\313D\315FE\211 B\316J@ \")\211\211:\2055\317 A!\2055 A\320H\321=)\203G \203A\f\202r\322\f!\202r\n\f!\211\211:\205_\317 A!\205_ A\320H\321=)\203q \203k\f\202r\322\f!\202r\f+\207" [#1=#:--site--54900 site #2=#:--post-function--54901 handler time object make-symbol "--site--" lambda (&rest --cl-rest--) apply quote #[(#3=#:G54902 time) "\203\303 J J@\304$\207\305 J\n\"\207" [time #3# handler w3m-antenna-site-update nil w3m-antenna-check-page] 5] --cl-rest-- w3m-antenna-hns-last-modified vectorp 0 w3m-process-object w3m-process-start-process] 7 (#$ . 8680)]) #@105 Check RSS to detect change of SITE asynchronously. In order to use this function, `xml.el' is required. (defalias 'w3m-antenna-check-rss #[(site handler url) "\306\307!\306\310!\211\nL\210 L\210\306\311!\306\312!\211\313! \314 !\206:\315 !\211!\"B\"\316!!\210!))L\210\fpL\210\306\317!\306\320!#\211$\321L\210#\321L\210$\322\323\324\325\326D\325#D\325$D\325\fD\325 D\325D\325 D\327\257 EL\210#\322\323\324\325\330D\325#D\325$D\325\fD\325 D\325D\325 D\327\257 EL\210#J$J%BB%r Jq\210\331 J\321\332\321\211%&*\211&\211':\205\316\333'A!\205\316'A\334H\335=)\203\343%\203\334&\202'\336&!\202'r$J%B%#J&!*\211&\211':\205\f\333'A!\205\f'A\334H\335=)\203!%\203&\202'\336&!\202'$J&!.\207" [#1=#:--site--54906 #2=#:--url--54905 url site #3=#:----current-buffer--54910--54912 #4=#:----temp-buffer--54909--54911 make-symbol "--url--" "--site--" "----temp-buffer--54909--" "----current-buffer--54910--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G54914--" "--G54913--" nil lambda (&rest --cl-rest--) apply quote #[(#5=#:G54917 #6=#:G54918 #7=#:G54919 #8=#:G54920 #9=#:G54921 #10=#:G54922 type) "J\211\204 p ;\203\305 !\306 !\203\307 !\210\310 \n\")\311 J!\203- Jq\210\f\207" [#8# buffer w3m-work-buffer-list #7# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] --cl-rest-- #[(#11=#:G54925 #12=#:G54926 #13=#:G54927 #14=#:G54928 #15=#:G54929 #16=#:G54930 type) "\306J!\203 Jq\210\307\211\211\f\203\260\310 J!\210\311\312\313\217\314\315\"\314\316\"\317\320\321P!\"@\322\317\320\323P!\"@8\317\320\324P!\"\211\203\257\325 \307\211\203\256@\326\3228!\211\n\211 \205\236?\206\236 @@V\206\236 @@U\205\236 A@A@V*\203\245A\211\204d*, \203\303\n\203\303\327!J \n\307$\202\312\330!J\"\"+\207" [#14# dc-dates date link type #16# buffer-name nil w3m-decode-buffer #17=#:G54923 (byte-code "\300ed\"\207" [xml-parse-region] 3) ((error)) w3m-rss-get-namespace-prefix "http://purl.org/dc/elements/1.1/" "http://purl.org/rss/1.0/" w3m-rss-find-el intern "channel" 2 "link" "date" (0 0) w3m-rss-parse-date-string w3m-antenna-site-update w3m-antenna-check-page xml dc-ns rss-ns channel tmp #18=#:--dolist-temp--54924 b a #15# handler] 6] w3m-retrieve t vectorp 0 w3m-process-object w3m-process-start-process w3m-work-buffer-name name buf w3m-work-buffer-list #19=#:--G54913--54916 #20=#:--G54914--54915 handler type object] 13 (#$ . 9430)]) #@270 Check the another page to detect change of SITE asynchronously. This function checks the another page specified by the URL before checking the SITE itself. This function is useful when the SITE's owner either maintains the page which describes the change of the SITE. (defalias 'w3m-antenna-check-another-page #[(site handler url) "\306\307!\211 L\210\306\310!\306\311!\211\312\f!\313 !\206.\314 !\211 B \315!\210))L\210\npL\210\306\316!\306\317!!\211\"\320L\210!\320L\210\"\321\322\323\324\325D\324!D\324\"D\324\nD\324 D\324D\326\257EL\210!\321\322\323\324\327D\324!D\324\"D\324\nD\324 D\324D\326\257EL\210!J\"J#BB#r Jq\210##\330$\330#B#\331%\332##)\211&\211':\205\305\333'A!\205\305'A\334H\335=)\203\332#\203\323&\202\336&!\202$&!\211&\211':\205\370\333'A!\205\370'A\334H\335=)\203 #\203&\202\336&!\202&-\211(\211':\205)\333'A!\205)'A\334H\335=)\203>#\2037(\202\202\336(!\202\202r\"J#B#!J(!*\211(\211':\205g\333'A!\205g'A\334H\335=)\203|#\203u(\202\202\336(!\202\202\"J(!.\207" [#1=#:--site--54947 site #2=#:----current-buffer--54951--54953 #3=#:----temp-buffer--54950--54952 w3m-work-buffer-name name make-symbol "--site--" "----temp-buffer--54950--" "----current-buffer--54951--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G54955--" "--G54954--" nil lambda (&rest --cl-rest--) apply quote #[(#4=#:G54958 #5=#:G54959 #6=#:G54960 #7=#:G54961 #8=#:G54962 time) "J\211\204 p ;\203\305 !\306 !\203\307 !\210\310 \n\")\311 J!\203- Jq\210\f\207" [#7# buffer w3m-work-buffer-list #6# time get-buffer buffer-live-p kill-buffer delq buffer-name] 4] --cl-rest-- #[(#9=#:G54963 #10=#:G54964 #11=#:G54965 #12=#:G54966 #13=#:G54967 time) "\304J!\203 Jq\210 \203\305\nJ\nJ@ \306$\207\307\nJ \"\207" [#12# time #13# handler buffer-name w3m-antenna-site-update nil w3m-antenna-check-page] 5] #[(attrs) "\3018\207" [attrs 4] 2] w3m-attributes t vectorp 0 w3m-process-object w3m-process-start-process buf w3m-work-buffer-list #14=#:--G54954--54957 #15=#:--G54955--54956 handler #16=#:--post-function--54972 url attrs object time] 12 (#$ . 11952)]) #@176 Check the page linked from SITE asynchronously. This function checks the page linked by an anchor that matches REGEXP from the page that is specified by SITE's key attribute. (defalias 'w3m-antenna-check-anchor #[(site handler regexp number) "\306\307!\306\310!\306\311!\211 L\210 \fL\210 \206\312L\210\306\313!\306\314!\211 \315!!\"\316\"!\206H\317\"!\211#$B$\320#!\210#))L\210pL\210\306\321!\306\322!%\211&\323L\210%\323L\210&\324\325\326\327\330D\327%D\327&D\327D\327 D\327D\327 D\327\nD\331\257\nEL\210%\324\325\326\327\332D\327%D\327&D\327D\327 D\327D\327 D\327\nD\331\257\nEL\210%J&J'BB'r Jq\210\333\nJ@\323\211\211\211'&*\211(\211):\205\351\334)A!\205\351)A\312H\335=)\203\376'\203\367(\202B\336(!\202Br&J'B'%J(!*\211(\211):\205'\334)A!\205')A\312H\335=)\203<'\2035(\202B\336(!\202B&J(!.\207" [#1=#:--number--54985 #2=#:--regexp--54984 #3=#:--site--54983 site regexp number make-symbol "--site--" "--regexp--" "--number--" 0 "----temp-buffer--54988--" "----current-buffer--54989--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G54993--" "--G54992--" nil lambda (&rest --cl-rest--) apply quote #[(#4=#:G54996 #5=#:G54997 #6=#:G54998 #7=#:G54999 #8=#:G55000 #9=#:G55001 #10=#:G55002 type) "J\211\204 p ;\203\305 !\306 !\203\307 !\210\310 \n\")\311 J!\203- Jq\210\f\207" [#7# buffer w3m-work-buffer-list #6# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] --cl-rest-- #[(#11=#:G55003 #12=#:G55004 #13=#:G55005 #14=#:G55006 #15=#:G55007 #16=#:G55008 #17=#:G55009 type) "\306J!\203 Jq\210\307 J\n \205.\310 J@!\210eb\210\311\fJ\312\313#\205.\314\315 J! J@\"#\207" [#14# #17# handler type #16# #15# buffer-name w3m-antenna-check-page w3m-decode-buffer re-search-forward nil t w3m-expand-url match-string] 7] w3m-retrieve vectorp w3m-process-object w3m-process-start-process #18=#:----current-buffer--54989--54991 #19=#:----temp-buffer--54988--54990 w3m-work-buffer-name name buf w3m-work-buffer-list #20=#:--G54992--54995 #21=#:--G54993--54994 handler type object] 14 (#$ . 14149)]) (autoload 'w3m-filter "w3m-filter") #@243 Check SITE with the generic procedure. It consists of 3 steps: (1) Check the time when the SITE was last modified with HEAD request. (2) Check the size of the SITE with HEAD request. (3) Get the real content of the SITE, and check its size.  (defalias 'w3m-antenna-check-page #[(site handler &optional url) "\306\307!\306\310!\211\nL\210 \206\311\n8\206\n@L\210\312\313\314\315\316D\315D\315 D\317\257E\211 B\320J\321 #)\211\211:\205P\322A!\205PA\323H\324=)\203d \203]\202\227\325!\202\227\f!\211\211:\205\201\322A!\205\201A\323H\324=)\203\225 \203\216\202\227\325!\202\227,\207" [#1=#:--url--55029 #2=#:--site--55028 site url #3=#:--post-function--55030 handler make-symbol "--site--" "--url--" 3 lambda (&rest --cl-rest--) apply quote #[(#4=#:G55065 #5=#:G55066 attr) "\205I\3068\203\307 J\nJ\3068\3108$\207\310 J8\311=?\205I\3108\2032\307 J\nJ\312\3108$\207\313\314!\313\315!\211\316 !!\317!!\206[\320!!\211\"#B#\321\"!\210\"))L\210 pL\210\313\322!\313\323!$\211%\312L\210$\312L\210%\324\325\326\327\330D\327$D\327%D\327 D\327\fD\327\nD\327 D\331\257 EL\210$\324\325\326\327\332D\327$D\327%D\327 D\327\fD\327\nD\327 D\331\257 EL\210$J%J&BB&r\fJq\210\333\nJ\312\334\312\211&&*\211'\211(:\205\357\335(A!\205\357(A\336H\337=)\203&\203\375'\202H\340'!\202Hr%J&B&$J'!*\211'\211(:\205-\335(A!\205-(A\336H\337=)\203B&\203;'\202H\340'!\202H%J'!-\207" [attr #5# #4# #6=#:----current-buffer--55034--55036 #7=#:----temp-buffer--55033--55035 w3m-work-buffer-name 4 w3m-antenna-site-update 2 time nil make-symbol "----temp-buffer--55033--" "----current-buffer--55034--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G55038--" "--G55037--" lambda (&rest --cl-rest--) apply quote #[(#8=#:G55041 #9=#:G55042 #10=#:G55043 #11=#:G55044 #12=#:G55045 #13=#:G55046 type) "J\211\204 p ;\203\305 !\306 !\203\307 !\210\310 \n\")\311 J!\203- Jq\210\f\207" [#11# buffer w3m-work-buffer-list #10# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] --cl-rest-- #[(#14=#:G55047 #15=#:G55048 #16=#:G55049 #17=#:G55050 #18=#:G55051 #19=#:G55052 type) "\305J!\203 Jq\210 \205+\306\nJ\307 #\210\310 \210 \203\"\311\nJ!\210\312\fJ\nJ\307\313 $\207" [#17# type #18# w3m-use-filter #19# buffer-name w3m-decode-buffer nil w3m-remove-comments w3m-filter w3m-antenna-site-update buffer-size] 5] w3m-retrieve t vectorp 0 w3m-process-object w3m-process-start-process name buf w3m-work-buffer-list #20=#:--G55037--55040 #21=#:--G55038--55039 handler type object] 13] --cl-rest-- w3m-attributes t vectorp 0 w3m-process-object w3m-process-start-process attr object] 8 (#$ . 16318)]) #@64 Update SITE's status information with specified TIME and SIZE. (defalias 'w3m-antenna-site-update #[(site url time size) "\304\233 \205/\n\203-\3058\203-\n\3058\230\203-\3068\203- \3068U\203-\3048\206/\307 \240\210\305\233\n\240\210\310\233 \240\210\306\233 \240\210\207" [site size url time 6 3 5 current-time 4] 4 (#$ . 19048)]) #@277 Check SITE asynchronously. If a class attribute of the SITE is a list that consists of a function to check SITE and its options, call it. When a class attribute of the SITE is equal to the symbol `hns', call `w3m-antenna-check-hns'. Otherwise, call `w3m-antenna-check-page'. (defalias 'w3m-antenna-check-site #[(site handler) "\3028<\203\303\3028@!\203\304\3028@ \3028A$\207\3028\305=\203*\306 \"\207\307 \310@\311 \"#\207" [site handler 2 functionp apply hns w3m-antenna-check-hns w3m-antenna-check-page format-time-string current-time] 6 (#$ . 19403)]) #@92 Apply FUNCTION to each element of SEQUENCE asynchronously, and make a list of the results. (defalias 'w3m-antenna-mapcar #[(function sequence handler) "\306\307\310!\307\311! \312 G\313\"L\210pL\210 \313\211\203K @ J\nT\211\f\307\314!\315\316\317 \n\320BBB\321 EF)B\"I\210 A\211\204*\321 JJ\"+\207" [buffer table index sequence element #1=#:--dolist-temp--55083 -1 make-symbol "table" "buffer" make-vector nil "tmpvar" lambda (x) aset (x) w3m-antenna-mapcar-after function var handler] 11 (#$ . 19979)]) #@222 Handler function of `w3m-antenna-mapcar'. If all asynchronous processes have finished, return a list of the results for the further handler functions. Otherwise, return an asynchronous process that has not finished yet. (defalias 'w3m-antenna-mapcar-after #[(result buffer) "\302\303\215\206 q\210\304 \305\"\207" [buffer result found-proces (byte-code "\303T\211 GW\2050 H\211:\205\"\304\nA!\205\"\nA\305H\306=)\203\307\310 H\"\210\202)\207" [index result object -1 vectorp 0 w3m-process-object throw found-proces] 5) append nil] 3 (#$ . 20510)]) #@51 Check all sites specified in `w3m-antenna-sites'. (defalias 'w3m-antenna-check-all-sites #[(&optional handler) "\204\300  \204P\306\307\310\311!\n\312M\210\nC\313 !)\211\211:\2053\314 A!\2053 A\315H\316=)\203M\317\320\321\217\210\322 A\323H\324\306#\210\325\326\215\211\202 +\207\327\327 B\330\331 #)\211\211:\205s\314 A!\205s A\315H\316=)\203\207 \203\200\202\270\332!\202\270!\211\211:\205\242\314 A!\205\242 A\315H\316=)\203\266 \203\257\202\270\332!\202\270*\207" [w3m-antenna-alist handler #1=#:--wait-function--55085 #2=#:--result--55084 w3m-process-waited object t nil make-symbol "wait-function" identity w3m-antenna-check-all-sites vectorp 0 w3m-process-object error (byte-code "\306\211\307\n\310\"\210\311\nA\312H \"\204^\303\306B\n\313\f\"\fA\312H\314\f!\203U\315\f\316\"\210\317\f\316\"\210\320\f!\321>\203U\322\f!\210\203U\320\f!\323>\203U\324\325!\210\202F)\326 @ A\"\210**\306\207" [inhibit-quit w3m-process-inhibit-quit #2# w3m-process-timeout process error-data nil w3m-process-start-process t w3m-process-wait-process 2 delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 3) ((quit (byte-code " \306\n\f\"\nA\307H\310\n!\203=\311\n\312\"\210\313\n\312\"\210\314\n!\315>\203=\316\n!\210 \203=\314\n!\317>\203=\320\321!\210\202.)\322 @ A\"\210*\306\207" [error #2# process error-data w3m-process-queue w3m-process-kill-surely delq 2 processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal] 3))) w3m-process-sentinel 2 "finished\n" result (byte-code "A\306H\307\211\203$\n@ \310H>\203\311\312 \306H\"\210\nA\211\204 *\313\314B\315\f\"\fA\310H\316\f!\203g\317\f\320\"\210\321\f\320\"\210\322\f!\323>\203g\324\f!\210\203g\322\f!\325>\203g\326\327!\210\202X)\330 @ A\"*\207" [#2# handler #3=#:--dolist-temp--55087 #1# process error-data 3 nil 2 throw result error "Can't find wait handler" delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 5) #[(result) "\302 \"\210\303\207" [w3m-antenna-alist w3m-antenna-file w3m-save-list nil] 4] w3m-antenna-mapcar w3m-antenna-check-site w3m-process-start-process #4=#:--post-function--55086] 5 (#$ . 21080)]) (defalias 'w3m-antenna-make-summary #[(site) "\301\302\3038\206\n@A@\3048\203\305\3048!\202&\3068\203%\307\202&\310$\207" [site format "
  • %s %s" 3 4 current-time-string 5 "Size" ""] 7]) (defalias 'w3m-antenna-make-summary-like-natsumican #[(site) "\3038\3048\305\306\n\204 \203\307\310\n\206 \"\202\311\n\203&\312\202/ \203.\313\202/\314\3158\2067@A@%*\207" [site t2 t1 4 6 format "
  • %20s  (%s)  %s" format-time-string "%Y/%m/%d %R" "----/--/-- --:--" "T" "S" "?" 3] 6]) (defalias 'w3m-antenna-sort-sites-by-time #[(sites) "\301\302\"\207" [sites sort #[(a b) "\3028\206 \3038\302 8\206\303 8\211\2054 ?\2064@ @V\2064@ @U\2054A@ A@V*\207" [a b 4 6] 4]] 3]) (defalias 'w3m-antenna-sort-sites-by-title #[(sites) "\301\302\"\207" [sites sort #[(a b) "A@ A@\231\207" [a b] 2]] 3]) (defalias 'w3m-antenna-make-contents #[(changed-sites unchanged-sites) "c\210eb\210\306\307\310\311#\205}\312\224f\211\313>\203R\214\314\224\314\225}\210ed|\210eb\210 \315=\2030\n\2021 \310\211\203J @\f!\316\261\210 A\211\2048*db\210)\202y \317=\203y\314\224b\210\314\224\314\225|\210\320\321!8\211\203u\322!\202v\323)c\210)\202\207" [w3m-antenna-html-skelton c changed-sites unchanged-sites site #1=#:--dolist-temp--55088 re-search-forward "%\\(.\\)" nil t 1 (67 85) 0 67 "\n" 68 5 file-attributes current-time-string "(unknown)" w3m-antenna-make-summary-function w3m-antenna-file time] 5]) (defalias 'w3m-about-antenna #[(url &optional no-decode no-cache post-data referer handler) "\306\306 B\n\203\307 !\202 \206\303 )\211\211:\205,\310 A!\205, A\311H\312=)\203> \2038\f\202i\313\f!\202i\f!\211\211:\205V\310 A!\205V A\311H\312=)\203h \203b\f\202i\313\f!\202i\f*\207" [#1=#:--post-function--55089 handler no-cache w3m-antenna-alist alist object #[(alist) "\306\211\n\306\211\203\f@\307 8\206\310 8\311 8\312\313\"\211\205/ N+\2068\314\311 8!\211\205c?\206c@@V\206c@@U\205cA@A@V*\203t\315\311 8!\210 B\202x B\fA\211\204\f*\316 \237!\237!\"\210*\317\207" [unchanged changed alist site #2=#:--dolist-temp--55090 property nil 4 6 3 last-modified intern-soft w3m-arrived-time w3m-cache-remove w3m-antenna-make-contents "text/html" url w3m-arrived-db symbol b a w3m-antenna-sort-changed-sites-function w3m-antenna-sort-unchanged-sites-function] 5] w3m-antenna-check-all-sites vectorp 0 w3m-process-object w3m-process-start-process] 3]) #@73 Report changes of WEB sites, which is specified in `w3m-antenna-sites'. (defalias 'w3m-antenna #[(&optional no-cache) "\301\302\"\207" [no-cache w3m-goto-url "about://antenna/"] 3 (#$ . 26099) "P"]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list w3m-antenna-tmp-url w3m-antenna-tmp-title boundp nil] 2) #@95 Add link of current page to antenna. With prefix, ask new url to add instead of current page. (defalias 'w3m-antenna-add-current-url #[(&optional arg) "\303\203\n\304 \202 \305\n!\"\207" [arg w3m-current-url w3m-current-title w3m-antenna-add w3m-input-url w3m-encode-specials-string] 4 (#$ . 26458) "P"]) #@63 Add URL to antenna. Optional argument TITLE is title of link. (defalias 'w3m-antenna-add #[(url &optional title) "\n\304\305!\210db\210\306\307!\210\310`!\210\311\312!\210\313\314\224\203!\315\202\"\316!\207" [url w3m-antenna-tmp-url title w3m-antenna-tmp-title customize-variable w3m-antenna-sites re-search-backward "INS" widget-button-press re-search-forward "State:\\|\\(\\[State\\]:\\)" backward-char 1 3 2] 2 (#$ . 26773)]) #@33 *Keymap for `w3m-antenna-mode'. (defvar w3m-antenna-mode-map (byte-code "\302 \303\304\305 $\210)\207" [map w3m-mode-map make-sparse-keymap substitute-key-definition w3m-edit-current-url w3m-antenna-edit] 5) (#$ . -27214)) #@41 Non-nil if w3m antenna mode is enabled. (defvar w3m-antenna-mode nil (#$ . 27446)) (byte-code "\303\304!\210\304\236\204\304\305DB\304 \236\204\304\nB B\303\207" [minor-mode-alist minor-mode-map-alist w3m-antenna-mode-map make-variable-buffer-local w3m-antenna-mode " antenna"] 2) #@106 \ Minor mode to edit antenna. \[w3m-antenna-edit] Customize `w3m-antenna-sites'.  (defalias 'w3m-antenna-mode #[(&optional arg) "\203\f\302!\303V\202 ?\211\205\304\305!\207" [arg w3m-antenna-mode prefix-numeric-value 0 run-hooks w3m-antenna-mode-hook] 2 (#$ . 27742) "P"]) #@64 Activate `w3m-antenna-mode', when visiting page shows antenna. (defalias 'w3m-antenna-mode-setter #[(url) "\303\304\305\"\203\306 !\307\202\310!\207" [url w3m-antenna-file default-directory w3m-antenna-mode string-match "\\`about://antenna/" file-name-directory 1 0] 4 (#$ . 28052)]) (add-hook 'w3m-display-functions 'w3m-antenna-mode-setter) #@41 Start customize of `w3m-antenna-sites'. (defalias 'w3m-antenna-edit #[nil "\300\301!\207" [customize-variable w3m-antenna-sites] 2 (#$ . 28407) nil]) (provide 'w3m-antenna)