[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3 trouble
From: |
Marc Girod |
Subject: |
Re: w3 trouble |
Date: |
Fri, 17 Oct 2003 11:38:43 GMT |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
>>>>> "BL" == Björn Lindström <bkhl@elektrubadur.se> writes:
BL> Since nobody seems to be able to answer this, could maybe someone
BL> share their working w3/gnus settings, so I could try them out?
First, I have only: GNU Emacs 21.2.1
Then, I have quite a lot of settings that might affect.
First old Xresources:
Emacs*w3-tt-style.attributeFont:
-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-header-style.attributeForeground: AntiqueWhite2
Emacs*w3-italic-style.attributeFont:
-adobe-courier-medium-o-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-node-style.attributeForeground: CadetBlue2
Emacs*w3-visited-node-style.attributeFont:
-adobe-courier-medium-o-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-visited-node-style.attributeForeground: CadetBlue3
Then some things at various levels in my emacs-lisp files:
(custom-set-faces
'(cperl-array-face ((((class color) (background dark)) (:bold nil :foreground
"wheat" :background "DeepSkyBlue4"))))
'(widget-button-pressed-face ((t (:foreground "CadetBlue3"))))
'(highlight-changes-delete-face ((t (:underline t :foreground "CadetBlue2"))))
'(message-header-name-face ((t (:foreground "Goldenrod"))))
'(message-header-cc-face ((t (:bold t :foreground "LimeGreen"))))
'(cperl-hash-face ((((class color) (background dark)) (:bold nil :italic nil
:foreground "Salmon" :background "DeepSkyBlue4"))))
'(message-separator-face ((t (:foreground "Thistle"))))
'(message-header-other-face ((t (:foreground "Khaki"))))
'(message-cited-text-face ((t (:foreground "MediumTurquoise")))))
--------------------------------
(eval-when-compile (progn (require 'w3) (require 'w3-print) (require 'ssl)))
(defvar url-be-asynchronous t
"*Controls whether document retrievals over HTTP should be done in
the background. This allows you to keep working in other windows
while large downloads occur.")
(autoload 'w3-follow-url-under-mouse-other-frame "w3-addups" nil t)
(autoload 'w3-follow-url-under-mouse "w3-addups" nil t)
(autoload 'w3-find-this-file-other-frame "w3-addups" nil t)
(autoload 'w3-print-this-url "w3-print" nil t)
(autoload 'w3-print-url-under-point "w3-print" nil t)
(global-set-key [S-mouse-2] 'w3-follow-url-under-mouse-other-frame)
(global-set-key [S-mouse-1] 'w3-follow-url-under-mouse)
(require 'mf-sitevars)
(add-hook 'w3-load-hook
(function
(lambda()
(setq url-passwd-entry-func 'read-string)
(setq w3-reuse-buffers 'yes)
(setq w3-track-mouse t)
(setq url-keep-history t)
(setq widget-menu-minibuffer-flag t)
(define-key w3-mode-map "\M-\C-o" 'w3-fetch-other-frame)
(define-key w3-mode-map "e" 'w3-find-this-file)
(define-key w3-mode-map "E" 'w3-find-this-file-other-frame)
(define-key w3-mode-map "\M-<" 'w3-start-of-document)
(define-key w3-mode-map "\M->" 'w3-end-of-document)
(unless (string-match "^Exp" url-version)
(add-to-list 'mm-mime-extensions '(".h" . "text/emacs"))
; must be downcase for the code in mm.el?
(add-to-list 'mm-mime-extensions '(".c" . "text/emacs"))
(add-to-list 'mm-mime-extensions '(".mak" . "text/emacs"))
(mm-add-mailcap-entry "text" "emacs"
'(("viewer" . w3-default-local-file)
("type" . "text/emacs"))))
(setq url-proxy-services mf-url-proxy-services)
)))
(add-hook
'w3-mode-hook
(function
(lambda()
(define-key w3-mode-map [mouse-3] nil)
(define-key w3-mode-map [down-mouse-3] nil)
(define-key w3-mode-map [S-down-mouse-3] 'w3-popup-menu))))
(setq w3-display-frames 'as-link)
(setq w3-user-colors-take-precedence t)
(setq w3-use-terminal-characters nil
w3-use-terminal-glyphs nil
w3-use-terminal-characters-on-tty nil)
(if mf-using-openssl
(setq ssl-program-name "w3ssl"
ssl-view-certificate-program-name "w3ssl"
ssl-program-arguments '("s_client"
"-quiet"
"-connect" (concat host ":" service)
"-verify" (int-to-string
ssl-certificate-verification-policy)
"-CApath" (expand-file-name
ssl-certificate-directory))
ssl-view-certificate-program-arguments '("x509"
"-text"
"-inform" "DER"))
(setq ssl-program-name "s_client"
ssl-program-arguments '("-host" host
"-port" service
"-verify" "4"
"-CApath ~/.w3/certs")))
(if (string-match "^20" emacs-version)
(require 'w3-auto "w3-auto")
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
(autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
(autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
(autoload 'url-file-attributes "url" "File attributes of a URL" nil)
(autoload 'url-popup-info "url" "Get info on a URL" t)
(autoload 'url-retrieve "url" "Retrieve a URL" nil)
(autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil))
(provide 'mf-w3)
--------------------------------
But now that I look at it, obviously, my string-match is obsolete, so
that I could see how w3-auto affects...
--
Marc Girod P.O. Box 323 Voice: +358-71 80 25581
Nokia NBI 00045 NOKIA Group Mobile: +358-50 38 78415
Takomo 1 / 4c27 Finland Fax: +358-71 80 61604
- w3 trouble, Björn Lindström, 2003/10/10
- Re: w3 trouble, Björn Lindström, 2003/10/17
- Re: w3 trouble,
Marc Girod <=
- Re: w3 trouble, Marc Girod, 2003/10/17
- Re: w3 trouble, Björn Lindström, 2003/10/20
- Re: w3 trouble, Kevin Rodgers, 2003/10/21
- Re: w3 trouble, Björn Lindström, 2003/10/21
- Re: w3 trouble, Björn Lindström, 2003/10/27
- Re: w3 trouble, Kevin Rodgers, 2003/10/28
- Re: w3 trouble, Björn Lindström, 2003/10/28
- Re: w3 trouble, Kevin Rodgers, 2003/10/28
- Re: w3 trouble, Björn Lindström, 2003/10/29
- Re: w3 trouble, Kevin Rodgers, 2003/10/29