[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: W3 and Emacs21

   Do I understand it correctly that Emacs21 cannot be used in conjunction =
   with W3-4.0.pre44? When I tried to install the two, I got errors that =
   "w3-e21" cannot be loaded.
   In general, I like Emacs21 better, but as Raman reported, there are =
   problems between Emacs21 and W3-4.0.pre46.
   Can you please clarify this for me?
   Best regards,

Currently, I am running what `M-x emacs-version' reports is

    WWW 4.0pre.46, URL p4.0pre.46, MM 1.96

in GNU Emacs (i686-pc-linux-gnu, X toolkit) of 2001-11-21
(This is GNU Emacs from CVS.)

However, I also have a copy of this note from William Perry: 

    From: wmperry@aventail.com (William M. Perry)
    Date: 30 Nov 2000

    To run W3 on  Emacs 21

        You need to install the _CVS_ versions of URL and W3 from

        cd /u
        cvs -d :pserver:anoncvs@subversions.gnu.org:/cvs login
        [ just hit enter for the password ]
        cvs -d :pserver:anoncvs@subversions.gnu.org:/cvs co url
        cvs -d :pserver:anoncvs@subversions.gnu.org:/cvs co w3
        cd url && ./configure && make
        cd ../w3 && ./configure --with-url=../url/lisp && make

Perhaps WWW 4.0pre.46 is what I downloaded last year from CVS.  (I
have not touched W3 mode for the past year.)

And here is the W3 mode section of my .emacs file.
You will need to change the local names for your system.

;;;;;;;;;;;;;;;; W3 Mode ;;;;;;;;;;;;;;;;
;;  21 March 1995 -- 19 July 1996
;;  30 Nov 2000

;; Turn on HTML debugging mode
;;(setq w3-debug-html t)
;;(setq w3-debug-html nil)

;; ------------ start section with local file names ------------

;; 2000 Sep 14
(setq load-path  (cons "/usr/local/src/w3-4.0pre.46/lisp/"  load-path))

;;; for Emacs 21, added the following autoload:
(require 'w3-auto)

;;; Emacs/W3 Configuration

(setq max-lisp-eval-depth 10000)
(setq max-specpdl-size 10000)

;; Remainder set by Bob by hand.  Should not change from version to version.

;; Store everything here...
(setq url-temporary-directory "/var/url")

(setq w3-hotlist-file "/bob/.mosaic-hotlist")

;; Use Rattlesnake Home Page for home page ...
;; Note html address format.  You need the *full* pathname.
(setq w3-default-homepage "file:/u/net/rattlesnake-home-page.html")

;; The directory where cache files should be stored;
;; defaults to "~/.w3/cache/"
(setq url-cache-directory "/var/url/")

;; Name by which known to PGP and/or PEM entities, and what is sent to
;; HTTP/1.0 servers as the FROM field.
(setq url-pgp/pem-entity "bob@rattlesnake.com")

;; Specify my own stylesheet
(setq w3-default-stylesheet "~bob/.w3/stylesheet")

;; ------------ end section with local file names ------------

;; This appears to turn off all cookies
(setq url-cookie-untrusted-urls '(".*"))

;; This handles:  type application/x-httpd-php3
(setq url-mime-accept-string "*")

;; Use ps-print for printing.
(setq w3-use-ps-print nil)

;; Show hyperlinks to frames but do not fetch them
(setq w3-display-frames 'as-nil)

;; Set amount of space to leave on right margin of WWW buffers.
;; (default is 2)
(setq w3-right-margin 6)

;; You have a choice of using regular Emacs `dired' rather than W3
;; formatting; this loses hypertext properties but gives you a nicer
;; format.  An advantage of the hypertext is you can easily view a gif
;; by clicking on it.
;; If nil, w3 uses dired
;; If t,   w3 converts to hypertext.
;;(setq url-use-hypertext-dired nil)
(setq url-use-hypertext-dired t)

;; newframe   -- put the w3 page in its own frame
;; bully      -- make the w3 page the current buffer and only window
;; semibully  -- make the w3 page the current buffer in the same window
;; aggressive -- make the w3 page the current buffer in the other window
;; friendly   -- display  w3page in other window but don't make current
;; polite     -- don't display w3 page, but prints message when ready (beeps)
;; quiet      -- like `polite', but don't beep
;; meek       -- make no indication that page is ready
;; default, already: (setq  w3-notify 'semibully)

;; Automatically save everything...
;; But works only if in synchronous mode,
;; not when downloading in background!
(setq url-automatic-caching t)

;; 24 May 1998, William Perry says `Do not use
;; url-cache-create-filename-human-readable for this.
;; It is a can of worms.'  (Makes reading RISKS impossible.)
(setq url-cache-creation-function

(setq w3-latex-use-latex2e t)

;; Save a document to the local disk
;; as HTML Source, Formatted Text, LaTeX Source, or Binary.
;; Make an empty keymap if none exists
(if (not (boundp 'w3-mode-map))
    (setq w3-mode-map (make-sparse-keymap)))
(define-key w3-mode-map "\C-c\C-s" 'w3-save-as)

;; For working without the net set following to t; requires caching.
;; (setq url-standalone-mode nil)
;; (setq url-standalone-mode t)

(defun w3-toggle-standalone ()
  "Toggle the value of url-standalone-mode.
When t, this means work without net access by using the cache."
  (if url-standalone-mode
        (setq url-standalone-mode nil)
         "W3 Standalone mode turned OFF \(value is nil\): requires working Web access."))
    (setq url-standalone-mode t)
    (message "W3 Standalone mode turned ON \(value is t\); W3 uses cache.")))

;; Make an empty keymap if none exists
(if (not (boundp 'w3-mode-map))
    (setq w3-mode-map (make-sparse-keymap)))
(define-key w3-mode-map "\C-c\C-c" 'w3-toggle-standalone)

;; Keep a history
(setq url-keep-history t)

;; Display pages incrementally.
(setq w3-do-incremental-display t)

;; Set how much information you want sent to place you visit.
;; none     -- Send all information
;; low      -- Don't send the last location
;; high     -- Don't send the email address or last location
;; paranoid -- Don't send anything
;; evaluate following to update: (url-setup-privacy-info)
(setq-default url-privacy-level (quote paranoid))

;; Tell about cookies
(setq-default url-cookie-confirmation t)

;; Hook to be run after loading w3.
(add-hook 'w3-load-hook
          (function (lambda ()
                      ;; Whether to let a document define certain colors
                      ;; about itself.
                      ;; 3 Oct 1996:  Actually, I bet I do not want this,
                      ;; so change to nil
                      ;; 29 March 1997: I do want this.
                      (setq w3-user-colors-take-precedence t)
                      ;;(setq w3-user-colors-take-precedence nil)

;; Amount to temporarily multiply gc-cons-threshold by when parsing HTML.
(setq  w3-gc-cons-threshold-multiplier 2)

;; W3 Options Settings
;; ===================

;; These were automatically saved using the `save-options' command for
;; version 2.3.28 on 29 January 1996.

;; Setting commented out are set elsewhere in this .emacs file.

  (setq-default w3-color-use-reducing t)
  (setq-default w3-color-filter (quote ppmdither))
  (setq-default w3-dump-to-disk nil)
  (setq-default url-use-hypertext-gopher t)
  (setq-default url-proxy-services nil)
  (setq-default w3-honor-stylesheets t)

;;  (setq-default url-cookie-confirmation t)
;;  (setq-default url-privacy-level (quote none))
;;  (setq-default w3-delay-image-loads t)
;;  (setq-default w3-delay-mpeg-loads t)
;;  (setq-default url-automatic-caching t)
;;  (setq-default url-standalone-mode nil)
;;  (setq-default url-use-hypertext-dired nil)
;;  (setq-default url-be-asynchronous nil)
;;  (setq-default
;;    w3-default-homepage "file:/u/net/rattlesnake-home-page.html")

;; ==========================
;; End of W3 Options Settings

;; Avoid read-only bug, 9 March 1997
;; --- this may not be needed any more; should check sometime ---
(add-hook 'w3-mode-hook
   (lambda ()
     (let ((inhibit-read-only t))
        (put-text-property (point-min) (point-max) 'read-only nil))))

;;;;  browse-url ;;;;    browse-url.el is part of `gnus'

;;; use built in W3 mode
(setq browse-url-browser-function 'browse-url-w3)

(autoload browse-url-browser-function "browse-url"
  "Ask a WWW browser to show a URL." t)

;;; Ask W3 to load a URL using `C-x w'  key binding
(global-set-key "\C-xw" 'browse-url-w3)

;; Load yet different fonts.  I don't remember why I did this, or
;; whether this is still necessary.

(defun bobs-w3-font-hook()
   ;; 00002 is used in headers.
   '(w3-style-face-00002 ((t (:weight normal
                              :underline nil
                              :foreground "cyan"
                              :background "darkblue"))))

   ;; 00003 sets link size
   '(w3-style-face-00003  ((t (:weight normal))))

   ;; 00004 is used in links
   '(w3-style-face-00004  ((t (:weight normal
                               :foreground "cyan"
                               :background "darkblue"))))

   ;; 00006 sets <strong>
   '(w3-style-face-00006 ((t (:foreground "yellow"
                              :weight normal
                              :background "darkblue"))))

   '(w3-style-face-00007 ((t (:foreground "yellow" :background "darkblue"))))
   '(w3-style-face-00008 ((t (:foreground "yellow" :background "darkblue"))))
   '(w3-style-face-00009 ((t (:weight normal
                              :underline nil
                              :foreground "cyan"
                              :background "darkblue"))))
   '(w3-style-face-00011 ((t (:underline nil
                              :foreground "mediumspringgreen"
                              :background "darkblue"))))

   '(w3-style-face-00012 ((t (:underline nil
                              :foreground "yellow"
                              :background "darkblue"))))

   '(w3-style-face-00013 ((t (:underline nil
                              :foreground "yellow"
                              :background "darkblue"))))

   '(w3-style-face-00014 ((t (:background "darkblue"))))

   ;; 00015 is used in links for Nando
   '(w3-style-face-00015  ((t (:weight normal
                               :foreground "cyan"
                               :background "darkblue"))))

   '(w3-style-face-00018 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00019 ((t (:weight normal
                              :underline nil
                              :foreground "cyan"
                              :background "darkblue"))))

   '(w3-style-face-00020 ((t (:weight normal))))

   ;; 00021 is used in summary heads in Nando
   '(w3-style-face-00021  ((t (:weight normal
                               :foreground "cyan"
                               :background "darkblue"))))

   '(w3-style-face-00025 ((t (:weight normal))))
   '(w3-style-face-00030 ((t (:weight normal))))

   '(w3-style-face-00037 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00054 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00076 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00098 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00120 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-style-face-00142 ((t (:weight normal
                              :foreground "springgreen"
                              :background "darkblue"))))

   '(w3-table-hack-x-face ((t (:width normal :weight normal))))

(add-hook 'w3-mode-hook 'bobs-w3-font-hook)

;;;;;;;;;;;;;;;; end W3 Mode ;;;;;;;;;;;;;;;;

To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@cs.vassar.edu" with a
subject of "unsubscribe" or "help"

Emacspeak Files | Subscribe | Unsubscribe | Search