comparison lisp/about.el @ 310:851ff35f137f r21-0b53

Import from CVS: tag r21-0b53
author cvs
date Mon, 13 Aug 2007 10:43:28 +0200
parents 33bdb3d4b97f
children d1b52dcaa789
comparison
equal deleted inserted replaced
309:7f3a3eb0558c 310:851ff35f137f
56 ;; `about-maintainer-info' (and maybe `about-hackers'. 56 ;; `about-maintainer-info' (and maybe `about-hackers'.
57 (defvar xemacs-hackers 57 (defvar xemacs-hackers
58 '((ajc "Andrew Cosgriff" "ajc@bing.wattle.id.au") 58 '((ajc "Andrew Cosgriff" "ajc@bing.wattle.id.au")
59 (baw "Barry Warsaw" "bwarsaw@python.org") 59 (baw "Barry Warsaw" "bwarsaw@python.org")
60 (bw "Bob Weiner" "weiner@altrasoft.com") 60 (bw "Bob Weiner" "weiner@altrasoft.com")
61 (chr "Christian Nybø" "chr@mediascience.no")
61 (cthomp "Chuck Thompson" "cthomp@xemacs.org") 62 (cthomp "Chuck Thompson" "cthomp@xemacs.org")
62 (dmoore "David Moore" "dmoore@ucsd.edu") 63 (dmoore "David Moore" "dmoore@ucsd.edu")
63 (dkindred "Darrell Kindred" "dkindred@cmu.edu") 64 (dkindred "Darrell Kindred" "dkindred@cmu.edu")
64 (dv "Didier Verna" "verna@inf.enst.fr") 65 (dv "Didier Verna" "verna@inf.enst.fr")
65 (hniksic "Hrvoje Niksic" "hniksic@srce.hr") 66 (hniksic "Hrvoje Niksic" "hniksic@srce.hr")
85 (vin "Vin Shelton" "acs@acm.org") 86 (vin "Vin Shelton" "acs@acm.org")
86 (sperber "Michael Sperber" "sperber@informatik.uni-tuebingen.de") 87 (sperber "Michael Sperber" "sperber@informatik.uni-tuebingen.de")
87 (slb "SL Baur" "steve@xemacs.org") 88 (slb "SL Baur" "steve@xemacs.org")
88 (stig "Jonathan Stigelman" "stig@hackvan.com") 89 (stig "Jonathan Stigelman" "stig@hackvan.com")
89 (stigb "Stig Bjorlykke" "stigb@tihlde.hist.no") 90 (stigb "Stig Bjorlykke" "stigb@tihlde.hist.no")
90 (thiessel "Marcus Thiessel" "thiessel@rhrk.uni-kl.de") 91 (thiessel "Marcus Thiessel" "marcus_thiessel@hp.com")
91 (vladimir "Vladimir Ivanovic" "vladimir@mri.com") 92 (vladimir "Vladimir Ivanovic" "vladimir@mri.com")
92 (wing "Ben Wing" "ben@xemacs.org") 93 (wing "Ben Wing" "ben@xemacs.org")
93 (wmperry "William Perry" "wmperry@aventail.com")) 94 (wmperry "William Perry" "wmperry@aventail.com"))
94 "Alist of XEmacs hackers.") 95 "Alist of XEmacs hackers.")
95 96
99 (defvar about-url-alist 100 (defvar about-url-alist
100 '((ajc . "http://www-personal.monash.edu.au/~ajc/") 101 '((ajc . "http://www-personal.monash.edu.au/~ajc/")
101 (altrasoft . "http://www.altrasoft.com/") 102 (altrasoft . "http://www.altrasoft.com/")
102 (baw . "http://www.python.org/~bwarsaw/") 103 (baw . "http://www.python.org/~bwarsaw/")
103 (cc-mode . "http://www.python.org/ftp/emacs/") 104 (cc-mode . "http://www.python.org/ftp/emacs/")
105 (chr . "http://www.xemacs.org/faq/")
104 (dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html") 106 (dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html")
105 (dmoore . "http://oj.egbt.org/dmoore/") 107 (dmoore . "http://oj.egbt.org/dmoore/")
106 (jason . "http://www.mastaler.com/") 108 (jason . "http://www.mastaler.com/")
107 (juhp . "http://www.kurims.kyoto-u.ac.jp/~petersen/") 109 (juhp . "http://www.kurims.kyoto-u.ac.jp/~petersen/")
108 (jwz . "http://people.netscape.com/jwz/") 110 (jwz . "http://people.netscape.com/jwz/")
805 He has a page at ") 807 He has a page at ")
806 (about-url-link 'dmoore "Visit David's home page") 808 (about-url-link 'dmoore "Visit David's home page")
807 (widget-insert ".\n")) 809 (widget-insert ".\n"))
808 (thiessel 810 (thiessel
809 (widget-insert "\ 811 (widget-insert "\
810 On May 1, 1996 he started working at University of Kaiserslautern in 812 Worked at University of Kaiserslautern where he took part in the
811 the field of computer aided analog circuit design. His 813 development and design of a CAD framework for analog integrated
812 responsibilities include the development and design of a CAD-Tool for 814 circuits with special emphasis on distributed software concepts. He
813 analog integrated circuits with special emphasis on distributed 815 has now joined HP as technical consultant.
814 software concepts. 816
815 817 For XEmacs he does beta testing and tries to take care of XEmacs
816 When all the daily hacking is done he tries to take care of XEmacs
817 website at ") 818 website at ")
818 (about-url-link 'xemacs "Visit XEmacs web site") 819 (about-url-link 'xemacs "Visit XEmacs web site")
819 (widget-insert ".\n")) 820 (widget-insert ".\n"))
820 (sperber 821 (sperber
821 (widget-insert "\ 822 (widget-insert "\
971 time tinkering with Linux and hacking on XEmacs and loves it when he finds 972 time tinkering with Linux and hacking on XEmacs and loves it when he finds
972 new cool features in either. When he's not doing that, he enjoys downhill 973 new cool features in either. When he's not doing that, he enjoys downhill
973 skiing, puzzles, and sci-fi. Jeff is also really interested in classical 974 skiing, puzzles, and sci-fi. Jeff is also really interested in classical
974 Roman history and enjoys making trips to Italy, where he was born, and 975 Roman history and enjoys making trips to Italy, where he was born, and
975 seeing the sights") 976 seeing the sights")
977 (widget-insert ".\n"))
978 (chr
979 (widget-insert "\
980 Maintainer of the XEmacs FAQ and proud author of `zap-up-to-char'.
981
982 Christian is a student at the Norwegian School of Economics and
983 Business Administration in Bergen, Norway. He used to work for an
984 internet startup called New Media Science, doing scripting and
985 violation of HTML DTD's. After graduation, spring 1999, he'll be
986 looking for a job involving lisp programming, French and Russian.")
976 (widget-insert ".\n")) 987 (widget-insert ".\n"))
977 )) 988 ))
978 989
979 ;; Setup the buffer for a maintainer. 990 ;; Setup the buffer for a maintainer.
980 (defun about-maintainer (widget &optional event) 991 (defun about-maintainer (widget &optional event)
1016 :value who) 1027 :value who)
1017 (widget-insert (about-tabs name) 1028 (widget-insert (about-tabs name)
1018 (format "<%s>\n%s\n" address shortinfo)))) 1029 (format "<%s>\n%s\n" address shortinfo))))
1019 1030
1020 (defun about-hackers (&rest ignore) 1031 (defun about-hackers (&rest ignore)
1021 (unless (about-get-buffer "*About Hackers*") 1032 (unless (about-get-buffer "*About Contributors*")
1022 (let ((title "Other Contributors to XEmacs")) 1033 (let ((title "Other Contributors to XEmacs"))
1023 (widget-insert 1034 (widget-insert
1024 (about-center title) 1035 (about-center title)
1025 (about-with-face title 'bold))) 1036 (about-with-face title 'bold)))
1026 (widget-insert 1037 (widget-insert
1181 (about-show-linked-info 'jason "\ 1192 (about-show-linked-info 'jason "\
1182 Beta tester and manager of the various XEmacs mailing lists. 1193 Beta tester and manager of the various XEmacs mailing lists.
1183 Originator and maintainer of the gnus.org domain.\n") 1194 Originator and maintainer of the gnus.org domain.\n")
1184 (about-show-linked-info 'jmiller "\ 1195 (about-show-linked-info 'jmiller "\
1185 Beta tester and last hacker of calendar.\n") 1196 Beta tester and last hacker of calendar.\n")
1197 (about-show-linked-info 'chr "\
1198 Maintainer of the XEmacs FAQ and proud author of `zap-up-to-char'.\n")
1186 (flet ((print-short (name addr &optional shortinfo) 1199 (flet ((print-short (name addr &optional shortinfo)
1187 (concat (about-with-face name 'italic) 1200 (concat (about-with-face name 'italic)
1188 (about-tabs name) 1201 (about-tabs name)
1189 "<" addr ">\n" 1202 "<" addr ">\n"
1190 (if shortinfo (concat shortinfo "\n") "")))) 1203 (if shortinfo (concat shortinfo "\n") ""))))
1367 (print-short "Peter Skov Knudsen" "knu@dde.dk") 1380 (print-short "Peter Skov Knudsen" "knu@dde.dk")
1368 (print-short "Jens Krinke" "krinke@ips.cs.tu-bs.de") 1381 (print-short "Jens Krinke" "krinke@ips.cs.tu-bs.de")
1369 (print-short "Maximilien Lincourt" "max@toonboom.com") 1382 (print-short "Maximilien Lincourt" "max@toonboom.com")
1370 (print-short "Mats Larsson" "Mats.Larsson@uab.ericsson.se") 1383 (print-short "Mats Larsson" "Mats.Larsson@uab.ericsson.se")
1371 (print-short "Simon Leinen" "simon@instrumatic.ch") 1384 (print-short "Simon Leinen" "simon@instrumatic.ch")
1372 (print-short "Carsten Leonhardt" "leo@arioch.tng.oche.de") 1385 (print-short "Carsten Leonhardt" "leo@arioch.oche.de")
1373 (print-short "James LewisMoss" "moss@cs.sc.edu") 1386 (print-short "James LewisMoss" "moss@cs.sc.edu")
1374 (print-short "Mats Lidell" "mats.lidell@contactor.se") 1387 (print-short "Mats Lidell" "mats.lidell@contactor.se")
1375 (print-short "Matt Liggett" "mliggett@seven.ucs.indiana.edu") 1388 (print-short "Matt Liggett" "mliggett@seven.ucs.indiana.edu")
1376 (print-short "Christian Limpach" "Christian.Limpach@nice.ch") 1389 (print-short "Christian Limpach" "Christian.Limpach@nice.ch")
1377 (print-short "Maximilien Lincourt" "max@toonboom.com") 1390 (print-short "Maximilien Lincourt" "max@toonboom.com")
1405 (print-short "Casey Nielson" "knielson@joule.elee.calpoly.edu") 1418 (print-short "Casey Nielson" "knielson@joule.elee.calpoly.edu")
1406 (print-short "Georg Nikodym" "Georg.Nikodym@canada.sun.com") 1419 (print-short "Georg Nikodym" "Georg.Nikodym@canada.sun.com")
1407 (print-short "Andy Norman" "ange@hplb.hpl.hp.com") 1420 (print-short "Andy Norman" "ange@hplb.hpl.hp.com")
1408 (print-short "Joe Nuspl" "nuspl@sequent.com") 1421 (print-short "Joe Nuspl" "nuspl@sequent.com")
1409 (print-short "Kim Nyberg" "kny@tekla.fi") 1422 (print-short "Kim Nyberg" "kny@tekla.fi")
1410 (print-short "Christian Nybø" "chr@mediascience.no")
1411 (print-short "Kevin Oberman" "oberman@es.net") 1423 (print-short "Kevin Oberman" "oberman@es.net")
1412 (print-short "David Ofelt" "ofelt@getalife.Stanford.EDU") 1424 (print-short "David Ofelt" "ofelt@getalife.Stanford.EDU")
1413 (print-short "Alexandre Oliva" "oliva@dcc.unicamp.br") 1425 (print-short "Alexandre Oliva" "oliva@dcc.unicamp.br")
1414 (print-short "Tore Olsen" "toreo@colargol.idb.hist.no") 1426 (print-short "Tore Olsen" "toreo@colargol.idb.hist.no")
1415 (print-short "Greg Onufer" "Greg.Onufer@eng.sun.com") 1427 (print-short "Greg Onufer" "Greg.Onufer@eng.sun.com")
1444 (print-short "Darrel Schneider" "darrel@slc.com") 1456 (print-short "Darrel Schneider" "darrel@slc.com")
1445 (print-short "Hayden Schultz" "haydens@ll.mit.edu") 1457 (print-short "Hayden Schultz" "haydens@ll.mit.edu")
1446 (print-short "Cotton Seed" "cottons@cybercom.net") 1458 (print-short "Cotton Seed" "cottons@cybercom.net")
1447 (print-short "Axel Seibert" "seiberta@informatik.tu-muenchen.de") 1459 (print-short "Axel Seibert" "seiberta@informatik.tu-muenchen.de")
1448 (print-short "Odd-Magne Sekkingstad" "oddms@ii.uib.no") 1460 (print-short "Odd-Magne Sekkingstad" "oddms@ii.uib.no")
1461 (print-short "Gregory Neil Shapiro" "gshapiro@sendmail.org")
1449 (print-short "Justin Sheehy" "justin@linus.mitre.org") 1462 (print-short "Justin Sheehy" "justin@linus.mitre.org")
1450 (print-short "John Shen" "zfs60@cas.org") 1463 (print-short "John Shen" "zfs60@cas.org")
1451 (print-short "Murata Shuuichirou" "mrt@mickey.ai.kyutech.ac.jp") 1464 (print-short "Murata Shuuichirou" "mrt@mickey.ai.kyutech.ac.jp")
1452 (print-short "Matt Simmons" "simmonmt@acm.org") 1465 (print-short "Matt Simmons" "simmonmt@acm.org")
1453 (print-short "Dinesh Somasekhar" "somasekh@ecn.purdue.edu") 1466 (print-short "Dinesh Somasekhar" "somasekh@ecn.purdue.edu")