.emacs.d/my-browse-url.el

   1 ;(require 'w3) ;;  W3 sucks
   2 (defun select-browser-web ()
   3   ""
   4   (interactive)
   5   (let ((browser (intern (completing-read "Select a Web Browser: " '((w3m) (mozilla)) nil))))
   6     (cond ((eq browser 'w3m)(setq browse-url-browser-function 'w3m-browse-url))
   7           ((eq browser 'mozilla)(setq browse-url-browser-function 'browse-url-firefox))
   8           (t (setq browse-url-browser-function 'browse-url-default-browser)))
   9     (message "You'll use the %s browser." (symbol-name browser))))
  10
  11
  12 ; browse-url-default-browser
  13 ; (setq browse-url-browser-function 'browse-url-mozilla)
  14 ;(require 'browse-url)
  15 (autoload 'ewb "elisp/ewb.el" "emacs web browser" t)
  16
  17 ;; (require 'w3m-load)
  18 ;; (require 'w3m-cookie)
  19 ;;(setq browse-url-browser-function 'w3m-browse-url)
  20 ;(setq browse-url-browser-function nil)
  21 ;(setq browse-url-of-buffer 'w3m-browse-url)
  22
  23 ;;;; W3M Customozation
  24 ;w3m-mode-hook
  25 ;(w3m-fb-mode t)
  26
  27 (provide 'my-browse-url)