xemacs-beta: lisp/prim/about.el comparison

comparison lisp/prim/about.el @ 44:8d2a9b52c682 r19-15prefinal

Import from CVS: tag r19-15prefinal

author	cvs
date	Mon, 13 Aug 2007 08:55:10 +0200
parents	1a767b41a199
children	56c54cf7c5b6

comparison

equal deleted inserted replaced

-:23cafc5d2038
+:8d2a9b52c682
 ;    (insert "\n")
 ;    (goto-char (point-min))
 ;    (or got-error (message nil)))
 ;  )
+(defvar about-xref-alist
+'((w3-xemacs   . "http://www.xemacs.org/")
+(w3-jamie    . "http://www.netscape.com/people/jwz/")
+(w3-baw      . "http://www.python.org/~bwarsaw/")
+(w3-python   . "http://www.python.org/ftp/emacs/")
+(w3-infodock . "http://www.infodock.com")
+(w3-kyle     . "http://www.wonderworks.com/kyle/")
+(w3-larsi    . "http://www.ifi.uio.no/~larsi/")
+(w3-hrvoje   . "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/")
+;; add more here
+)
+"Mappings between xref symbols and URLs")
 (defun about-xemacs-xref ()
 (interactive "@")
 (let* ((e (or current-mouse-event last-input-event))
 	 (extent (or (and (null e) (extent-at (point)))
 		     (and (mouse-event-p e) (event-glyph-extent e))
 ;; reached from two different locations
 (if (equal (buffer-name) "About XEmacs")
 	(setq prev-page 'about)
 ;; Kill the sub-buffers when going back to the top, so that we
 ;; don't hold pointers to the bitmaps longer than necessary.
-(if (not (eq xref 'w3-jamie))
+(if (not (assq xref about-xref-alist))
 	  (progn
 	    (kill-buffer (current-buffer))
 	    (setq prev-page 'others))))
 (cond
 ((eq xref 'about)
 (about-xemacs))
 ((eq xref 'info)
 (info))
-((or (eq xref 'w3-xemacs) (eq xref 'w3-jamie))
+((assq xref about-xref-alist)
 (funcall browse-url-browser-function
-	       (if (eq xref 'w3-xemacs)
+	       (cdr (assq xref about-xref-alist))))
-		   "http://www.xemacs.org/"
-		 "http://www.netscape.com/people/jwz/")))
 ((eq xref 'kill-buffer)
 (kill-buffer (current-buffer)))
 ((eq xref 'news)
 (view-emacs-news)
 (view-mode nil 'kill-buffer)		;; assume the new view-less
 			       ((eq xref 'larsi) "About Lars Magne Ingebrigtsen")
 			       ((eq xref 'jens) "About Jens Lautenbacher")
 			       ((eq xref 'others) "About Everyone")
 			       ((eq xref 'features) "New XEmacs Features")
 			       ((eq xref 'history) "XEmacs History")
+			       (t (error "Can't follow xref: %s" xref))
 			       )))
 (delete-other-windows)
 (buffer-disable-undo (current-buffer))
 (widen)
 (setq buffer-read-only t)
 	 ((eq xref 'baw)
 	  (about-face "Barry Warsaw" 'bold)
 	  (insert " <bwarsaw@python.org>
-	Author of cc-mode for C++, C, and Objective-C editing, and
+	Author of CC Mode, for C, C++, Objective-C, and Java editing,
-	Supercite for mail and news citing.  Also various and sundry other
+	and Supercite for mail and news citing.  Also various and
-	Emacs utilities, fixes, enhancements and kludgery as whimsy,
+	sundry other Emacs packages, utilities, fixes, enhancements
-	boredom, and ToT dictate (but not necessarily in that order).
+	and kludgery as whimsy, boredom, and ToT dictate (but not
+	necessarily in that order).  See also:\n
-	See \"http://www.python.org/~bwarsaw\".
+")
+	  (about-xref "http://www.python.org/~bwarsaw/" 'w3-baw
+		      "Visit Barry's WWW page")
+	  (insert "\n	and:
+")
+	  (about-xref "http://www.python.org/ftp/emacs/" 'w3-python
+		      "Visit the CC Mode distribution")
+	  (insert "\n\n
 	Daddy
 	� 1994 Warsaw
-	========
+	=============
 	Drive me Daddy, drive me quick
 	Push my pedal, shift my stick
 	Fill me up with golden gas
 	My rubber squeals, I go real fast
 	hypertext system and the OO-Browser multi-language code
 	browser.  He also designed the InfoDock integrated tool
 	framework for software engineers.  It runs atop XEmacs and is
 	available from his firm, InfoDock Associates, which offers custom
 development and support packages for corporate users of XEmacs,
-GNU Emacs and InfoDock.  See \"http://www.infodock.com\".
+GNU Emacs and InfoDock.  See ")
+	  (about-xref "http://www.infodock.com" 'w3-infodock
+		      "Visit the Infodock WWW page")
+	  (insert "
 	His interests include user interfaces, information management,
 	CASE tools, communications and enterprise integration.")
 	  (insert "\n\n\tClick ")
 	  (about-xref "here" prev-page "Return to previous page")
 	the standard XEmacs distribution, and contributor of many
 	improvements and bug fixes.  Unlike RMAIL and MH-E, VM
 	uses the standard UNIX mailbox format for its folders;
 	thus, you can use VM concurrently with other UNIX mail
 	readers such as Berkeley Mail and ELM.
-	See \"http://www.wonderworks.com/kyle/\".")
+	See ")
+	  (about-xref "http://www.wonderworks.com/kyle/" 'w3-kyle
-	  (insert "\n\n\tClick ")
+		      "Visit Kyle's WWW page")
+	  (insert ". \n\n\tClick ")
 	  (about-xref "here" prev-page "Return to previous page")
 	  (insert " to go back to the previous page.\n")
 	  )
 	 ((eq xref 'larsi)
 	enhancements and portability fixes.  Lars is a student at the
 	Institute of Informatics at the University of Oslo.  He is
 	currently plumbing away at his majors work at the Institute of
 	Physics, working on an SCI project connected with CASCADE and
 	CERN and stuff.
-	See \"http://www.ifi.uio.no/~larsi/\".")
+	See ")
+	  (about-xref "http://www.ifi.uio.no/~larsi/" 'w3-larsi
-	  (insert "\n\n\tClick ")
+		      "Visit Lars' WWW page")
+	  (insert ". \n\n\tClick ")
 	  (about-xref "here" prev-page "Return to previous page")
 	  (insert " to go back to the previous page.\n")
 	  )
 	 ((eq xref 'jens)
 	  Implemented the faster stay-up Lucid menus and hyper-apropos.
 	  Contributor of many dispersed improvements in the core Lisp code,
 	  and back-seat contributor for several of it's major packages.
 	") (about-xref "Barry Warsaw" 'baw "Find out more about Barry Warsaw") (insert " <bwarsaw@python.org>
-	  Author of cc-mode for C++, C, and Objective-C editing, and
+	  Author of CC Mode for C, C++, Objective-C and Java editing,
-	  Supercite for mail and news citing.  Also various and sundry other
+	  and Supercite for mail and news citing.  Also various and
-	  Emacs utilities, fixes, enhancements and kludgery as whimsy,
+	  sundry other Emacs packages, utilities, fixes, enhancements
-	  boredom, and ToT dictate (but not necessarily in that order).
+	  and kludgery as whimsy, boredom, and ToT dictate (but not
+	  necessarily in that order).  See also:
+")
+	  (about-xref "http://www.python.org/~bwarsaw/" 'w3-baw
+		      "Visit Barry's WWW page")
+	  (insert "\n	  and:
+")
+	  (about-xref "http://www.python.org/ftp/emacs/" 'w3-python
+		      "Visit Barry's Emacs Goodies page")
+	  (insert "
 	") (about-xref "Andy Piper" 'piper "Find out more about Andy Piper") (insert " <andyp@parallax.co.uk>
 	  Created the prototype for the toolbars.  Has been the first to make
 	  use of many of the new XEmacs graphics features.
 	  hypertext system and the OO-Browser multi-language code
 	  browser.  He also designed the InfoDock integrated tool
 	  framework for software engineers.  It runs atop XEmacs and is
 	  available from his firm, InfoDock Associates, which offers custom
 development and support packages for corporate users of XEmacs,
-GNU Emacs and InfoDock.  See \"http://www.infodock.com\".
+GNU Emacs and InfoDock.  See ")
+	(about-xref "http://www.infodock.com" 'w3-infodock
+		    "Visit the Infodock WWW page")
+	(insert ".
 	  His interests include user interfaces, information management,
 	  CASE tools, communications and enterprise integration.
 	") (about-xref "William Perry" 'wmperry "Find out more about Bill Perry") (insert " <wmperry@aventail.com>
 	  Author of Emacs-w3, the builtin web browser that comes with XEmacs,
 	  the standard XEmacs distribution, and contributor of many
 	  improvements and bug fixes.  Unlike RMAIL and MH-E, VM
 	  uses the standard UNIX mailbox format for its folders;
 	  thus, you can use VM concurrently with other UNIX mail
 	  readers such as Berkeley Mail and ELM.
-	  See \"http://www.wonderworks.com/kyle/\".
+	  See ")
+	(about-xref "http://www.wonderworks.com/kyle/" 'w3-kyle
+		    "Visit Kyle's WWW page")
+	(insert ".
 	") (about-xref "Lars Magne Ingebrigtsen" 'larsi "Find out more about Lars Magne Ingebrigtsen") (insert " <larsi@ifi.uio.no>
 	  Author of Gnus the Usenet news and Mail reading package in
 	  the standard XEmacs distribution, and contributor of various
 	  enhancements and portability fixes.  Lars is a student at the
 	  Institute of Informatics at the University of Oslo.  He is
 	  currently plumbing away at his majors work at the Institute of
 	  Physics, working on an SCI project connected with CASCADE and
 	  CERN and stuff.
-	  See \"http://www.ifi.uio.no/~larsi/\"
+	  See ")
+	(about-xref "http://www.ifi.uio.no/~larsi/" 'w3-larsi
+		    "Visit Lars' WWW page")
+	(insert ".
 	") (about-xref "Jens Lautenbacher" 'jens "Find out more about Jens Lautenbacher") (insert " <jens@lemcbed.lem.uni-karlsruhe.de>
-	I'm currently working at the University of Karlsruhe, Germany
+	  I'm currently working at the University of Karlsruhe, Germany
-	on getting my diploma thesis on Supersymmetry (uuh, that's
+	  on getting my diploma thesis on Supersymmetry (uuh, that's
-	physics) done.  After that (and all the remaining exams) I'm
+	  physics) done.  After that (and all the remaining exams) I'm
-	looking forward to make a living out of my hobbies --
+	  looking forward to make a living out of my hobbies --
-	computers (and graphics). But because I have no deadline for
+	  computers (and graphics). But because I have no deadline for
-	the exams and XEmacs betas are released at a high rate this
+	  the exams and XEmacs betas are released at a high rate this
-	may take some time...
+	  may take some time...
 	Darrell Kindred <Darrell.Kindred@cmu.edu>
 	  Unofficial maintainer of the xemacs-beta list of extant
 	  bugs and contributor of an extraordinary number of
 	  important bug fixes, many of them in areas that neither
 	  Engineering and Computing in Zagreb, Croatia.  He works part-
 	  time at SRCE, where he helps run the network machines.
 	  In his free time he is helping develop free software (especially
 	  XEmacs, as well as GNU software) and is writing his own -- he has
 	  written a small network mirroring utility Wget, see
-	  \"ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/\".
+	  ")
+	(about-xref "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/"
+		    'w3-hrvoje "Visit Hrvoje's Wget distribution")
+	(insert "
 	In addition to those just mentioned, the following people have
 	spent a great deal of effort providing feedback, testing beta
 	versions of XEmacs, providing patches to the source code,
 	or doing all of the above.  We couldn't have done it without

Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 44:8d2a9b52c682 r19-15prefinal