PageRenderTime 64ms CodeModel.GetById 24ms RepoModel.GetById 0ms app.codeStats 1ms

/lisp/about.el

https://bitbucket.org/mmu_man/xemacs
Lisp | 2262 lines | 2026 code | 130 blank | 106 comment | 121 complexity | 093f6d0f892c78a01a996cb714ed012b MD5 | raw file
Possible License(s): GPL-3.0, BSD-3-Clause

Large files files are truncated, but you can click here to view the full file

  1. ;;; about.el --- the About The Authors page (shameless self promotion).
  2. ;; Copyright (c) 1997, 2005 Free Software Foundation, Inc.
  3. ;; Copyright (C) 2001, 2005 Ben Wing.
  4. ;; Keywords: extensions
  5. ;; Version: 2.5
  6. ;; Maintainer: XEmacs Development Team
  7. ;; This file is part of XEmacs.
  8. ;; XEmacs is free software: you can redistribute it and/or modify it
  9. ;; under the terms of the GNU General Public License as published by the
  10. ;; Free Software Foundation, either version 3 of the License, or (at your
  11. ;; option) any later version.
  12. ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
  13. ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14. ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
  15. ;; for more details.
  16. ;; You should have received a copy of the GNU General Public License
  17. ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
  18. ;;; Synched up with: Not in FSF.
  19. ;; Original code: Jamie Zawinski <jwz@jwz.org>
  20. ;; Text: Ben Wing <ben@xemacs.org>, Jamie Zawinski <jwz@jwz.org>
  21. ;; Hard: Amiga 1000, Progressive Peripherals Frame Grabber.
  22. ;; Soft: FG 2.0, DigiPaint 3.0, pbmplus (dec 91), xv 3.0.
  23. ;; Modified for 19.11 by Eduardo Pelegri-Llopart <pelegri@eng.sun.com>
  24. ;; and Chuck Thompson <cthomp@xemacs.org>
  25. ;; More hacking for 19.12 by Chuck Thompson and Ben Wing.
  26. ;; 19.13 and 19.14 updating done by Chuck Thompson.
  27. ;; 19.15 and 20.0 updating done by Steve Baur and Martin Buchholz.
  28. ;; Completely rewritten for 20.3 by Hrvoje Niksic <hniksic@xemacs.org>.
  29. ;; The original had no version numbers; I numbered the rewrite as 2.0.
  30. ;; Extensively revamped and most text rewritten by Ben Wing
  31. ;; <ben@xemacs.org> for 21.4.
  32. ;; Many things in this file are to gag. Ideally, we should just use
  33. ;; HTML (or some other extension, e.g. info) for this sort of thing.
  34. ;; However, W3 loads too long and is too large to be dumped with
  35. ;; XEmacs.
  36. ;; If you think this is ugly now -- o boy, you should have seen it
  37. ;; before.
  38. (require 'wid-edit)
  39. ;; People in this list have their individual links from the main page,
  40. ;; or from the `Legion' page. If they have an image, it should be
  41. ;; named after the CAR of the list element (baw -> baw.png).
  42. ;;
  43. ;; If you add to this list, you'll want to update
  44. ;; `about-personal-info' and `about-hackers', and add the name to one
  45. ;; of the three mutually exclusive lists just below.
  46. (defface about-headline-face
  47. '((((class color) (background dark))
  48. (:foreground "red" :bold t))
  49. ;; red4 is hardly different from black on windows.
  50. (((class color) (background light)
  51. (type mswindows))
  52. (:foreground "red" :bold t))
  53. (((class color) (background light))
  54. (:foreground "red4" :bold t))
  55. (((class grayscale) (background light))
  56. (:foreground "LightGray" :bold t))
  57. (((class grayscale) (background dark))
  58. (:foreground "DimGray" :bold t))
  59. (t (:bold t)))
  60. "Face used for color-highlighted headlines in the About page.")
  61. (defface about-link-face
  62. '((((class color) (background dark))
  63. (:foreground "blue" :underline t))
  64. ;; blue4 is hardly different from black on windows.
  65. (((class color) (background light) (type mswindows))
  66. (:foreground "blue3" :underline t))
  67. (((class color) (background light))
  68. (:foreground "blue4" :underline t))
  69. (((class grayscale) (background light))
  70. (:foreground "DimGray" :bold t :italic t :underline t))
  71. (((class grayscale) (background dark))
  72. (:foreground "LightGray" :bold t :italic t :underline t))
  73. (t (:underline t)))
  74. "Face used for links in the About page.")
  75. (defvar xemacs-hackers
  76. '(
  77. ;; to sort the stuff below, use M-x sort-regexp-fields RET
  78. ;; ^.*$ RET (\([a-z]*\) RET
  79. (adrian "Adrian Aichner" "adrian@xemacs.org")
  80. (aidan "Aidan Kehoe" "aidan@xemacs.org")
  81. (aj "Andreas Jaeger" "aj@xemacs.org")
  82. (ajc "Andrew Cosgriff" "ajc@xemacs.org")
  83. (alastair "Alastair Houghton" "alastair@xemacs.org")
  84. (alexm "Alexey Mahotkin" "alexm@xemacs.org")
  85. (baw "Barry Warsaw" "bwarsaw@xemacs.org")
  86. (ben "Ben Wing" "ben@xemacs.org")
  87. (bw "Bob Weiner" "weiner@xemacs.org")
  88. (cgw "Charles Waldman" "cgw@xemacs.org")
  89. (chr "Christian Nybř" "chr@xemacs.org")
  90. (craig "Craig Lanning" "craig@xemacs.org")
  91. (cthomp "Chuck Thompson" "cthomp@xemacs.org")
  92. (daiki "Daiki Ueno" "daiki@xemacs.org")
  93. (dan "Dan Holmsand" "dan@xemacs.org")
  94. (darrylo "Darryl Okahata" "darrylo@xemacs.org")
  95. (devin "Matthieu Devin" "devin@xemacs.org")
  96. (dkindred "Darrell Kindred" "dkindred@xemacs.org")
  97. (dmoore "David Moore" "dmoore@xemacs.org")
  98. (didier "Didier Verna" "didier@xemacs.org")
  99. (eb "Eric Benson" "eb@xemacs.org")
  100. (fabrice "Fabrice Popineau" "fabrice@xemacs.org")
  101. (golubev "Ilya Golubev" "golubev@xemacs.org")
  102. (gunnar "Gunnar Evermann" "gunnar@xemacs.org")
  103. (hbs "Harlan Sexton" "hbs@xemacs.org")
  104. (hisashi "Hisashi Miyashita" "hisashi@xemacs.org")
  105. (hmuller "Hans Muller" "hmuller@xemacs.org")
  106. (hniksic "Hrvoje Niksic" "hniksic@xemacs.org")
  107. (hobley "David hobley" "hobley@xemacs.org")
  108. (james "Jerry James" "james@xemacs.org")
  109. (jan "Jan Vroonhof" "jan@xemacs.org")
  110. (jareth "Jareth Hein" "jareth@xemacs.org")
  111. (jas "Simon Josefsson" "simon@xemacs.org")
  112. (jason "Jason R. Mastaler" "jason@xemacs.org")
  113. (jens "Jens Lautenbacher" "jens@xemacs.org")
  114. (jmiller "Jeff Miller" "jmiller@xemacs.org")
  115. (jonathan "Jonathan Harris" "jonathan@xemacs.org")
  116. (juhp "Jens-Ulrik Holger Petersen" "petersen@xemacs.org")
  117. (jwz "Jamie Zawinski" "jwz@xemacs.org")
  118. (kazz "IENAGA Kazuyuki" "ienaga@xemacs.org")
  119. (kirill "Kirill Katsnelson" "kirill@xemacs.org")
  120. (kyle "Kyle Jones" "kyle@xemacs.org")
  121. (larsi "Lars Magne Ingebrigtsen" "larsi@xemacs.org")
  122. (marcpa "Marc Paquette" "marcpa@xemacs.org")
  123. (martin "Martin Buchholz" "martin@xemacs.org")
  124. (mcook "Michael R. Cook" "mcook@xemacs.org")
  125. (mly "Richard Mlynarik" "mly@xemacs.org")
  126. (morioka "MORIOKA Tomohiko" "morioka@xemacs.org")
  127. (mta "Mike Alexander" "mta@xemacs.org")
  128. (ograf "Oliver Graf" "ograf@xemacs.org")
  129. (olivier "Olivier Galibert" "olivier@xemacs.org")
  130. (oscar "Oscar Figueiredo" "oscar@xemacs.org")
  131. (pelegri "Eduardo Pelegri-Llopart" "pelegri@xemacs.org")
  132. (pez "Peter Pezaris" "pez@xemacs.org")
  133. (piper "Andy Piper" "andy@xemacs.org")
  134. (pittman "Daniel Pittman" "pittman@xemacs.org")
  135. (purvis "Malcolm Purvis" "malcolmp@xemacs.org")
  136. (rickc "Rick Campbell" "rickc@xemacs.org")
  137. (rose "John Rose" "rose@xemacs.org")
  138. (rossini "Anthony Rossini" "rossini@xemacs.org")
  139. (scop "Ville Skyttä" "scop@xemacs.org")
  140. (slb "Steve Baur" "steve@xemacs.org")
  141. (sperber "Michael Sperber" "mike@xemacs.org")
  142. (stig "Jonathan Stigelman" "stig@xemacs.org")
  143. (stigb "Stig Bjorlykke" "stigb@xemacs.org")
  144. (thiessel "Marcus Thiessel" "marcus@xemacs.org")
  145. (tomonori "Tomonori Ikeyama" "tomonori@xemacs.org")
  146. (tuck "Matt Tucker" "tuck@xemacs.org")
  147. (turnbull "Stephen Turnbull" "stephen@xemacs.org")
  148. (vin "Vin Shelton" "acs@xemacs.org")
  149. (viteno "Norbert Koch" "viteno@xemacs.org")
  150. (vladimir "Vladimir Ivanovic" "vladimir@xemacs.org")
  151. (wmperry "William Perry" "wmperry@xemacs.org")
  152. (yoshiki "Yoshiki Hayashi" "yoshiki@xemacs.org")
  153. )
  154. "Alist of XEmacs hackers.")
  155. (defvar about-current-release-maintainers
  156. ;; this list should not necessarily be in sorted order.
  157. '(adrian james piper purvis sperber turnbull vin viteno))
  158. (defvar about-other-current-hackers
  159. ;; to sort this list or the one below, use:
  160. ;; M-x sort-regexp-fields RET [a-z]+ RET \(.*\) RET
  161. '(ben daiki darrylo didier fabrice golubev hniksic jan jason jmiller
  162. jonathan kazz kirill larsi martin morioka mta ograf olivier oscar rossini
  163. pittman scop tomonori tuck wmperry yoshiki))
  164. (defvar about-once-and-future-hackers
  165. '(aj ajc alastair baw bw cgw chr craig cthomp dan devin dkindred dmoore eb
  166. gunnar hbs hisashi hmuller hobley jareth jas jens juhp jwz kyle marcpa
  167. mcook mly ograf pelegri pez rickc rose slb stig stigb thiessel vladimir))
  168. ;; The CAR of alist elements is a valid argument to `about-url-link'.
  169. ;; It is preferred to a simple string, because it makes maintenance
  170. ;; easier. Please add new URLs to this list.
  171. (defvar about-url-alist
  172. ;; to sort the stuff below, use M-x sort-regexp-fields RET
  173. ;; ^.*$ RET (\([a-z]*\) RET
  174. '((ajc . "http://www-personal.monash.edu.au/~ajc/")
  175. (alastair . "http://website.lineone.net/~ajhoughton/")
  176. (baw . "http://barry.wooz.org/")
  177. (ben . "http://www.666.com/ben/")
  178. (ben-xemacs . "http://www.xemacs.org/Architecting-XEmacs/index.html")
  179. (beopen . "http://www.beopen.com/")
  180. (cc-mode . "http://cc-mode.sourceforge.net/")
  181. (chr . "http://www.xemacs.org/faq/")
  182. (daiki . "http://deisui.bug.org/diary/servlet/view")
  183. (dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html")
  184. (dmoore . "http://oj.egbt.org/dmoore/")
  185. (didier . "http://didier.lrde.org/")
  186. (dvljazz . "http://www.didierverna.com/")
  187. (fabrice . "http://www.ese-metz.fr/~popineau/")
  188. (fptex . "http://www.fptex.org/")
  189. (james . "http://www.cs.usu.edu/~jerry/")
  190. (jas . "http://josefsson.org/")
  191. (jason . "http://www.mastaler.com/")
  192. (juhp . "http://www.01.246.ne.jp/~juhp/")
  193. (jwz . "http://www.jwz.org/")
  194. (kazz . "http://www.imasy.or.jp/~kazz/")
  195. (kyle . "http://www.wonderworks.com/kyle/")
  196. (larsi . "http://quimby.gnus.org/lmi/")
  197. (marcpa . "http://www.positron911.com/products/power.htm")
  198. (ograf . "http://www.fga.de/~ograf/")
  199. (pez . "http://cbs.sportsline.com/")
  200. (piper . "http://www.andypiper.com/")
  201. (rossini . "http://faculty.washington.edu/rossini/")
  202. (stigb . "http://www.tihlde.hist.no/~stigb/")
  203. (turnbull . "http://turnbull.sk.tsukuba.ac.jp/yaseppochi-gumi.html")
  204. (vin . "http://www.upa.org/")
  205. (vladimir . "http://www.leonora.org/~vladimir/")
  206. (wget . "http://sunsite.dk/wget/")
  207. (xemacs . "http://www.xemacs.org/")
  208. (xemacs-cvs . "http://cvs.xemacs.org/")
  209. (xemacs-lists . "http://www.xemacs.org/Lists/"))
  210. "Some of the more important URLs.")
  211. (defvar about-left-margin 3)
  212. (defun about-lookup-url (name)
  213. (let ((result (cdr (assq name about-url-alist))))
  214. (assert result)
  215. result))
  216. ;; Insert a URL link in the buffer. TEXT-TO-INSERT is the text that will
  217. ;; be hyperlinked; if omitted, the URL is used. HELP-ECHO is some text that
  218. ;; will be displayed when the mouse moves over the link.
  219. (defun about-url-link (url &optional text-to-insert help-echo)
  220. (assert url)
  221. (when (symbolp url)
  222. (setq url (about-lookup-url url)))
  223. (when (and text-to-insert (symbolp text-to-insert))
  224. (setq text-to-insert (about-lookup-url text-to-insert)))
  225. (widget-create 'url-link
  226. :button-prefix ""
  227. :button-suffix ""
  228. :help-echo help-echo
  229. :tag (or text-to-insert url)
  230. url))
  231. ;; Insert a mail link in the buffer.
  232. (defun about-mailto-link (address)
  233. (lexical-let ((address address))
  234. (widget-create 'link
  235. :tag address
  236. :button-prefix ""
  237. :button-suffix ""
  238. :action (lambda (widget &optional event)
  239. (compose-mail address))
  240. :help-echo (format "Send mail to %s" address))))
  241. ;; Attach a face to a string, in order to be inserted into the buffer.
  242. ;; Make sure that the extent is duplicable, but unique. Returns the
  243. ;; string.
  244. (defun about-with-face (string face)
  245. (let ((ext (make-extent 0 (length string) string)))
  246. (set-extent-property ext 'duplicable t)
  247. (set-extent-property ext 'unique t)
  248. (set-extent-property ext 'start-open t)
  249. (set-extent-property ext 'end-open t)
  250. (set-extent-face ext face))
  251. string)
  252. ;; Switch to buffer NAME. If it doesn't exist, make it and switch to it.
  253. (defun about-get-buffer (name)
  254. (cond ((get-buffer name)
  255. (switch-to-buffer name)
  256. (delete-other-windows)
  257. (goto-char (point-min))
  258. name)
  259. (t
  260. (switch-to-buffer name)
  261. (delete-other-windows)
  262. (buffer-disable-undo)
  263. ;; #### This is a temporary fix until wid-edit gets fixed right.
  264. ;; We don't do everything that widget-button-click does -- i.e.
  265. ;; we don't change the link color on button down -- but that's
  266. ;; not important.
  267. (add-local-hook
  268. 'mouse-track-click-hook
  269. #'(lambda (event count)
  270. (cond
  271. ((widget-event-point event)
  272. (let* ((pos (widget-event-point event))
  273. (button (get-char-property pos 'button)))
  274. (when button
  275. (widget-apply-action button event)
  276. t))))))
  277. (set-specifier left-margin-width about-left-margin (current-buffer))
  278. (set (make-local-variable 'widget-button-face) 'about-link-face)
  279. nil)))
  280. ;; Set up the stuff needed by widget. Allowed types are `bury' and
  281. ;; `kill'. The reason why we offer both types is performance: when a
  282. ;; large buffer is merely buried, `about' will find it again when the
  283. ;; user requests it, instead of recreating it. Small buffers can be
  284. ;; killed because it is cheap to generate their contents.
  285. (defun about-finish-buffer (&optional type)
  286. (or type (setq type 'bury))
  287. (widget-insert "\n")
  288. (if (eq type 'bury)
  289. (widget-create 'link
  290. :help-echo "Bury this buffer"
  291. :action (lambda (widget event)
  292. (if event
  293. ;; For some reason,
  294. ;; (bury-buffer (event-buffer event))
  295. ;; doesn't work.
  296. (with-selected-window (event-window event)
  297. (bury-buffer))
  298. (bury-buffer)))
  299. :tag "Bury")
  300. (widget-create 'link
  301. :help-echo "Kill this buffer"
  302. :action (lambda (widget event)
  303. (if event
  304. (kill-buffer (event-buffer event))
  305. (kill-buffer (current-buffer))))
  306. :tag "Kill"))
  307. (widget-insert " this buffer and return to previous.\n")
  308. (use-local-map (make-sparse-keymap))
  309. (set-keymap-parent (current-local-map) widget-keymap)
  310. (if (eq type 'bury)
  311. (progn
  312. (local-set-key "q" 'bury-buffer)
  313. (local-set-key "l" 'bury-buffer))
  314. (let ((dispose (lambda () (interactive) (kill-buffer (current-buffer)))))
  315. (local-set-key "q" dispose)
  316. (local-set-key "l" dispose)))
  317. (local-set-key " " 'scroll-up)
  318. (local-set-key [backspace] 'scroll-down)
  319. (local-set-key "\177" 'scroll-down)
  320. (widget-setup)
  321. (goto-char (point-min))
  322. (toggle-read-only 1)
  323. (set-buffer-modified-p nil))
  324. ;; Make the appropriate number of spaces.
  325. (defun about-center (string-or-glyph)
  326. (let ((n (- (startup-center-spaces string-or-glyph) about-left-margin)))
  327. (make-string (if (natnump n) n 0) ?\ )))
  328. ;; Main entry page.
  329. ;;;###autoload
  330. (defun about-xemacs ()
  331. "Describe the True Editor and its minions."
  332. (interactive)
  333. (unless (about-get-buffer "*About XEmacs*")
  334. (widget-insert (about-center xemacs-logo))
  335. (widget-create 'default
  336. :format "%t"
  337. :tag-glyph xemacs-logo)
  338. (widget-insert "\n")
  339. (let* ((emacs-short-version
  340. (cond (emacs-beta-version (format "%d.%d.%d"
  341. emacs-major-version
  342. emacs-minor-version
  343. emacs-beta-version))
  344. (emacs-patch-level (format "%d.%d.%d"
  345. emacs-major-version
  346. emacs-minor-version
  347. emacs-patch-level))
  348. (t (format "%d.%d"
  349. emacs-major-version
  350. emacs-minor-version))))
  351. (emacs-release-date
  352. (if (and (boundp 'xemacs-release-date)
  353. (stringp xemacs-release-date)
  354. (string-match "^\\([0-9]\\{4\\}\\)-\\([0-9][0-9]\\)-"
  355. xemacs-release-date))
  356. (format "%s %s"
  357. (aref [ "January" "February" "March" "April"
  358. "May" "June" "July" "August"
  359. "September" "October" "November" "December" ]
  360. (1- (string-to-number
  361. (match-string 2 xemacs-release-date))))
  362. (match-string 1 xemacs-release-date))
  363. "February 2005 (defaulted in about.el)"))
  364. (emacs-variant-info (if (and xemacs-extra-name
  365. (stringp xemacs-extra-name)
  366. (< 0 (length xemacs-extra-name)))
  367. (format " %s" xemacs-extra-name)
  368. ""))
  369. (emacs-about-version (format "version %s of %s%s"
  370. emacs-short-version
  371. emacs-release-date
  372. emacs-variant-info)))
  373. (widget-insert (about-center emacs-about-version))
  374. (widget-create 'link :help-echo "What's new in XEmacs"
  375. :action 'about-news
  376. emacs-about-version))
  377. (widget-insert
  378. "\n\n"
  379. (about-with-face "XEmacs" 'bold-italic)
  380. " is a powerful, highly customizable open source text editor and
  381. application development system, with full GUI support. It is protected
  382. under the GNU Public License and related to other versions of Emacs, in
  383. particular GNU Emacs. Its emphasis is on modern graphical user
  384. interface support and an open software development model, similar to
  385. Linux. XEmacs has an active development community numbering in the
  386. hundreds (and thousands of active beta testers on top of this), and runs
  387. on all versions of MS Windows, on Linux, and on nearly every other
  388. version of Unix in existence. ")
  389. (widget-create 'link :help-echo "An XEmacs history lesson"
  390. :action 'about-collaboration
  391. :button-prefix ""
  392. :button-suffix ""
  393. "Support for XEmacs")
  394. (widget-insert
  395. " has been supplied by
  396. Sun Microsystems, University of Illinois, Lucid, ETL/Electrotechnical
  397. Laboratory, Amdahl Corporation, BeOpen, and others, as well as the
  398. unpaid time of a great number of individual developers.
  399. XEmacs has many ")
  400. (widget-create 'link :help-echo "See a list of XEmacs advantages over GNU Emacs"
  401. :action 'about-advantages
  402. :button-prefix ""
  403. :button-suffix ""
  404. "advantages")
  405. (widget-insert (format " over GNU Emacs. In addition, XEmacs %d.%d
  406. provides many " emacs-major-version emacs-minor-version))
  407. (widget-create 'link
  408. :help-echo (format
  409. "See a list of new features in XEmacs %d.%d"
  410. emacs-major-version emacs-minor-version)
  411. :action 'about-news
  412. :button-prefix ""
  413. :button-suffix ""
  414. "new features")
  415. (widget-insert " not found in previous versions of XEmacs.
  416. More details on XEmacs's functionality, including bundled packages, can
  417. be obtained through the ")
  418. (widget-create 'info-link
  419. :help-echo "Browse the info system"
  420. :button-prefix ""
  421. :button-suffix ""
  422. :tag "info"
  423. "(dir)")
  424. (widget-insert
  425. " on-line information system.\n
  426. The XEmacs web page can be browsed, using any WWW browser at\n
  427. \t\t ")
  428. (about-url-link 'xemacs nil "Visit XEmacs WWW page")
  429. (widget-insert "\n
  430. Note that W3 (XEmacs's own browser), might need customization (due to
  431. firewalls) in order to work correctly.
  432. XEmacs is the result of the time and effort of many people. The
  433. developers responsible for this release are:\n\n")
  434. (labels ((setup-person (who)
  435. (widget-insert "\t* ")
  436. (let* ((entry (assq who xemacs-hackers))
  437. (name (cadr entry))
  438. (address (caddr entry)))
  439. (widget-create 'link
  440. :help-echo (concat "Find out more about " name)
  441. :button-prefix ""
  442. :button-suffix ""
  443. :action 'about-maintainer
  444. :tag name
  445. :value who)
  446. (widget-insert (format " <%s>\n" address)))))
  447. ;; Setup persons responsible for this release.
  448. (mapc #'setup-person about-current-release-maintainers)
  449. (widget-insert "\n\t* ")
  450. (widget-create 'link :help-echo "A legion of XEmacs hackers"
  451. :action 'about-hackers
  452. :button-prefix ""
  453. :button-suffix ""
  454. "The full list of contributors...")
  455. (widget-insert "\n
  456. The current package release engineer is Norbert Koch.
  457. Andreas Jaeger was the first package release engineer following the split
  458. of the XEmacs code base into core implementation and packaged Lisp.
  459. He was succeeded by Steve Youngs, then Ville Skyttä.\n\n")
  460. (setup-person 'viteno)
  461. (setup-person 'aj)
  462. (setup-person 'scop)
  463. (widget-insert "
  464. Vin Shelton is the maintainer of the stable branch, 21.4.
  465. Stephen Turnbull was the project manager for the release. Andy Piper
  466. maintained the Windows branch until the release was declared stable.\n\n")
  467. (setup-person 'vin)
  468. (setup-person 'turnbull)
  469. (setup-person 'piper)
  470. (widget-insert "
  471. Ben Wing and Martin Buchholz were heavy code contributors and maintainers
  472. for 21.2 (the development branch leading to 21.4).\n\n")
  473. (setup-person 'martin)
  474. (setup-person 'ben)
  475. (widget-insert "
  476. Steve Baur was the primary maintainer for 19.15 through 21.0.\n\n")
  477. (setup-person 'slb)
  478. (widget-insert "
  479. Chuck Thompson and Ben Wing were the maintainers for 19.11 through 19.14
  480. and heavy code contributors for 19.8 through 19.10.\n\n")
  481. (setup-person 'cthomp)
  482. (setup-person 'ben)
  483. (widget-insert "
  484. Jamie Zawinski was the maintainer for 19.0 through 19.10 (the entire
  485. history of Lucid Emacs).\n\n")
  486. (setup-person 'jwz))
  487. (about-finish-buffer)
  488. ;; it looks horrible with the cursor on the first line, since it's
  489. ;; so big.
  490. (goto-line 2)))
  491. ;; View news
  492. (defun about-news (&rest ignore)
  493. (view-emacs-news)
  494. (message "%s" (substitute-command-keys
  495. "Press \\[kill-buffer] to exit this buffer")))
  496. (defun about-collaboration (&rest ignore)
  497. (unless (about-get-buffer "*About Collaboration*")
  498. (let ((title "Why Another Version of Emacs"))
  499. (widget-insert
  500. "\n"
  501. (about-center title)
  502. (about-with-face title 'bold)))
  503. (widget-insert
  504. "\n\n"
  505. (about-with-face "The Lucid, Inc. Point of View"
  506. 'italic)
  507. " (quite outdated)\n
  508. At the time of the inception of Lucid Emacs (the former name of
  509. XEmacs), Lucid's latest product was Energize, a C/C++ development
  510. environment. Rather than invent (and force our users to learn) a new
  511. user interface, we chose to build part of our environment on top of
  512. the world's best editor, GNU Emacs. (Though our product is
  513. commercial, the work we did on GNU Emacs is free software, and is
  514. useful in its own right.)
  515. We needed a version of Emacs with mouse-sensitive regions, multiple
  516. fonts, the ability to mark sections of a buffer as read-only, the
  517. ability to detect which parts of a buffer have been modified, and many
  518. other features.
  519. For our purposes, the existing version of Epoch was not sufficient; it
  520. did not allow us to put arbitrary pixmaps/icons in buffers, `undo' did
  521. not restore changes to regions, regions did not overlap and merge
  522. their attributes in the way we needed, and several other things.
  523. We could have devoted our time to making Epoch do what we needed (and,
  524. in fact, we spent some time doing that in 1990) but, since the FSF
  525. planned to include Epoch-like features in their version 19, we decided
  526. that our efforts would be better spent improving Emacs 19 instead of
  527. Epoch.
  528. Our original hope was that our changes to Emacs would be incorporated
  529. into the \"official\" v19. However, scheduling conflicts arose, and
  530. we found that, given the amount of work still remaining to be done, we
  531. didn't have the time or manpower to do the level of coordination that
  532. would be necessary to get our changes accepted by the FSF.
  533. Consequently, we released our work as a forked branch of Emacs,
  534. instead of delaying any longer.
  535. Roughly a year after Lucid Emacs 19.0 was released, a beta version of
  536. the FSF branch of Emacs 19 was released. The FSF version is better in
  537. some areas, and worse in others, as reflects the differing focus of
  538. our development efforts.
  539. We plan to continue developing and supporting Lucid Emacs, and merging
  540. in bug fixes and new features from the FSF branch as appropriate; we
  541. do not plan to discard any of the functionality that we implemented
  542. which RMS has chosen not to include in his version.
  543. Certain elements of Lucid Emacs, or derivatives of them, have been
  544. ported to the FSF version. We have not been doing work in this
  545. direction, because we feel that Lucid Emacs has a cleaner and more
  546. extensible substrate, and that any kind of merger between the two
  547. branches would be far easier by merging the FSF changes into our
  548. version than the other way around.
  549. We have been working closely with the Epoch developers to merge in the
  550. remaining Epoch functionality which Lucid Emacs does not yet have.
  551. Epoch and Lucid Emacs will soon be one and the same thing. Work is
  552. being done on a compatibility package which will allow Epoch 4 code to
  553. run in XEmacs with little or no change.\n\n"
  554. (about-with-face "The Sun Microsystems, Inc. Point of View"
  555. 'italic)
  556. "\n
  557. Emacs 18 has been around for a long, long time. Version 19 was
  558. supposed to be the successor to v18 with X support. It was going to
  559. be available \"real soon\" for a long time (some people remember
  560. hearing about v19 as early as 1984!), but it never came out. v19
  561. development was going very, very slowly, and from the outside it
  562. seemed that it was not moving at all. In the meantime other people
  563. gave up waiting for v19 and decided to build their own X-aware
  564. Emacsen. The most important of these was probably Epoch, which came
  565. from the University of Illinois (\"UofI\") and was based on v18.
  566. Around 1990, the Developer Products group within Sun Microsystems
  567. Inc., decided that it wanted an integrated editor. (This group is now
  568. known as DevPro. It used to be known as SunPro - the name was changed
  569. in mid-1994.) They contracted with the University of Illinois to
  570. provide a number of basic enhancements to the functionality in Epoch.
  571. UofI initially was planning to deliver this on top of Epoch code.
  572. In the meantime, (actually some time before they talked with UofI)
  573. Lucid had decided that it also wanted to provide an integrated
  574. environment with an integrated editor. Lucid decided that the Version
  575. 19 base was a better one than Version 18 and thus decided not to use
  576. Epoch but instead to work with Richard Stallman, the head of the Free
  577. Software Foundation and principal author of Emacs, on getting v19 out.
  578. At some point Stallman and Lucid parted ways. Lucid kept working and
  579. got a v19 out that they called Lucid Emacs 19.
  580. After Lucid's v19 came out it became clear to us (the UofI and Sun)
  581. that the right thing to do was to push for an integration of both
  582. Lucid Emacs and Epoch, and to get the deliverables that Sun was asking
  583. from the University of Illinois on top of this integrated platform.
  584. Until 1994, Sun and Lucid both actively supported XEmacs as part of
  585. their product suite and invested a comparable amount of effort into
  586. it. Substantial portions of the current code have originated under
  587. the support of Sun, either directly within Sun, or at UofI but paid
  588. for by Sun. This code was kept away from Lucid for a while, but later
  589. was made available to them. Initially Lucid didn't know that Sun was
  590. supporting UofI, but later Sun was open about it.
  591. Around 1992 DevPro-originated code started showing up in Lucid Emacs,
  592. starting with the infusion of the Epoch redisplay code. The separate
  593. code bases at Lucid, Sun, and the University of Illinois were merged,
  594. allowing a single XEmacs to evolve from that point on.
  595. Sun originally called the integrated product ERA, for \"Emacs
  596. Rewritten Again\". SunPro and Lucid eventually came to an agreement
  597. to find a name for the product that was not specific to either
  598. company. An additional constraint that Lucid placed on the name was
  599. that it must contain the word \"Emacs\" in it -- thus \"ERA\" was not
  600. acceptable. The tentatively agreed-upon name was \"XEmacs\", and this
  601. has been the name of the program since version 19.11.)
  602. As of 1997, Sun is shipping XEmacs as part of its Developer Products
  603. integrated programming environment \"Sun WorkShop\". Sun is
  604. continuing to support XEmacs development, with focus on
  605. internationalization and quality improvement.\n\n"
  606. (about-with-face "Lucid goes under" 'italic)
  607. "\n
  608. Around mid-'94, Lucid went out of business. Lucid founder Richard
  609. Gabriel's book \"Patterns of Software\", which is highly recommended
  610. reading in any case, documents the demise of Lucid and suggests
  611. lessons to be learned for the whole software development community.
  612. Development on XEmacs, however, has continued unabated under the
  613. auspices of Sun Microsystems and the University of Illinois, with help
  614. from Amdahl Corporation and INS Engineering Corporation. Sun plans to
  615. continue to support XEmacs into the future.\n\n"
  616. (about-with-face "The Amdahl Corporation point of view"
  617. 'italic)
  618. "\n
  619. Amdahl Corporation's Storage Products Group (SPG) uses XEmacs as the
  620. focal point of a environment for development of the microcode used in
  621. Amdahl's large-scale disk arrays, or DASD's. SPG has joint ventures
  622. with Japanese companies, and decided in late 1994 to contract out for
  623. work on XEmacs in order to hasten the development of Mule support
  624. \(i.e. support for Japanese, Chinese, etc.) in XEmacs and as a gesture
  625. of goodwill towards the XEmacs community for all the work they have
  626. done on making a powerful, modern, freely available text editor.
  627. Through this contract, Amdahl provided a large amount of work in
  628. XEmacs in the form of rewriting the basic text-processing mechanisms
  629. to allow for Mule support and writing a large amount of the support
  630. for multiple devices.
  631. Although Amdahl is no longer hiring a full-time contractor, they are
  632. still funding part-time work on XEmacs and providing resources for
  633. further XEmacs development.\n\n"
  634. (about-with-face "The INS Engineering point of view"
  635. 'italic)
  636. "\n
  637. INS Engineering Corporation, based in Tokyo, bought rights to sell
  638. Energize when Lucid went out of business. Unhappy with the
  639. performance of the Japanese support in XEmacs 19.11, INS also
  640. contributed to the XEmacs development from late 1994 to early
  641. 1995.\n")
  642. (about-finish-buffer)))
  643. (defun about-advantages (&rest ignore)
  644. (unless (about-get-buffer "*About Advantages*")
  645. (let ((title "XEmacs Advantages over GNU Emacs"))
  646. (widget-insert
  647. "\n"
  648. (about-center title)
  649. (about-with-face title 'bold)))
  650. (widget-insert
  651. "\n
  652. * Much better GUI support:
  653. -- a real toolbar
  654. -- more comprehensive and better-designed menubars
  655. -- horizontal and vertical scrollbars in all windows
  656. -- proper dialog boxes
  657. -- tabs for selecting buffers
  658. -- support for variable-width and variable height fonts
  659. -- support for arbitrary pixmaps and widgets in a buffer
  660. -- face support on TTY's, including color
  661. Many of these are now available in GNU Emacs 21, but the XEmacs
  662. implementations are generally more efficient, and the XEmacs APIs are
  663. generally more in line with modern programming practices.
  664. * An installable package system, with a huge number of packages available
  665. that have been tested and are known to work with the latest version
  666. of XEmacs.
  667. * Comprehensive support for the GTK toolkit.
  668. * An open development community, with contributions welcome and no need
  669. to sign over your copyright to any organization. (Please send
  670. contributions to xemacs-patches@xemacs.org. See http://www.xemacs.org
  671. for more information on XEmacs mailing lists, and other info.)
  672. * Support for display on multiple simultaneous X and/or TTY devices.
  673. * Powerful, flexible control over the display characteristics of most
  674. of the visual aspects of XEmacs through the use of specifiers, which
  675. allow separate values to be specified for individual buffers,
  676. windows, frames, devices, device classes, and device types.
  677. * A clean, modern, abstracted Lisp interface to the menubar, toolbar,
  678. window-system events, key combinations, extents (regions in a buffer
  679. with specific properties), and all other display aspects.
  680. * Proper integration with Xt and Motif (including Motif menubars and
  681. scrollbars). Motif look-alike menubars and scrollbars are provided
  682. for those systems without real Motif support.
  683. * Many improvements to the multilingual support, such as the ability to
  684. enter text for complex languages using the XIM mechanism and
  685. localization of menubar text for the Japanese locale.
  686. \n\n")
  687. (about-finish-buffer)))
  688. (defvar about-glyphs nil
  689. "Cached glyphs")
  690. ;; Return a maintainer's glyph
  691. (defun about-maintainer-glyph (who)
  692. (let ((glyph (cdr (assq who about-glyphs))))
  693. (unless glyph
  694. (let ((file (expand-file-name
  695. (concat (symbol-name who)
  696. (if (memq (device-class)
  697. '(color grayscale))
  698. "" "m")
  699. ".png")
  700. (locate-data-directory "photos")))
  701. (data nil))
  702. (setq glyph
  703. (cond ((stringp data)
  704. (make-glyph
  705. (if (featurep 'png)
  706. `([png :data ,data]
  707. [string :data "[Image]"])
  708. `([string :data "[Image]"]))))
  709. ((eq data 'error)
  710. (make-glyph [string :data "[Error]"]))
  711. (file
  712. (make-glyph
  713. (if (featurep 'png)
  714. `([png :file ,file]
  715. [string :data "[Image]"])
  716. `([string :data "[Image]"]))))
  717. (t
  718. (make-glyph [nothing]))))
  719. (set-glyph-property glyph 'baseline 100)
  720. ;; Cache the glyph
  721. (push (cons who glyph) about-glyphs)))
  722. glyph))
  723. ;; Insert personal info about a maintainer. See also
  724. ;; `about-hacker-contribution'. Note that the info in
  725. ;; `about-hacker-contribution' is automatically displayed in the
  726. ;; person's own page, so there is no need to duplicate it.
  727. (defun about-personal-info (entry)
  728. (ecase (car entry)
  729. ;; you can sort the stuff below with something like
  730. ;;(sort-regexp-fields nil
  731. ;; " *(\\([^()]\\|([^()]*)\\|(\\([^()]\\|([^()]*)\\)*)\\)*)\n"
  732. ;; " *(\\([a-z]*\\)"
  733. ;; (region-beginning) (region-end))
  734. (adrian
  735. (widget-insert
  736. "\
  737. Sorry, no personal information available about me yet.\n"))
  738. (aj
  739. (widget-insert "\
  740. I'm a software developer working for the SuSE Labs of the Linux
  741. distributor SuSE. My main task is to improve the GNU C library.")
  742. (widget-insert ".\n"))
  743. (ajc
  744. (widget-insert "\
  745. When not helping maintain the XEmacs website, Andrew is a Network
  746. Software Engineer(tm) for Monash University in Australia, maintaining
  747. webservers and doing random other things. As well as spending spare
  748. time being an Eager Young Space Cadet and fiddling with XEmacs/Gnus
  749. et. al., he spends his time pursuing, among other things, a Life.
  750. Some of this currently involves doing an A-Z (by country) of
  751. restaurants with friends, and has, in the past, involved dyeing his
  752. hair various colours (see ")
  753. (about-url-link 'ajc nil "Visit Andrew's home page")
  754. (widget-insert ".\n"))
  755. (alastair
  756. (widget-insert
  757. "\
  758. Alastair, apart from being an all-round hacker, occasional contributor
  759. to free software projects and general good egg(!), currently works for
  760. Telsis, a manufacturer of telephony equipment on the south coast of
  761. England. He'd quite like to have his own company one day, but has yet
  762. to think of that killer product...
  763. See also ")
  764. (about-url-link 'alastair nil "Visit Alastair's home page")
  765. (widget-insert ".\n"))
  766. (baw
  767. (widget-insert "\
  768. As of November 2000, I am a software engineer with the Pythonlabs at
  769. Digital Creations. Pythonlabs is the core team developing and
  770. maintaining the Python open source, object-oriented scripting
  771. language. Digital Creations is the publisher of Zope, an open source
  772. content management system written in Python.
  773. In addition to my Python and Zope work, I am lead developer for the
  774. GNU Mailman project, a mailing list management system written,
  775. naturally, in Python. See the trend?
  776. On the side I play bass with a number of Washington DC area bands and
  777. also write poems about cows, milk, and fathers. Here's a sample, and
  778. drop me an email if you live in the NYC to Charlotte region; I'll let
  779. you know when the band's playing in your area. It'd be cool to meet
  780. you, and talking about XEmacs would make my wife very happy by helping
  781. to fend off the legions of groupies that seem to follow me everywhere.
  782. Milk Me Daddy
  783. (C) 1990 Warsaw
  784. ===============
  785. Oh daddy with your fingers pink
  786. From whose udders do you drink?
  787. Thy milk offends with putrid stink
  788. I'll vomit now, lactose I think
  789. If I could dream, I'd be a cow
  790. Not horse, or mule, or barnyard sow
  791. The cud I'd chew would drip and how!
  792. So milk me daddy, milk me now!
  793. My bovine nature knows no bounds
  794. I'd naught awake at midnight sounds
  795. Of teens approaching o'er the grounds
  796. To tip with glee, then screech like clowns
  797. And so I stare into this glass
  798. Of sweaty juice, I gulp so fast
  799. Each drop I lick, down to the last
  800. The vertigo I know will pass
  801. My mother smiles and pats my head
  802. She's proud of me, so she has said
  803. My pop just now gets out of bed
  804. His eyes quite comatose and red
  805. He'll empathize my milky fate
  806. Whilest sopping gravy from his plate
  807. And as the hour is getting late
  808. His belly taut with all he ate
  809. He isn't often quite so chatty
  810. His arteries clogged with meat so fatty
  811. With burps that launch soup, thick and splatty
  812. Oh how I wish you'd milk me daddy\n\n\t")
  813. (about-url-link 'baw nil "Visit Barry's home page")
  814. (widget-insert "\n"))
  815. (ben
  816. (widget-insert
  817. "\
  818. Since September 1992, I've worked on XEmacs as a contractor for
  819. various companies and more recently as an unpaid volunteer.
  820. Alas, life has not been good to me recently. This former San Francisco
  821. \"Mission Critter\" developed insidious hand and neck problems after a
  822. brief stint working on a Java-based VRML toolkit for the now defunct
  823. Dimension X, and I was forced to quit working. I was exiled first to
  824. \"Stroller Valley\" and later all the way to Tucson, Arizona, and for two
  825. years was almost completely disabled due to pain. More recently I have
  826. fought my way back with loads and loads of narcotic painkillers, and after
  827. a stint as an art student at the University of Arizona I'm currently a
  828. Ph.D. student in linguistics at the University of Texas, Austin.\n\n")
  829. (widget-insert "Architecting XEmacs: ")
  830. (about-url-link 'ben-xemacs nil "Find the miracles in store for XEmacs")
  831. (widget-insert "\nBen's home page: ")
  832. (about-url-link 'ben nil "Visit Ben's page")
  833. (widget-insert "\n"))
  834. (bw
  835. (widget-insert "\
  836. His interests include user interfaces, information management, CASE
  837. tools, communications and enterprise integration.\n"))
  838. (cgw
  839. (widget-insert
  840. "\
  841. Sorry, no personal information available about me yet.\n"))
  842. (chr
  843. (widget-insert "\
  844. Christian is a student at the Norwegian School of Economics and
  845. Business Administration in Bergen, Norway. He used to work for an
  846. internet startup called New Media Science, doing scripting and
  847. violation of HTML DTD's. After graduation, spring 1999, he'll be
  848. looking for a job involving lisp programming, French and Russian.\n"))
  849. (craig
  850. (widget-insert
  851. "\
  852. Sorry, no personal information available about me yet.\n"))
  853. (cthomp
  854. (widget-insert "\
  855. Chuck is a senior system and network administrator for the Computer
  856. Science department at the Unversity of Illinois. In one previous life
  857. he spent every waking hour working on XEmacs. In another he dabbled
  858. as a project manager for a streaming video startup (RIP). His current
  859. reason for not having time to contribute to XEmacs is the Thompson
  860. Twins.\n"))
  861. (daiki
  862. (about-url-link 'daiki nil "Visit Daiki's page"))
  863. (dan
  864. (widget-insert
  865. "\
  866. Sorry, no personal information available about me yet.\n"))
  867. (darrylo
  868. (widget-insert
  869. "\
  870. Perennial Emacs hacker since 1986 or so, when he first started on GNU
  871. Emacs 17.something. Over the years, he's developed \"OEmacs\", the first
  872. version of GNU Emacs 19 for MSDOS, and \"bigperl\", a 32-bit version of
  873. Perl4 for MSDOS. In recent years, reality has intruded and he no longer
  874. has much time for playing with cool programs. What little time he has
  875. now goes to XEmacs hacking, where he's worked on speeding up dired under
  876. MS Windows, and to feeding his two cats.\n"))
  877. (devin
  878. (widget-insert
  879. "\
  880. Sorry, no personal information available about me yet.\n"))
  881. (dkindred
  882. (widget-insert "\
  883. Darrell is currently a doctoral student in computer science at
  884. Carnegie Mellon University, but he's trying hard to kick that
  885. habit.
  886. See ")
  887. (about-url-link 'dkindred nil "Visit Darrell's WWW page")
  888. (widget-insert ".\n"))
  889. (dmoore
  890. (widget-insert "\
  891. David is a student in the Computer Systems Laboratory at UCSD. When
  892. he manages to have free time, he usually spends it on 200 mile bicycle
  893. rides, learning German or showing people the best mail & news
  894. environment he's found in 10 years. (That'd be XEmacs, Gnus and bbdb,
  895. of course.) He can be found at `druidmuck.egbt.org 4201' at various
  896. hours of the day.
  897. He has a page at ")
  898. (about-url-link 'dmoore nil "Visit David's home page")
  899. (widget-insert ".\n"))
  900. (didier
  901. (widget-insert "\
  902. Didier has a Ph.D. in Computer Science and is currently working as an
  903. assistant professor for an engineering school in Paris). He gives
  904. lectures on Operating Systems, Computer Graphics, Functional Programming
  905. and Typesetting. His research interests include Genericity, Object
  906. Orientation and Functional Programming, all in one language:
  907. ... Common Lisp.
  908. Apart from the world of XEmacs and Emacs Lisp, Didier is also the author
  909. of several LaTeX packages (FiNK, FiXme, QCM and CurVe) and an occasional
  910. contributor to other Free Software projects (the GNU Autotools most
  911. notably; he was one of the technical reviewers for the \"Goat Book\").
  912. But all of this is only 60% true... Two days per week, Didier is indeed
  913. a semi-professional Jazz guitar player (and singer), which means that he
  914. doesn't quite earn his crust with it, but things may very well reverse in
  915. the future...\n")
  916. (widget-insert "\nVisit Didier's scientific website: ")
  917. (about-url-link 'didier nil "Visit Didier's scientific website")
  918. (widget-insert "\nVisit Didier's musical website: ")
  919. (about-url-link 'dvljazz nil "Visit Didier's musical website")
  920. (widget-insert "\n"))
  921. (eb
  922. (widget-insert
  923. "\
  924. Sorry, no personal information available about me yet.\n"))
  925. (fabrice
  926. (widget-insert
  927. "\
  928. I'm a computer science researcher and teacher in a French electrical
  929. engineering institution called Supelec. My fields of interest are
  930. symbolic artificial intelligence, theoretical computer science, functional
  931. languages ... and TeX.
  932. Lately, my hacking time has been devoted to porting the Web2C/teTeX
  933. distribution of TeX for Unix to Win32, and I'm still maintaining it.
  934. It is included in the TeX Live cdrom edited by Sebastian Rahtz.\n")
  935. (widget-insert "Visit fpTeX home page: ")
  936. (about-url-link 'fptex nil "Visit fpTeX home page")
  937. (widget-insert "\nFabrice's home page: ")
  938. (about-url-link 'fabrice nil "Visit Fabrice's page")
  939. (widget-insert "\n"))
  940. (golubev
  941. (widget-insert
  942. "\
  943. I appreciate power of XEmacs, but elementary editing operations should
  944. be done by single keystrokes with no modifiers. So would not use
  945. XEmacs until discovered viper, and now can't live without viper.
  946. Occasionally dislike something in there or in other free software, and
  947. try to get it fixed. .plan file contains classic \(perhaps reinvented
  948. independently\) formula:
  949. Hacking world for ever
  950. \(borrowed from \"Hacking X for Y\" in ")
  951. (about-url-link "http://www.jargon.org/"
  952. "Jargon File" "www.jargon.org")
  953. (widget-insert ").\n"))
  954. (gunnar
  955. (widget-insert
  956. "\
  957. Sorry, no personal information available about me yet.\n"))
  958. (hbs
  959. (widget-insert
  960. "\
  961. Sorry, no personal information available about me yet.\n"))
  962. (hisashi
  963. (widget-insert
  964. "\
  965. Sorry, no personal information available about me yet.\n"))
  966. (hmuller
  967. (widget-insert
  968. "\
  969. Sorry, no personal information available about me yet.\n"))
  970. (hniksic
  971. (widget-insert "\
  972. Hrvoje thinks he works in the server-side web business. In reality,
  973. he cranks out huge quantities of HTML, Tcl, and Java for the German
  974. branch of ")
  975. (about-url-link "http://www.arsdigita.com/"
  976. "ArsDigita, Inc." "www.arsdigita.com")
  977. ;; Avoid literal I18N characters in strings. *Displaying* a
  978. ;; Latin 1 character should always be safe, though, with or
  979. ;; without Mule.
  980. (let ((muenchen (format "M%cnchen" (make-char 'latin-iso8859-1 252))))
  981. (widget-insert (format "\
  982. He joined the ranks of Gastarbeiters only
  983. recently; he is trying to learn German and get attuned to %s
  984. and Bav^H^H^HGermany.\n" muenchen)))
  985. (widget-insert "\
  986. Before ArsDigita, he worked as a programmer at ")
  987. (about-url-link "http://www.iskon.hr/" "Iskon," "www.iskon.hr")
  988. (widget-insert " a fast-growing
  989. Croatian ISP. Even before that, he worked part-time for academic
  990. institutions like ")
  991. (about-url-link "http://www.srce.hr/" "SRCE" "www.srce.hr")
  992. (widget-insert " and ")
  993. (about-url-link "http://www.carnet.hr/" "CARNet," "www.carnet.hr")
  994. (widget-insert " and tried to attend university.
  995. He takes perverse pleasure in building and maintaining free software
  996. in his free time. Apart from XEmacs, his major contribution is ")
  997. (about-url-link 'wget "Wget," "Wget home page")
  998. (widget-insert "
  999. his very own creation, now jointly maintained by a happy crew.
  1000. He dreams of having a home page.\n"))
  1001. (hobley
  1002. (widget-insert "\
  1003. I used to do real work, but now I am a Project Manager for one of the
  1004. Telco's in Australia. In my spare time I like to get back to basics and
  1005. muck around with things. As a result I started the NT port. Hopefully I
  1006. will get to finish it sometime sooner rather than later. I do vaguely
  1007. remember University where it seems like I had more spare time that I can
  1008. believe now. Oh well, such is life.\n"))
  1009. (james
  1010. (widget-insert
  1011. "\
  1012. Jerry James was managing a software development project as a Ph.D.
  1013. student when two of his M.S. student helpers convinced him to switch
  1014. from FSF Emacs to XEmacs. He thought that Gnus looked a lot cooler in
  1015. XEmacs, and soon had a web page containing small patches to XEmacs
  1016. 20.3, which were picked up by the Debian Linux distribution.
  1017. He has since given up his native California, to join the faculty at the
  1018. University of Kansas. He is learning to like the weather in Lawrence,
  1019. Kansas, where he lives with his wife and 3 children. (Ed. note: I guess
  1020. he didn't like the weather enough; he is now teaching at Utah State
  1021. University.)
  1022. His work on XEmacs mostly consists of extensions to the loadable module
  1023. support in XEmacs, which was introduced by J. Kean Johnston and others.
  1024. He has a ")
  1025. (about-url-link 'james "home page" "Visit Jerry's home page")
  1026. (widget-insert " (doesn't everybody?)\n"))
  1027. (jan
  1028. (widget-insert "\
  1029. Jan Vroonhof has been using XEmacs since he needed to write .tex files
  1030. for his work as a physics and maths student at the Univerisity of Leiden.
  1031. His XEmacs hacking started when XEmacs kept freezing up under a his
  1032. window manager. He submitted a fix and has been hooked every since.
  1033. XEmacs has followed him first to Switzerland where he did a maths
  1034. doctorate at the ETH in Zurich, working on a conjecture by Migdal on
  1035. the behavior of vertex corrections in Electron-Phonon theory. Finally
  1036. sharing a house with his loved one, he now lives in Oxford (UK)
  1037. working on the Jeode Java Virtual Machine, which like XEmacs is
  1038. portable, implements a language, includes a non-trivial bit of
  1039. graphics and a garbage collector, but is multithreaded to boot!
  1040. Unfortunately his XEmacs time is directly limited by the amount of
  1041. traffic on the M40.\n"))
  1042. (jas
  1043. (widget-insert "\
  1044. Simon lives in Stockholm where he has discovered that computers
  1045. can be a powerful procrastinating tool. Combined with a
  1046. frustrating desire to see computers simply work, he spends most
  1047. of his time complaining. Occasionally he rises up to the task
  1048. and produces something that others may complain about, which
  1049. brings him increased satisfaction with every bug report. Today
  1050. he is pretending to be a network security guy, with a preference
  1051. for standardization issues, while secretly longing to start a
  1052. cafe or becoming a theoretical computer scientist. His personal
  1053. interest is literature, and to some extent traveling, but will
  1054. try anything for fun, such as juggling, skiing, wine, and
  1055. long-distance biking.
  1056. See: ")
  1057. (about-url-link 'jas nil "Visit Simon's homepage")
  1058. (widget-insert ".\n"))
  1059. (jareth
  1060. (widget-insert "\
  1061. Jareth Hein is a mountain boy who abandoned his home state of Colorado
  1062. for the perpetual state of chaos known as Tokyo in a failed attempt to
  1063. become a cel-animator, and a more successful one to become a
  1064. computer-game programmer. As he happens to be bilingual (guess which
  1065. two?) he's been doing quite a bit of MULE hacking. He's also getting
  1066. his hands dirty in the graphics areas as well.\n"))
  1067. (jason
  1068. (widget-insert "\
  1069. Jason resides in Northern New Mexico where he works as a Systems
  1070. Scientist(tm) in the Los Alamos National Laboratory's Advanced
  1071. Computing Group.
  1072. See: ")
  1073. (about-url-link 'jason nil "Visit Jason's homepage")
  1074. (widget-insert ".\n"))
  1075. (jens
  1076. (widget-insert "\
  1077. I'm currently working for 1&1 Internet AG, a large Domain and Webspace
  1078. Provider in Germany and Europe. I do mostly Java/XML/OO/Component
  1079. stuff today. I'm interested EJB, Corba and other middleware or
  1080. distributed Systems. Besides work, I occasionally hack on The Gimp
  1081. and other gtk/gnome related projects. Maybe the advent of XEmacs/Gtk
  1082. will get me back to spend some time again hacking on XEmacs in

Large files files are truncated, but you can click here to view the full file