cgit.sxemacs.org Git - packages/blob - xemacs-packages/mail-lib/browse-url-xemacs.el

   1 ;;; browse-url-xemacs.el --- browse-url stuff for XEmacs
   2
   3 ;; Copyright (C) 1991-1995, 1997-1998 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
   5 ;; Copyright (C) 1995 Sun Microsystems.
   6 ;; Copyright (C) 1995, 1996, 2000 Ben Wing.
   7 ;; Copyright (C) 1997 MORIOKA Tomohiko.
   8
   9 ;; Maintainer: XEmacs Development Team
  10
  11 ;; This file is part of XEmacs.
  12
  13 ;; XEmacs is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 2, or (at your option)
  16 ;; any later version.
  17
  18 ;; XEmacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with XEmacs; see the file COPYING.  If not, write to the
  25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 ;; Boston, MA 02111-1307, USA.
  27
  28 ;;; Commentary:
  29
  30 ;; This code comes from menubar-items.el in XEmacs core.
  31
  32 ;;; Code:
  33
  34 (defvar browse-url-menu)
  35
  36 ;;;###autoload
  37 (progn
  38   (defun browse-url-xemacs-init-menu ()
  39     (if (featurep 'menubar)
  40         (add-submenu '("Options" "Internet") browse-url-menu)
  41       )))
  42
  43 (cond ((featurep 'xemacs)
  44        (defvar browse-url-menu
  45          '("%_Open URLs With"
  46            ["%_Emacs-W3"
  47             (customize-set-variable 'browse-url-browser-function 'browse-url-w3)
  48             :style radio
  49             :selected (eq browse-url-browser-function 'browse-url-w3)
  50             :active (and (fboundp 'browse-url-w3)
  51                          (fboundp 'w3-fetch))]
  52            ["Emacs-%_W3 (gnudoit)"
  53             (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
  54             :style radio
  55             :selected (eq browse-url-browser-function 'browse-url-w3-gnudoit)
  56             :active (fboundp 'browse-url-w3-gnudoit)]
  57            ["%_Netscape"
  58             (customize-set-variable 'browse-url-browser-function
  59                                     'browse-url-netscape)
  60             :style radio
  61             :selected (eq browse-url-browser-function 'browse-url-netscape)
  62             :active (fboundp 'browse-url-netscape)]
  63            ["%_Mosaic"
  64             (customize-set-variable 'browse-url-browser-function
  65                                     'browse-url-mosaic)
  66             :style radio
  67             :selected (eq browse-url-browser-function 'browse-url-mosaic)
  68             :active (fboundp 'browse-url-mosaic)]
  69            ["Mosaic (%_CCI)"
  70             (customize-set-variable 'browse-url-browser-function 'browse-url-cci)
  71             :style radio
  72             :selected (eq browse-url-browser-function 'browse-url-cci)
  73             :active (fboundp 'browse-url-cci)]
  74            ["%_IXI Mosaic"
  75             (customize-set-variable 'browse-url-browser-function
  76                                     'browse-url-iximosaic)
  77             :style radio
  78             :selected (eq browse-url-browser-function 'browse-url-iximosaic)
  79             :active (fboundp 'browse-url-iximosaic)]
  80            ["%_Lynx (xterm)"
  81             (customize-set-variable 'browse-url-browser-function
  82                                     'browse-url-lynx-xterm)
  83             :style radio
  84             :selected (eq browse-url-browser-function 'browse-url-lynx-xterm)
  85             :active (fboundp 'browse-url-lynx-xterm)]
  86            ["L%_ynx (xemacs)"
  87             (customize-set-variable 'browse-url-browser-function
  88                                     'browse-url-lynx-emacs)
  89             :style radio
  90             :selected (eq browse-url-browser-function 'browse-url-lynx-emacs)
  91             :active (fboundp 'browse-url-lynx-emacs)]
  92            ["%_Grail"
  93             (customize-set-variable 'browse-url-browser-function
  94                                     'browse-url-grail)
  95             :style radio
  96             :selected (eq browse-url-browser-function 'browse-url-grail)
  97             :active (fboundp 'browse-url-grail)]
  98            ["%_KDE"
  99             (customize-set-variable 'browse-url-browser-function
 100                                     'browse-url-kde)
 101             :style radio
 102             :selected (eq browse-url-browser-function 'browse-url-kde)
 103             :active (fboundp 'browse-url-kde)]
 104            ["Mo%_zilla"
 105             (customize-set-variable 'browse-url-browser-function
 106                                     'browse-url-mozilla)
 107             :style radio
 108             :selected (eq browse-url-browser-function 'browse-url-mozilla)
 109             :active (and (fboundp 'browse-url-mozilla)
 110                          (executable-find browse-url-mozilla-program))]
 111            ["%_Firefox"
 112             (customize-set-variable 'browse-url-browser-function
 113                                     'browse-url-firefox)
 114             :style radio
 115             :selected (eq browse-url-browser-function 'browse-url-firefox)
 116             :active (and (fboundp 'browse-url-firefox)
 117                          (executable-find browse-url-firefox-program))]
 118            ["Seamonkey"
 119             (customize-set-variable 'browse-url-browser-function
 120                                     'browse-url-seamonkey)
 121             :style radio
 122             :selected (eq browse-url-browser-function 'browse-url-seamonkey)
 123             :active (and (fboundp 'browse-url-seamonkey)
 124                          (executable-find browse-url-seamonkey-program))]
 125            ["G%_aleon"
 126             (customize-set-variable 'browse-url-browser-function
 127                                     'browse-url-galeon)
 128             :style radio
 129             :selected (eq browse-url-browser-function 'browse-url-galeon)
 130             :active (fboundp 'browse-url-galeon)]
 131            ["%_Opera"
 132             (customize-set-variable 'browse-url-browser-function
 133                                     'browse-url-opera)
 134             :style radio
 135             :selected (eq browse-url-browser-function 'browse-url-opera)
 136             :active (fboundp 'browse-url-opera)]
 137            ["%_MMM"
 138             (customize-set-variable 'browse-url-browser-function
 139                                     'browse-url-mmm)
 140             :style radio
 141             :selected (eq browse-url-browser-function 'browse-url-mmm)
 142             :active (fboundp 'browse-url-mmm)]
 143            ["MS-Windows Default %_Browser"
 144             (customize-set-variable 'browse-url-browser-function
 145                                     'browse-url-default-windows-browser)
 146             :style radio
 147             :selected (eq browse-url-browser-function 'browse-url-default-windows-browser)
 148             :active (and (fboundp 'mswindows-shell-execute)
 149                          (fboundp 'browse-url-default-windows-browser))]
 150            ["Free%_desktop.org Default Browser"
 151             (customize-set-variable 'browse-url-browser-function
 152                                     'browse-url-default-xdg-browser)
 153             :style radio
 154             :selected (eq browse-url-browser-function
 155                           'browse-url-default-xdg-browser)
 156             :active (and (fboundp 'browse-url-default-xdg-browser)
 157                          (executable-find browse-url-xdg-open-program))]
 158            ["G%_eneric Browser"
 159             (customize-set-variable 'browse-url-browser-function
 160                                     'browse-url-generic)
 161             :style radio
 162             :selected (eq browse-url-browser-function 'browse-url-generic)
 163             :active (and (boundp 'browse-url-generic-program)
 164                          browse-url-generic-program
 165                          (fboundp 'browse-url-generic))]
 166            ["Emacs-W%_3M"
 167             (customize-set-variable 'browse-url-browser-function 'browse-url-w3m)
 168             :style radio
 169             :selected (eq browse-url-browser-function 'browse-url-w3m)
 170             :active (and (fboundp 'browse-url-w3m)
 171                          (fboundp 'w3m-goto-url-new-session))]
 172            ["Emacs-W3M (gn%_udoit)"
 173             (customize-set-variable 'browse-url-browser-function 'browse-url-w3m-gnudoit)
 174             :style radio
 175             :selected (eq browse-url-browser-function 'browse-url-w3m-gnudoit)
 176             :active (fboundp 'browse-url-w3m-gnudoit)]
 177            ))
 178
 179
 180        (browse-url-xemacs-init-menu)
 181        ))
 182
 183 (provide 'browse-url-xemacs)
 184
 185 ;;; browse-url-xemacs.el ends here