Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 308:33bdb3d4b97f r21-0b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b52
author cvs
date Mon, 13 Aug 2007 10:42:44 +0200
parents 9ea74add5d37
children 851ff35f137f
comparison
equal deleted inserted replaced
307:42d630fd9bd8 308:33bdb3d4b97f
48 48
49 (require 'wid-edit) 49 (require 'wid-edit)
50 50
51 ;; People in this list have their individual links from the main page, 51 ;; People in this list have their individual links from the main page,
52 ;; or from the `Legion' page. If they have an image, it should be 52 ;; or from the `Legion' page. If they have an image, it should be
53 ;; named after the CAR of the list element (baw -> baw.xpm). 53 ;; named after the CAR of the list element (baw -> baw.png).
54 ;; 54 ;;
55 ;; If you add to this list, you'll want to update 55 ;; If you add to this list, you'll want to update
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")
527 (let ((file (expand-file-name 527 (let ((file (expand-file-name
528 (concat (symbol-name who) 528 (concat (symbol-name who)
529 (if (memq (device-class) 529 (if (memq (device-class)
530 '(color grayscale)) 530 '(color grayscale))
531 "" "m") 531 "" "m")
532 ".xpm") 532 ".png")
533 (locate-data-directory "photos"))) 533 (locate-data-directory "photos")))
534 (data nil)) 534 (data nil))
535 (unless (file-exists-p file)
536 ;; Maybe the file is compressed?
537 (setq file (concat file ".Z"))
538 (if (file-exists-p file)
539 ;; Decompress it.
540 (condition-case nil
541 (let ((buffer (get-buffer-create " *image*")))
542 (unwind-protect
543 (save-excursion
544 (message "Uncompressing image...")
545 (set-buffer buffer)
546 (erase-buffer)
547 (let ((coding-system-for-read 'binary)
548 (coding-system-for-write 'binary))
549 (insert-file-contents-literally file)
550 (call-process-region (point-min) (point-max)
551 "zcat" t t nil)
552 (setq data
553 (buffer-substring (point-min) (point-max))))
554 (message "Uncompressing image... done"))
555 (kill-buffer buffer)))
556 (error (setq data 'error)))
557 (setq file nil)))
558 (setq glyph 535 (setq glyph
559 (cond ((stringp data) 536 (cond ((stringp data)
560 (make-glyph 537 (make-glyph
561 (if (featurep 'xpm) 538 (if (featurep 'png)
562 `([xpm :data ,data] 539 `([png :data ,data]
563 [string :data "[Image]"]) 540 [string :data "[Image]"])
564 `([string :data "[Image]"])))) 541 `([string :data "[Image]"]))))
565 ((eq data 'error) 542 ((eq data 'error)
566 (make-glyph [string :data "[Error]"])) 543 (make-glyph [string :data "[Error]"]))
567 (file 544 (file
568 (make-glyph 545 (make-glyph
569 (if (featurep 'xpm) 546 (if (featurep 'png)
570 `([xpm :file ,file] 547 `([png :file ,file]
571 [string :data "[Image]"]) 548 [string :data "[Image]"])
572 `([string :data "[Image]"])))) 549 `([string :data "[Image]"]))))
573 (t 550 (t
574 (make-glyph [nothing])))) 551 (make-glyph [nothing]))))
575 (set-glyph-property glyph 'baseline 100) 552 (set-glyph-property glyph 'baseline 100)
779 I work for Positron Industries Inc., Public Safety Division. 756 I work for Positron Industries Inc., Public Safety Division.
780 I'm part of the team producing POWER 911, a 911 emergency response 757 I'm part of the team producing POWER 911, a 911 emergency response
781 system written in Modula3:\n") 758 system written in Modula3:\n")
782 (about-url-link 'marcpa "Visit POWER 911") 759 (about-url-link 'marcpa "Visit POWER 911")
783 (widget-insert "\ 760 (widget-insert "\
784 Previously, I worked at Softimage Inc., now a Microsoft company 761 \n\nPreviously, I worked at Softimage Inc., now a Microsoft company
785 \(eeekkk!), as a UNIX system administrator. This is where I've been 762 \(eeekkk!), as a UNIX system administrator. This is where I've been
786 converted to NT. 763 converted to NT.
787 764
788 In a previous life, I was a programmer/sysadmin at CRIM (Centre de 765 In a previous life, I was a programmer/sysadmin at CRIM (Centre de
789 Recherche Informatique de Montreal) for the speech recognition group.\n")) 766 Recherche Informatique de Montreal) for the speech recognition group.\n"))