comparison lisp/prim/about.el @ 175:2d532a89d707 r20-3b14

Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 85ec50267440
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
62 (dmoore "David Moore" "dmoore@ucsd.edu") 62 (dmoore "David Moore" "dmoore@ucsd.edu")
63 (hniksic "Hrvoje Niksic" "hniksic@srce.hr") 63 (hniksic "Hrvoje Niksic" "hniksic@srce.hr")
64 (jareth "Jareth Hein" "jhod@po.iijnet.or.jp") 64 (jareth "Jareth Hein" "jhod@po.iijnet.or.jp")
65 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de") 65 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de")
66 (jwz "Jamie Zawinski" "jwz@netscape.com") 66 (jwz "Jamie Zawinski" "jwz@netscape.com")
67 (kazz "IENAGA Kazuyuki" "ienaga@jsys.co.jp")
67 (kyle "Kyle Jones" "kyle_jones@wonderworks.com") 68 (kyle "Kyle Jones" "kyle_jones@wonderworks.com")
68 (larsi "Lars Magne Ingebrigtsen" "larsi@gnus.org") 69 (larsi "Lars Magne Ingebrigtsen" "larsi@gnus.org")
69 (mly "Richard Mlynarik" "mly@adoc.xerox.com") 70 (mly "Richard Mlynarik" "mly@adoc.xerox.com")
70 (morioka "MORIOKA Tomohiko" "morioka@jaist.ac.jp") 71 (morioka "MORIOKA Tomohiko" "morioka@jaist.ac.jp")
71 (mrb "Martin Buchholz" "mrb@sun.eng.com") 72 (mrb "Martin Buchholz" "mrb@sun.eng.com")
72 (piper "Andy Piper" "andy@parallax.co.uk") 73 (piper "Andy Piper" "andy@parallax.co.uk")
73 (shelton "Vin Shelton" "acs@acm.org") 74 (shelton "Vin Shelton" "acs@acm.org")
74 (sperber "Michael Sperber" "sperber@informatik.uni-tuebingen.de") 75 (sperber "Michael Sperber" "sperber@informatik.uni-tuebingen.de")
75 (steve "Steve Baur" "steve@xemacs.org") 76 (slb "SL Baur" "steve@xemacs.org")
76 (stig "Jonathan Stigelman" "stig@hackvan.com") 77 (stig "Jonathan Stigelman" "stig@hackvan.com")
77 (thiessel "Marcus Thiessel" "thiessel@rhrk.uni-kl.de") 78 (thiessel "Marcus Thiessel" "thiessel@rhrk.uni-kl.de")
78 (vladimir "Vladimir Ivanovic" "vladimir@mri.com") 79 (vladimir "Vladimir Ivanovic" "vladimir@mri.com")
79 (wing "Ben Wing" "wing@xemacs.org") 80 (wing "Ben Wing" "wing@xemacs.org")
80 (wmperry "William Perry" "wmperry@aventail.com")) 81 (wmperry "William Perry" "wmperry@aventail.com"))
88 (altrasoft . "http://www.altrasoft.com/") 89 (altrasoft . "http://www.altrasoft.com/")
89 (baw . "http://www.python.org/~bwarsaw/") 90 (baw . "http://www.python.org/~bwarsaw/")
90 (cc-mode . "http://www.python.org/ftp/emacs/") 91 (cc-mode . "http://www.python.org/ftp/emacs/")
91 (dmoore . "http://oj.egbt.org/dmoore/") 92 (dmoore . "http://oj.egbt.org/dmoore/")
92 (jwz . "http://www.netscape.com/people/jwz/") 93 (jwz . "http://www.netscape.com/people/jwz/")
94 (kazz . "http://www.imasy.or.jp/~kazz/")
93 (kyle . "http://www.wonderworks.com/kyle/") 95 (kyle . "http://www.wonderworks.com/kyle/")
94 (larsi . "http://www.ifi.uio.no/~larsi/") 96 (larsi . "http://www.ifi.uio.no/~larsi/")
95 (shelton . "http://www.upa.org/") 97 (shelton . "http://www.upa.org/")
96 (steve . "http://www.miranova.com/~steve/")
97 (wget . "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/") 98 (wget . "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/")
98 (xemacs . "http://www.xemacs.org/")) 99 (xemacs . "http://www.xemacs.org/"))
99 "Some of the more important URLs.") 100 "Some of the more important URLs.")
100 101
101 (defvar about-left-margin 3) 102 (defvar about-left-margin 3)
245 :action 'about-maintainer 246 :action 'about-maintainer
246 :tag name 247 :tag name
247 :value who) 248 :value who)
248 (widget-insert (format " <%s>\n" address))))) 249 (widget-insert (format " <%s>\n" address)))))
249 ;; Setup persons responsible for this release. 250 ;; Setup persons responsible for this release.
250 (mapc 'setup-person '(steve mrb hniksic)) 251 (mapc 'setup-person '(slb mrb hniksic))
251 (widget-insert "\n\t* ") 252 (widget-insert "\n\t* ")
252 (let ((widget-link-prefix "") (widget-link-suffix "")) 253 (let ((widget-link-prefix "") (widget-link-suffix ""))
253 (widget-create 'link :help-echo "A legion of XEmacs hackers" 254 (widget-create 'link :help-echo "A legion of XEmacs hackers"
254 :action 'about-hackers 255 :action 'about-hackers
255 "And many other contributors...")) 256 "And many other contributors..."))
540 541
541 ;; Insert info about a maintainer. Add the maintainer-specific info 542 ;; Insert info about a maintainer. Add the maintainer-specific info
542 ;; here. 543 ;; here.
543 (defun about-maintainer-info (entry) 544 (defun about-maintainer-info (entry)
544 (ecase (car entry) 545 (ecase (car entry)
545 (steve 546 (slb
546 (widget-insert "\ 547 (widget-insert "\
547 Steve took over the maintenance of XEmacs in November of 1996 (it 548 I took over the maintenance of XEmacs in November of 1996 (it
548 seemed like a good idea at the time ...). In real life he is a 549 seemed like a good idea at the time ...). In real life I am a
549 network administrator and Unix systems programmer for Miranova 550 network administrator and Unix systems programmer for Calag.com,
550 Systems, Inc. 551 Inc. a small, but growing ISP in California.
551 552
552 Steve's main contributions to XEmacs have been reviving the FAQ, 553 My main contributions to XEmacs have been reviving the FAQ,
553 testing and integrating patches, tracking down and fixing bugs, and 554 testing and integrating patches, tracking down and fixing bugs, and
554 answering hundreds of questions on Usenet. 555 answering hundreds of questions on Usenet.
555 556
556 Steve has a home page at ") 557 Is that my picture? I believe I already answered that in
557 (about-url-link 'steve "Visit Steve's home page") 558 xemacs-beta-discuss ...")
558 (widget-insert ".\n")) 559 (widget-insert ".\n"))
559 (mrb 560 (mrb
560 (widget-insert "\ 561 (widget-insert "\
561 Martin is the XEmacs guy at DevPro, a part of Sun Microsystems. 562 Martin is the XEmacs guy at DevPro, a part of Sun Microsystems.
562 Martin used to do XEmacs as a `hobby' while at IBM, and was crazy 563 Martin used to do XEmacs as a `hobby' while at IBM, and was crazy
725 See ") 726 See ")
726 (about-url-link 'larsi "Visit the Larsissistic pages") 727 (about-url-link 'larsi "Visit the Larsissistic pages")
727 (widget-insert ".\n")) 728 (widget-insert ".\n"))
728 (jens 729 (jens
729 (widget-insert "\ 730 (widget-insert "\
730 Jens did the artwork for graphics added to XEmacs 20.1 and 19.15. 731 Jens did the artwork for graphics added to XEmacs 20.2 and 19.15.
731 732
732 I'm currently working at the University of Karlsruhe, Germany on 733 I'm currently working at the University of Karlsruhe, Germany on
733 getting my diploma thesis on Supersymmetry (uuh, that's physics) done. 734 getting my diploma thesis on Supersymmetry (uuh, that's physics) done.
734 After that (and all the remaining exams) I'm looking forward to make a 735 After that (and all the remaining exams) I'm looking forward to make a
735 living out of my hobbies -- computers (and graphics). But because I 736 living out of my hobbies -- computers (and graphics). But because I
811 et. al., he spends his time pursuing, among other things, a Life. 812 et. al., he spends his time pursuing, among other things, a Life.
812 Some of this currently involves doing an A-Z (by country) of 813 Some of this currently involves doing an A-Z (by country) of
813 restaurants with friends, and has, in the past, involved dyeing his 814 restaurants with friends, and has, in the past, involved dyeing his
814 hair various colours (see ") 815 hair various colours (see ")
815 (about-url-link 'ajc "Visit Andrew's home page") 816 (about-url-link 'ajc "Visit Andrew's home page")
816 (widget-insert ".\n")))) 817 (widget-insert ".\n"))
818 (kazz
819 (widget-insert "\
820 Kazz is the XEmacs lead on BSD (especially FreeBSD).
821 His main workspace is, probably, the latest stable version of
822 FreeBSD and it makes him comfortable and not.
823 His *mission* is to make XEmacs runs on FreeBSD without
824 any problem.
825
826 In real life, he is working on a PDM product based on CORBA,
827 and doing consultation, design and implemention.
828 He loves to play soccer, yes football!
829 See also:")
830 (about-url-link 'kazz "Visit Kazz's home page")
831 (widget-insert ".\n"))
832 ))
817 833
818 ;; Setup the buffer for a maintainer. 834 ;; Setup the buffer for a maintainer.
819 (defun about-maintainer (widget &optional event) 835 (defun about-maintainer (widget &optional event)
820 (let* ((entry (assq (widget-value widget) xemacs-hackers)) 836 (let* ((entry (assq (widget-value widget) xemacs-hackers))
821 (who (car entry)) 837 (who (car entry))
959 time being an Eager Young Space Cadet and fiddling with XEmacs/Gnus 975 time being an Eager Young Space Cadet and fiddling with XEmacs/Gnus
960 et. al., he spends his time pursuing, among other things, a Life. 976 et. al., he spends his time pursuing, among other things, a Life.
961 Some of this currently involves doing an A-Z (by country) of 977 Some of this currently involves doing an A-Z (by country) of
962 restaurants with friends, and has, in the past, involved dyeing his 978 restaurants with friends, and has, in the past, involved dyeing his
963 hair various colours.\n") 979 hair various colours.\n")
980 (about-show-linked-info 'kazz "\
981 IENAGA Kazuyuki is the XEmacs technical lead on BSD, particularly
982 FreeBSD.\n")
964 (flet ((print-short (name addr &optional shortinfo) 983 (flet ((print-short (name addr &optional shortinfo)
965 (concat (about-with-face name 'italic) 984 (concat (about-with-face name 'italic)
966 (about-tabs name) 985 (about-tabs name)
967 "<" addr ">\n" 986 "<" addr ">\n"
968 (if shortinfo (concat shortinfo "\n") "")))) 987 (if shortinfo (concat shortinfo "\n") ""))))
1093 (print-short "Stephan Herrmann" "sh@first.gmd.de") 1112 (print-short "Stephan Herrmann" "sh@first.gmd.de")
1094 (print-short "Charles Hines" "chuck_hines@VNET.IBM.COM") 1113 (print-short "Charles Hines" "chuck_hines@VNET.IBM.COM")
1095 (print-short "Shane Holder" "holder@rsn.hp.com") 1114 (print-short "Shane Holder" "holder@rsn.hp.com")
1096 (print-short "David Hughes" "djh@harston.cv.com") 1115 (print-short "David Hughes" "djh@harston.cv.com")
1097 (print-short "Tatsuya Ichikawa" "ichikawa@hv.epson.co.jp") 1116 (print-short "Tatsuya Ichikawa" "ichikawa@hv.epson.co.jp")
1098 (print-short "Kazuyuki IENAGA" "ienaga@jsys.co.jp")
1099 (print-short "Andrew Innes" "andrewi@harlequin.co.uk") 1117 (print-short "Andrew Innes" "andrewi@harlequin.co.uk")
1100 (print-short "Andreas Jaeger" "aj@arthur.pfalz.de") 1118 (print-short "Andreas Jaeger" "aj@arthur.rhein-neckar.de")
1101 (print-short "Markku Jarvinen" "Markku.Jarvinen@simpukka.funet.fi") 1119 (print-short "Markku Jarvinen" "Markku.Jarvinen@simpukka.funet.fi")
1102 (print-short "Robin Jeffries" "robin.jeffries@sun.com") 1120 (print-short "Robin Jeffries" "robin.jeffries@sun.com")
1103 (print-short "Philip Johnson" "johnson@uhics.ics.Hawaii.Edu") 1121 (print-short "Philip Johnson" "johnson@uhics.ics.Hawaii.Edu")
1104 (print-short "J. Kean Johnston" "jkj@paradigm-sa.com") 1122 (print-short "J. Kean Johnston" "jkj@paradigm-sa.com")
1105 (print-short "Andreas Kaempf" "andreas@sccon.com") 1123 (print-short "Andreas Kaempf" "andreas@sccon.com")