xemacs-beta: lisp/about.el comparison

comparison lisp/about.el @ 373:6240c7796c7a r21-2b2

Import from CVS: tag r21-2b2

author	cvs
date	Mon, 13 Aug 2007 11:04:06 +0200
parents	cc15677e0335
children	d883f39b8495

comparison

equal deleted inserted replaced

-:49e1ed2d7ed8
+:6240c7796c7a
 (require 'wid-edit)
 ;; People in this list have their individual links from the main page,
 ;; or from the `Legion' page.  If they have an image, it should be
-;; named after the CAR of the list element (baw -> baw.xpm).
+;; named after the CAR of the list element (baw -> baw.png).
 ;;
 ;; If you add to this list, you'll want to update
 ;; `about-maintainer-info' (and maybe `about-hackers'.
 (defvar xemacs-hackers
 '((ajc      "Andrew Cosgriff"   "ajc@bing.wattle.id.au")
 (baw      "Barry Warsaw"      "bwarsaw@python.org")
 (bw       "Bob Weiner"        "weiner@altrasoft.com")
+(chr      "Christian Nybų"    "chr@mediascience.no")
 (cthomp   "Chuck Thompson"    "cthomp@xemacs.org")
 (dmoore   "David Moore"       "dmoore@ucsd.edu")
 (dkindred "Darrell Kindred"	  "dkindred@cmu.edu")
 (dv       "Didier Verna"      "verna@inf.enst.fr")
 (hniksic  "Hrvoje Niksic"     "hniksic@srce.hr")
 (jareth   "Jareth Hein"       "jareth@camelot.co.jp")
-(jason    "Jason Mastaler"	  "jason@mastaler.com")
+(jason    "Jason Mastaler"	  "jason@xemacs.org")
 (jens     "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de")
 (jmiller  "Jeff Miller"       "jmiller@smart.net")
 (juhp     "Jens-Ulrik Holger Petersen" "petersen@kurims.kyoto-u.ac.jp")
 (jwz      "Jamie Zawinski"    "jwz@netscape.com")
 (kazz     "IENAGA Kazuyuki"   "ienaga@jsys.co.jp")
 (vin      "Vin Shelton"	  "acs@acm.org")
 (sperber  "Michael Sperber"   "sperber@informatik.uni-tuebingen.de")
 (slb      "SL Baur"           "steve@xemacs.org")
 (stig     "Jonathan Stigelman" "stig@hackvan.com")
 (stigb    "Stig Bjorlykke"	  "stigb@tihlde.hist.no")
-(thiessel "Marcus Thiessel"   "thiessel@rhrk.uni-kl.de")
+(thiessel "Marcus Thiessel"   "marcus_thiessel@hp.com")
 (vladimir "Vladimir Ivanovic" "vladimir@mri.com")
 (wing     "Ben Wing"          "ben@xemacs.org")
 (wmperry  "William Perry"     "wmperry@aventail.com"))
 "Alist of XEmacs hackers.")
 ;; It is preferred to a simple string, because it makes maintenance
 ;; easier.  Please add new URLs to this list.
 (defvar about-url-alist
 '((ajc       . "http://www-personal.monash.edu.au/~ajc/")
 (altrasoft . "http://www.altrasoft.com/")
+(ben       . "http://www.666.com/ben/")
+(ben-xemacs . "http://www.666.com/xemacs/")
 (baw       . "http://www.python.org/~bwarsaw/")
 (cc-mode   . "http://www.python.org/ftp/emacs/")
+(chr       . "http://www.xemacs.org/faq/")
 (dkindred  . "http://www.cs.cmu.edu/People/dkindred/me.html")
 (dmoore    . "http://oj.egbt.org/dmoore/")
 (jason     . "http://www.mastaler.com/")
 (juhp      . "http://www.kurims.kyoto-u.ac.jp/~petersen/")
 (jwz       . "http://people.netscape.com/jwz/")
 		   :tag-glyph xemacs-logo)
 (widget-insert "\n")
 (let* ((emacs-short-version (format "%d.%d"
 					emacs-major-version
 					emacs-minor-version))
-	   (emacs-about-version (format "version %s; Apr 1998"
+	   (emacs-about-version (format "version %s; Aug 1998"
 					emacs-short-version)))
 (widget-insert (about-center emacs-about-version))
 (widget-create 'link :help-echo "The latest NEWS of XEmacs"
 		     :action 'about-news
 		     emacs-about-version))
 (let ((file (expand-file-name
 		   (concat (symbol-name who)
 			   (if (memq (device-class)
 				     '(color grayscale))
 			       "" "m")
-			   ".xpm")
+			   ".png")
 		   (locate-data-directory "photos")))
 	    (data nil))
-	(unless (file-exists-p file)
-	  ;; Maybe the file is compressed?
-	  (setq file (concat file ".Z"))
-	  (if (file-exists-p file)
-	      ;; Decompress it.
-	      (condition-case nil
-		  (let ((buffer (get-buffer-create " *image*")))
-		    (unwind-protect
-			(save-excursion
-			  (message "Uncompressing image...")
-			  (set-buffer buffer)
-			  (erase-buffer)
-			  (let ((coding-system-for-read 'binary)
-				(coding-system-for-write 'binary))
-			    (insert-file-contents-literally file)
-			    (call-process-region (point-min) (point-max)
-						 "zcat" t t nil)
-			    (setq data
-				  (buffer-substring (point-min) (point-max))))
-			  (message "Uncompressing image... done"))
-		      (kill-buffer buffer)))
-		(error (setq data 'error)))
-	    (setq file nil)))
 	(setq glyph
 	      (cond ((stringp data)
 		     (make-glyph
-		      (if (featurep 'xpm)
+		      (if (featurep 'png)
-			  `([xpm :data ,data]
+			  `([png :data ,data]
 			    [string :data "[Image]"])
 			`([string :data "[Image]"]))))
 		    ((eq data 'error)
 		     (make-glyph [string :data "[Error]"]))
 		    (file
 		     (make-glyph
-		      (if (featurep 'xpm)
+		      (if (featurep 'png)
-			  `([xpm :file ,file]
+			  `([png :file ,file]
 			    [string :data "[Image]"])
 			`([string :data "[Image]"]))))
 		    (t
 		     (make-glyph [nothing]))))
 	(set-glyph-property glyph 'baseline 100)
 Martin is no longer doing XEmacs for a living, and is Just Another
 Volunteer.\n"))
 (hniksic
 (widget-insert "\
-Hrvoje is currently a student at the Faculty of Electrical
+Hrvoje is a student at the Faculty of Electrical Engineering and
-Engineering and Computing in Zagreb, Croatia.  He works part-time
+Computing in Zagreb, Croatia, working part-time at system administration
-at SRCE, where he helps run the network machines.  In his free time he
+at SRCE.  His hobby is hacking free software, particularly XEmacs and
-is helping develop free software (especially XEmacs, as well as GNU
+GNU Wget, the latter being his very own creation.
-software) and is writing his own -- he has written a small network
-mirroring utility Wget, see ")
+His contribution to XEmacs consists of a multitude of hours spent
-(about-url-link 'wget "Download Wget")
+adding new features and bugs, and fixing old ones.  He dreams of
-(widget-insert ".\n"))
+writing a home page.\n"))
 (wing
 (widget-insert
 "\
-I'm not a thug -- I just play one on video.
+I began my Emacs life in 1992 as the co-founder of the now defunct
-My roommate says I'm a San Francisco \"Mission Critter\".\n\n"
+Pearl Software.  As part of this company, I became the principal
-(about-with-face "Gory stuff follows:" 'italic)
+architect of Win-Emacs, an early port of Lucid Emacs to Microsoft
-"\n
+Windows and Windows NT.
-In 1992 I left a stuffy East-Coast university, set out into the real
-world, and ended up a co-founder of Pearl Software.  As part of this
-company, I became the principal architect of Win-Emacs, a port of
-Lucid Emacs to Microsoft Windows and Windows NT (for more info, e-mail
-to info@pearlsoft.com).
 Since April 1993, I've worked on XEmacs as a contractor for various
 companies, changing hats faster than Ronald Reagan's hair color (oops,
 did I just show my age?).  My main contributions to XEmacs include
 rewriting large parts of the internals and the gory Xt/Xlib
 interfacing, adding the Mule support, implementing the external client
 widget, improving the documentation (especially the Emacs Lisp
 manual), and being a general nuisance ... er, brainstormer for many of
 the new features of XEmacs.
-Recently I took a job at Dimension X, where I'm working on a
+Alas, life has not been good to me recently.  This former San Francisco
-Java-based toolkit for developing VRML applications.\n"))
+\"Mission Critter\" was exiled to \"Stroller Valley\" and, after a brief
+stint developing a Java-based VRML toolkit for the now also defunct
+Dimension X, I developed insidious hand and neck problems, and I was
+forced to quit working.  Since then, I have been learning how to interact
+with the computer by using foot pedals and by dictating text to other
+people.  Recently I completed Architecting XEmacs, a web site about the
+future of XEmacs.\n\n")
+(widget-insert "Architecting XEmacs: ")
+(about-url-link 'ben-xemacs "Find the miracles in store for XEmacs")
+(widget-insert "\nBen's home page:     ")
+(about-url-link 'ben "Visit Ben's page")
+(widget-insert "\n"))
 (cthomp
 (widget-insert "\
 Chuck, through being in the wrong place at the right time, has gotten
 stuck with being Jamie's replacement as the primary maintainer of
 XEmacs.  This has caused his hair to begin falling out and quadrupled
 I work for Positron Industries Inc., Public Safety Division.
 I'm part of the team producing POWER 911, a 911 emergency response
 system written in Modula3:\n")
 (about-url-link 'marcpa "Visit POWER 911")
 (widget-insert "\
-Previously, I worked at Softimage Inc., now a Microsoft company
+\n\nPreviously, I worked at Softimage Inc., now a Microsoft company
 \(eeekkk!), as a UNIX system administrator.  This is where I've been
 converted to NT.
 In a previous life, I was a programmer/sysadmin at CRIM (Centre de
 Recherche Informatique de Montreal) for the speech recognition group.\n"))
 He has a page at ")
 (about-url-link 'dmoore "Visit David's home page")
 (widget-insert ".\n"))
 (thiessel
 (widget-insert "\
-On May 1, 1996 he started working at University of Kaiserslautern in
+Worked at University of Kaiserslautern where he took part in the
-the field of computer aided analog circuit design. His
+development and design of a CAD framework for analog integrated
-responsibilities include the development and design of a CAD-Tool for
+circuits with special emphasis on distributed software concepts. He
-analog integrated circuits with special emphasis on distributed
+has now joined HP as technical consultant.
-software concepts.
+For XEmacs he does beta testing and tries to take care of XEmacs
-When all the daily hacking is done he tries to take care of XEmacs
 website at ")
 (about-url-link 'xemacs "Visit XEmacs web site")
 (widget-insert ".\n"))
 (sperber
 (widget-insert "\
 time tinkering with Linux and hacking on XEmacs and loves it when he finds
 new cool features in either.  When he's not doing that, he enjoys downhill
 skiing, puzzles, and sci-fi.  Jeff is also really interested in classical
 Roman history and enjoys making trips to Italy, where he was born, and
 seeing the sights")
+(widget-insert ".\n"))
+(chr
+(widget-insert "\
+Maintainer of the XEmacs FAQ and proud author of `zap-up-to-char'.
+Christian is a student at the Norwegian School of Economics and
+Business Administration in Bergen, Norway.  He used to work for an
+internet startup called New Media Science, doing scripting and
+violation of HTML DTD's.  After graduation, spring 1999, he'll be
+looking for a job involving lisp programming, French and Russian.")
 (widget-insert ".\n"))
 ))
 ;; Setup the buffer for a maintainer.
 (defun about-maintainer (widget &optional event)
 		   :value who)
 (widget-insert (about-tabs name)
 		   (format "<%s>\n%s\n" address shortinfo))))
 (defun about-hackers (&rest ignore)
-(unless (about-get-buffer "*About Hackers*")
+(unless (about-get-buffer "*About Contributors*")
 (let ((title "Other Contributors to XEmacs"))
 (widget-insert
 (about-center title)
 (about-with-face title 'bold)))
 (widget-insert
 (about-show-linked-info 'jason "\
 Beta tester and manager of the various XEmacs mailing lists.
 Originator and maintainer of the gnus.org domain.\n")
 (about-show-linked-info 'jmiller "\
 Beta tester and last hacker of calendar.\n")
+(about-show-linked-info 'chr "\
+Maintainer of the XEmacs FAQ and proud author of `zap-up-to-char'.\n")
 (flet ((print-short (name addr &optional shortinfo)
 	     (concat (about-with-face name 'italic)
 		     (about-tabs name)
 		     "<" addr ">\n"
 		     (if shortinfo (concat shortinfo "\n") ""))))
 (print-short "Ben Gross" "bgross@uiuc.edu")
 (print-short "Dirk Grunwald" "grunwald@foobar.cs.Colorado.EDU")
 (print-short "Michael Guenther" "michaelg@igor.stuttgart.netsurf.de")
 (print-short "Dipankar Gupta" "dg@hplb.hpl.hp.com")
 (print-short "Markus Gutschke" "gutschk@GOEDEL.UNI-MUENSTER.DE")
-(print-short "Kai Haberzettl" "khaberz@privat.circular.de")
+(print-short "Kai Haberzettl" "khaberz@synnet.de")
 (print-short "Adam Hammer" "hammer@cs.purdue.edu")
 (print-short "Magnus Hammerin" "magnush@epact.se")
 (print-short "ChangGil Han" "cghan@phys401.phys.pusan.ac.kr")
 (print-short "Derek Harding" "dharding@lssec.bt.co.uk")
 (print-short "Michael Harnois" "mharnois@sbt.net")
 (print-short "Doug Keller" "dkeller@vnet.ibm.com")
 (print-short "Hunter Kelly" "retnuh@corona")
 (print-short "Gregor Kennedy" "gregork@dadd.ti.com")
 (print-short "Michael Kifer" "kifer@cs.sunysb.edu")
 (print-short "Yasuhiko Kiuchi" "kiuchi@dsp.ksp.fujixerox.co.jp")
-(print-short "Greg Klanderman" "greg@alphatech.com")
+(print-short "Greg Klanderman" "greg.klanderman@alum.mit.edu")
 (print-short "Valdis Kletnieks" "Valdis.Kletnieks@vt.edu")
 (print-short "Rob Kooper" "kooper@cc.gatech.edu")
 (print-short "Peter Skov Knudsen" "knu@dde.dk")
 (print-short "Jens Krinke" "krinke@ips.cs.tu-bs.de")
 (print-short "Maximilien Lincourt" "max@toonboom.com")
 (print-short "Mats Larsson" "Mats.Larsson@uab.ericsson.se")
 (print-short "Simon Leinen" "simon@instrumatic.ch")
-(print-short "Carsten Leonhardt" "leo@arioch.tng.oche.de")
+(print-short "Carsten Leonhardt" "leo@arioch.oche.de")
 (print-short "James LewisMoss" "moss@cs.sc.edu")
 (print-short "Mats Lidell" "mats.lidell@contactor.se")
 (print-short "Matt Liggett" "mliggett@seven.ucs.indiana.edu")
 (print-short "Christian Limpach" "Christian.Limpach@nice.ch")
 (print-short "Maximilien Lincourt" "max@toonboom.com")
 (print-short "Casey Nielson" "knielson@joule.elee.calpoly.edu")
 (print-short "Georg Nikodym" "Georg.Nikodym@canada.sun.com")
 (print-short "Andy Norman" "ange@hplb.hpl.hp.com")
 (print-short "Joe Nuspl" "nuspl@sequent.com")
 (print-short "Kim Nyberg" "kny@tekla.fi")
-(print-short "Christian Nybų" "chr@mediascience.no")
 (print-short "Kevin Oberman" "oberman@es.net")
 (print-short "David Ofelt" "ofelt@getalife.Stanford.EDU")
 (print-short "Alexandre Oliva" "oliva@dcc.unicamp.br")
 (print-short "Tore Olsen" "toreo@colargol.idb.hist.no")
 (print-short "Greg Onufer" "Greg.Onufer@eng.sun.com")
 (print-short "Tibor Polgar" "tibor@alteon.com")
 (print-short "Fabrice POPINEAU" "popineau@esemetz.ese-metz.fr")
 (print-short "Frederic Poncin" "fp@info.ucl.ac.be")
 (print-short "E. Rehmi Post" "rehmi@asylum.sf.ca.us")
 (print-short "Martin Pottendorfer" "Martin.Pottendorfer@aut.alcatel.at")
-(print-short "Colin Rafferty" "craffert@ml.com")
+(print-short "Colin Rafferty" "colin@xemacs.org")
 (print-short "Rick Rankin" "Rick_Rankin-P15254@email.mot.com")
 (print-short "Paul M Reilly" "pmr@pajato.com")
 (print-short "Jack Repenning" "jackr@sgi.com")
 (print-short "Daniel Rich" "drich@cisco.com")
 (print-short "Roland Rieke" "rol@darmstadt.gmd.de")
 (print-short "Darrel Schneider" "darrel@slc.com")
 (print-short "Hayden Schultz" "haydens@ll.mit.edu")
 (print-short "Cotton Seed" "cottons@cybercom.net")
 (print-short "Axel Seibert" "seiberta@informatik.tu-muenchen.de")
 (print-short "Odd-Magne Sekkingstad" "oddms@ii.uib.no")
+(print-short "Gregory Neil Shapiro" "gshapiro@sendmail.org")
 (print-short "Justin Sheehy" "justin@linus.mitre.org")
 (print-short "John Shen" "zfs60@cas.org")
 (print-short "Murata Shuuichirou" "mrt@mickey.ai.kyutech.ac.jp")
 (print-short "Matt Simmons" "simmonmt@acm.org")
 (print-short "Dinesh Somasekhar" "somasekh@ecn.purdue.edu")
 (print-short "Christoph Wedler" "wedler@fmi.uni-passau.de")
 (print-short "Yoav Weiss" "yoav@zeus.datasrv.co.il")
 (print-short "Peter B. West" "p.west@uq.net.au")
 (print-short "Rod Whitby" "rwhitby@asc.corp.mot.com")
 (print-short "Rich Williams" "rdw@hplb.hpl.hp.com")
+(print-short "Raymond Wiker" "raymond@orion.no")
 (print-short "Peter Windle" "peterw@SDL.UG.EDS.COM")
 (print-short "David C Worenklein" "dcw@gcm.com")
 (print-short "Takeshi Yamada" "yamada@sylvie.kecl.ntt.jp")
 (print-short "Katsumi Yamaoka" "yamaoka@ga.sony.co.jp")
 (print-short "Jason Yanowitz" "yanowitz@eternity.cs.umass.edu")

Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 373:6240c7796c7a r21-2b2