;ELC ;;; compiled by jwz@thalidomide on Sat May 14 17:08:30 1994 ;;; from file /th/jwz/emacs19/lisp/w3/w3-epoch.el ;;; emacs version 19.10 Lucid (beta23). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'w3-make-face #[(new-name def-fn def-fg def-bg def-ulp) "  ! Q! Q!  Q! Q! Տ ׏ُ;\" \" \"." [make-style face symbol-name new-name name epoch::get-default "Emacs*" ".attributeFont" def-fn fn ".attributeForeground" def-fg fg ".attributeBackground" def-bg bg ".attributeUnderline" def-ulp ulp nil (set-style-font face fn) ((error (message "Font `%s' not found for face `%s'" fn name))) (set-style-foreground face fg) ((error (message "Color `%s' not allocated for face `%s'" fg name))) (set-style-background face bg) ((error (message "Color `%s' not allocated for face `%s'" bg name))) w3-member ("true" "on" "yes" "t") set-style-underline "white" set-variable] 4 "\ Create a style named NAME, and read in some standard resources. Default to font DEF-FN, foreground DEF-FG, background DEF-FG, and underlining to DEF-ULP"]) (fset 'w3-create-faces #[nil "É%É%É%É%%%É%É%%%É%É%" [w3-make-face w3-tt-style "6x13" nil w3-bold-style "red" w3-italic-style "green" w3-underline-style t w3-header-style w3-node-style "yellow" w3-address-style w3-superscript-style "pink" w3-subscript-style w3-strikethru-style w3-visited-node-style w3-default-style] 6 "\ Create the faces, the Epoch way"]) (byte-code "!  #" [boundp w3-mouse-map create-mouse-map define-key w3-mode-map "i" w3-load-delayed-images] 4) (fset 'w3-find-specific-link #[(link) "ed\"\n @!A Ap @!b\n\")" [epoch::zones-in-region thezones link epoch::zone-data zone-start message "Link %s was not found."] 4 "\ Find LINK in the current document"]) (byte-code "MMMMMM" [w3-delete-zone epoch::delete-zone w3-zone-data epoch::zone-data w3-zone-start epoch::zone-start w3-zone-end epoch::zone-end w3-zone-eq eq w3-zone-at epoch::zone-at] 2) (defun w3-zone-hidden-p (start end) "\ Return t iff the region from start to end is invisible." nil) (defun w3-unhide-zone (start end) "\ Make a region from START TO END visible. (epoch-unfunctional)" nil) (defun w3-hide-zone (start end) "\ Make a region from START to END invisible. (epoch-nonfunctional)" nil) (fset 'w3-all-zones #[nil "ed\"" [epoch::zones-in-region] 3 "\ Return all the zones in this buffer."]) (fset 'w3-forward-link #[(p) "US!`!`!!T`d\"@!@=@!@=Ad@@!b)" [p 1 w3-forward-link epoch::zones-in-region epoch::zone-at epoch::zone-end thezones epoch::zone-data w3 w3form epoch::zone-start] 5 "\ Go forward 1 link" "P"]) (fset 'w3-back-link #[(p) "US!e`!`!!S`\"!@!ɚ!@!>\"^@!@!b)" [p 1 w3-back-link epoch::zones-in-region epoch::zone-at epoch::zone-start thezones epoch::zone-data last w3 (style address header) butlast] 6 "\ Go back 1 link" "P"]) (fset 'w3-follow-mouse #[(mouse-data) " ! " [mouse::set-point mouse-data w3-follow-link] 2 "\ Follow the link under the mouse cursor" nil]) (fset 'w3-fix-extent-endpoints #[nil "ed\" @! @! Sf> St f> Tu @ #* AO)" [epoch::zones-in-region x epoch::zone-start epoch::zone-end nd st (9 13 10 32) (9 13 10 32) epoch::move-zone nil] 5 "\ Make sure no extents have whitespace at the end of them."]) (fset 'w3-follow-link #[nil "``dUd`T# @!= @\" Ț A@> AA@! AQ`! != \" Ț A@>? AA@!!*" [zones-in-region t nil data x epoch::zone-data w3form w3-do-form-entry w3 (address header style pic) w3-maybe-relative zone-at zone-data (address header style pic) message "Not on a link!"] 5 "\ Attempt to follow link under cursor" nil]) (fset 'w3-add-zone #[(start end style data &optional highlight) " \n # \")" [add-zone start end style zone epoch::set-zone-data data] 4 "\ Add highlighting (epoch)"]) (byte-code "! $!!M" [boundp hyperb:version define-mouse w3-mouse-map mouse-middle mouse-down w3-follow-mouse fboundp add-graphic-zone epoch::read-pixmap-file w3-insert-graphic #[(name pt align alt) "bc‰ A‰  \n    @ \" ! \"! \"A !#\"ߏᏈ* BBT#=媓#=窊#=骁p&bT|+c` D%.\n" [pt "^" nil name "GET" t w3-generate-unique-filename fname w3-request-extra-headers w3-source w3-request-data w3-be-asynchronous w3-request-method lnk add-to-list converter bit string-match w3-nonrelative-link w3-parse-relative-link " *W3GRAPH*" w3-working-buffer assoc w3-graphics-list message "Reusing image..." w3-retrieve w3-convert-graphic-to-useable-format "Reading image %s..." w3-current-file (byte-code " !" [epoch::read-pixmap-file fname bit] 2) ((error)) (delete-file fname) ((error)) add-graphic-zone align top 0 center 50 bottom 100 (w3 pic) alt w3-add-zone w3graphic] 10 "Insert the graphic pointed to by the URL NAME, at buffer position POINT,\nwith alignment specified by ALIGN (one of 'center 'top or 'bottom). If the\nconversion of the picture fails for any reason, use ALT as the alternative\ntext. If the reading of the pixmap is successful, the url and a pointer to\nthe pixmap are stored in w3-graphics-list for possible re-use later.\n\n If I can ever figure out how to get the color _NAME_ from epoch, I will\nchange this to grok bitmaps/pixmaps and change their background color to\nthat of the emacs screen. Will look better that way.\n\n If epoch was not compiled with graphics zone support, this function\ndoes nothing."]] 5) (fset 'w3-create-hrule #[nil "!?? Zĉ\"\"\"\"\"\"\"\"\"\"\" !q ced %! !)," [fboundp read-pixmap-file window-pixwidth 10 nil f bit x width "/* XPM */\nstatic char * scratch [] = {\n" format "\"%d 4 2 1\",\n" "\" c %s\",\n" "gray80" "\". c %s\",\n" "black" "\"%s\",\n" make-string 32 46 "\"%s\"};\n" w3-generate-unique-filename get-buffer-create " *tmp*" erase-buffer write-region 5 kill-buffer] 13 "\ Create a pixmap that is the width of the current buffer. This could use some work - not extremely pretty right now, but it works. If epoch was not compiled with graphics zone support, this function returns nil, causing the function which calls it (w3-fix-horizontal-rules) to draw a line with dashes."]) (fset 'w3-insert #[(&rest args) "``! \" \"*" [zones-at zones start apply insert-before-markers args mapcar #[(zone) " !\n ` !#" [zone-start zone start move-zone zone-end] 5]] 4]) (defun w3-setup-version-specifics nil "\ Set up routine for Lucid emacs 19.9" nil) (fset 'w3-store-in-x-clipboard 'epoch::store-cut-buffer) (fset 'w3-map-links #[(function &optional buffer from to maparg) " e d\"\"Ň" [mapcar #[(x) " != ! \"Ň" [w3-zone-data x w3 function maparg nil] 3] epoch::zones-in-region from to nil] 5 "\ Map FUNCTION over the hypertext links which overlap region in BUFFER, starting at FROM and ending at TO. FUNCTION is called with the arguments linkdata, MAPARG. The arguments FROM, TO, MAPARG, and BUFFER default to the beginning of BUFFER, the end of BUFFER, nil, and (current-buffer), respectively."]) (fset 'w3-mode-version-specifics #[nil " !" [use-local-mouse-map w3-mouse-map] 2 "\ Epoch specific stuff for w3-mode"]) (provide 'w3-epoch)