Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 489f57a838ef
children 169c0442b401
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
104 ;; Insert a URL link to the buffer. 104 ;; Insert a URL link to the buffer.
105 (defun about-url-link (what &optional echo) 105 (defun about-url-link (what &optional echo)
106 (or (stringp what) 106 (or (stringp what)
107 (setq what (cdr (assq what about-url-alist)))) 107 (setq what (cdr (assq what about-url-alist))))
108 (assert what) 108 (assert what)
109 (let ((widget-link-prefix "") (widget-link-suffix "")) 109 (widget-create 'url-link
110 (widget-create 'url-link 110 :button-prefix ""
111 :help-echo echo 111 :button-suffix ""
112 what))) 112 :help-echo echo
113 what))
113 114
114 ;; Attach a face to a string, in order to be inserted into the buffer. 115 ;; Attach a face to a string, in order to be inserted into the buffer.
115 ;; Make sure that the extent is duplicable, but unique. Returns the 116 ;; Make sure that the extent is duplicable, but unique. Returns the
116 ;; string. 117 ;; string.
117 (defun about-with-face (string face) 118 (defun about-with-face (string face)
202 (about-with-face "GNU Emacs 19" 'italic) 203 (about-with-face "GNU Emacs 19" 'italic)
203 " from the Free Software Foundation and since kept up to 204 " from the Free Software Foundation and since kept up to
204 date with recent versions of that product. XEmacs stems from a\n") 205 date with recent versions of that product. XEmacs stems from a\n")
205 (widget-create 'link :help-echo "An XEmacs history lesson" 206 (widget-create 'link :help-echo "An XEmacs history lesson"
206 :action 'about-collaboration 207 :action 'about-collaboration
208 :button-prefix ""
209 :button-suffix ""
207 "collaboration") 210 "collaboration")
208 (widget-insert 211 (widget-insert
209 " of Lucid, Inc. with Sun Microsystems, Inc. and the 212 " of Lucid, Inc. with Sun Microsystems, Inc. and the
210 University of Illinois with additional support having been provided by 213 University of Illinois with additional support having been provided by
211 Amdahl Corporation, INS Engineering Corporation, and a huge amount of 214 Amdahl Corporation, INS Engineering Corporation, and a huge amount of
212 volunteer effort. 215 volunteer effort.
213 216
214 XEmacs provides a great number of ") 217 XEmacs provides a great number of ")
215 (widget-create 'link :help-echo "See a list of the new features" 218 (widget-create 'link :help-echo "See a list of the new features"
216 :action 'about-features 219 :action 'about-features
220 :button-prefix ""
221 :button-suffix ""
217 "new features") 222 "new features")
218 (widget-insert ". More details on 223 (widget-insert ". More details on
219 XEmacs's functionality, including bundled packages, can be obtained 224 XEmacs's functionality, including bundled packages, can be obtained
220 through the ") 225 through the ")
221 (widget-create 'info-link :help-echo "Browse the info system" 226 (widget-create 'info-link
227 :help-echo "Browse the info system"
228 :button-prefix ""
229 :button-suffix ""
222 :tag "info" 230 :tag "info"
223 "(dir)") 231 "(dir)")
224 232
225 (widget-insert 233 (widget-insert
226 " on-line information system.\n 234 " on-line information system.\n
234 XEmacs is the result of the time and effort of many people. The 242 XEmacs is the result of the time and effort of many people. The
235 developers responsible for the 20.3 release are:\n\n") 243 developers responsible for the 20.3 release are:\n\n")
236 244
237 (flet ((setup-person (who) 245 (flet ((setup-person (who)
238 (widget-insert "\t* ") 246 (widget-insert "\t* ")
239 (let* ((widget-link-prefix "") (widget-link-suffix "") 247 (let* ((entry (assq who xemacs-hackers))
240 (entry (assq who xemacs-hackers))
241 (name (cadr entry)) 248 (name (cadr entry))
242 (address (caddr entry))) 249 (address (caddr entry)))
243 (widget-create 'link 250 (widget-create 'link
244 :help-echo (concat "Find out more about " name) 251 :help-echo (concat "Find out more about " name)
252 :button-prefix ""
253 :button-suffix ""
245 :action 'about-maintainer 254 :action 'about-maintainer
246 :tag name 255 :tag name
247 :value who) 256 :value who)
248 (widget-insert (format " <%s>\n" address))))) 257 (widget-insert (format " <%s>\n" address)))))
249 ;; Setup persons responsible for this release. 258 ;; Setup persons responsible for this release.
250 (mapc 'setup-person '(slb mrb hniksic)) 259 (mapc 'setup-person '(slb mrb hniksic))
251 (widget-insert "\n\t* ") 260 (widget-insert "\n\t* ")
252 (let ((widget-link-prefix "") (widget-link-suffix "")) 261 (widget-create 'link :help-echo "A legion of XEmacs hackers"
253 (widget-create 'link :help-echo "A legion of XEmacs hackers" 262 :action 'about-hackers
254 :action 'about-hackers 263 :button-prefix ""
255 "And many other contributors...")) 264 :button-suffix ""
265 "And many other contributors...")
256 (widget-insert "\n 266 (widget-insert "\n
257 Chuck Thompson was Mr. XEmacs from 19.11 through 19.14. Ben Wing was 267 Chuck Thompson was Mr. XEmacs from 19.11 through 19.14. Ben Wing was
258 crucial to each of these releases.\n\n") 268 crucial to each of these releases.\n\n")
259 (setup-person 'cthomp) 269 (setup-person 'cthomp)
260 (setup-person 'wing) 270 (setup-person 'wing)
858 868
859 (defun about-show-linked-info (who shortinfo) 869 (defun about-show-linked-info (who shortinfo)
860 (let* ((entry (assq who xemacs-hackers)) 870 (let* ((entry (assq who xemacs-hackers))
861 (name (cadr entry)) 871 (name (cadr entry))
862 (address (caddr entry))) 872 (address (caddr entry)))
863 (let ((widget-link-prefix "") (widget-link-suffix "")) 873 (widget-create 'link :help-echo (concat "Find out more about " name)
864 (widget-create 'link :help-echo (concat "Find out more about " name) 874 :action 'about-maintainer
865 :action 'about-maintainer 875 :button-prefix ""
866 :tag name 876 :button-suffix ""
867 :value who)) 877 :tag name
878 :value who)
868 (widget-insert (about-tabs name) 879 (widget-insert (about-tabs name)
869 (format "<%s>\n%s\n" address shortinfo)))) 880 (format "<%s>\n%s\n" address shortinfo))))
870 881
871 (defun about-hackers (&rest ignore) 882 (defun about-hackers (&rest ignore)
872 (unless (about-get-buffer "*About Hackers*") 883 (unless (about-get-buffer "*About Hackers*")
1184 (print-short "David Ofelt" "ofelt@getalife.Stanford.EDU") 1195 (print-short "David Ofelt" "ofelt@getalife.Stanford.EDU")
1185 (print-short "Alexandre Oliva" "oliva@dcc.unicamp.br") 1196 (print-short "Alexandre Oliva" "oliva@dcc.unicamp.br")
1186 (print-short "Tore Olsen" "toreo@colargol.idb.hist.no") 1197 (print-short "Tore Olsen" "toreo@colargol.idb.hist.no")
1187 (print-short "Greg Onufer" "Greg.Onufer@eng.sun.com") 1198 (print-short "Greg Onufer" "Greg.Onufer@eng.sun.com")
1188 (print-short "Achim Oppelt" "aoppelt@theorie3.physik.uni-erlangen.de") 1199 (print-short "Achim Oppelt" "aoppelt@theorie3.physik.uni-erlangen.de")
1200 (print-short "Rebecca Ore" "rebecca.ore@op.net")
1189 (print-short "Sudeep Kumar Palat" "palat@idt.unit.no") 1201 (print-short "Sudeep Kumar Palat" "palat@idt.unit.no")
1190 (print-short "Marc Paquette" "Marc.Paquette@Softimage.com") 1202 (print-short "Marc Paquette" "Marc.Paquette@Softimage.com")
1191 (print-short "Jens-U H Petersen" "petersen@kurims.kyoto-u.ac.jp") 1203 (print-short "Jens-U H Petersen" "petersen@kurims.kyoto-u.ac.jp")
1192 (print-short "Joel Peterson" "tarzan@aosi.com") 1204 (print-short "Joel Peterson" "tarzan@aosi.com")
1193 (print-short "Thomas A. Peterson" "tap@src.honeywell.com") 1205 (print-short "Thomas A. Peterson" "tap@src.honeywell.com")