EMchat is https as well
[sxemacs] / lisp / about.el
index 9179f1c..e85c70d 100644 (file)
@@ -2,7 +2,7 @@
 
 ;; Copyright (c) 1997 Free Software Foundation, Inc.
 ;; Copyright (C) 2001 Ben Wing.
-;; Copyright (C) 2004 - 2008 Steve Youngs.
+;; Copyright (C) 2004 - 2012 Steve Youngs.
 
 ;; Keywords: extensions
 ;; Version: 3.0
@@ -90,6 +90,7 @@
     ;; to sort the stuff below, use M-x sort-regexp-fields RET
     ;; ^.*$ RET (\([a-z]*\) RET
     (adrian    "Adrian Aichner"    "adrian@xemacs.org")
+    (aidan     "Aidan Kehoe"       "aidan@xemacs.org")
     (aj        "Andreas Jaeger"    "aj@xemacs.org")
     (ajc       "Andrew Cosgriff"   "ajc@xemacs.org")
     (alastair  "Alastair Houghton" "alastair@xemacs.org")
     (hmuller   "Hans Muller"       "hmuller@xemacs.org")
     (hniksic   "Hrvoje Niksic"     "hniksic@xemacs.org")
     (hobley    "David hobley"      "hobley@xemacs.org")
+    (horst     "Horst Günther Burkhardt" "horst@sxemacs.org")
     (hroptatyr "Sebastian Freundt" "hroptatyr@sxemacs.org")
     (hynek     "Hynek Schlawack"   "hynek@sxemacs.org")
     (jan       "Jan Vroonhof"      "jan@xemacs.org")
     (ograf     "Oliver Graf"       "ograf@xemacs.org")
     (olivier   "Olivier Galibert"  "olivier@xemacs.org")
     (oscar     "Oscar Figueiredo"  "oscar@xemacs.org")
-    (peanuthorst "Horst Günther Burkhardt" "horst@sxemacs.org")
     (pelegri   "Eduardo Pelegri-Llopart" "pelegri@xemacs.org")
     (pez       "Peter Pezaris"     "pez@xemacs.org")
     (piper     "Andy Piper"        "andy@xemacs.org")
 
 (defvar about-current-release-maintainers
   ;; this list should not necessarily be in sorted order.
-  '(steve hroptatyr njsf lg erik hynek))
+  '(steve njsf horst hroptatyr lg))
 
-(defvar about-other-current-hackers '(peanuthorst))
+(defvar about-other-current-hackers '(erik hynek))
 
 (defvar about-once-and-future-hackers
-  '(adrian aj ajc alastair baw ben bw cgw chr craig cthomp daiki dan darrylo 
-          devin dkindred dmoore dv eb fabrice golubev gunnar heatxsink hbs hisashi 
-          hmuller hniksic hobley jan jareth jason jens jmiller jonathan juhp 
+  '(adrian aj ajc alastair baw ben bw cgw chr craig cthomp daiki dan darrylo
+          devin dkindred dmoore dv eb fabrice golubev gunnar heatxsink hbs hisashi
+          hmuller hniksic hobley jan jareth jason jens jmiller jonathan juhp
           jwz kazz kirill kyle larsi marcpa martin mcook mly morioka mta myrkraverk
           ograf olivier oscar pelegri pez piper pittman rendhalver rickc rose
           rossini slb sperber stig stigb thiessel tomonori tuck turnbull vin
     (dv         . "http://www.lrde.epita.fr/~didier/")
     (fabrice    . "http://www.ese-metz.fr/~popineau/")
     (fptex      . "http://www.fptex.org/")
+    (horst      . "http://midcom.steveyoungs.com/")
     (hroptatyr  . "http://www.math.tu-berlin.de/~freundt/")
     (jason      . "http://www.mastaler.com/")
     (juhp       . "http://www.01.246.ne.jp/~juhp/")
     (larsi      . "http://quimby.gnus.org/lmi/")
     (marcpa     . "http://www.positron911.com/products/power.htm")
     (ograf      . "http://www.fga.de/~ograf/")
-    (peanuthorst . "http://pan.doras-box.org/")
     (pez        . "http://cbs.sportsline.com/")
     (piper      . "http://www.andypiper.com/")
     (rossini    . "http://faculty.washington.edu/rossini/")
-    (steve      . "http://www.youngs.au.com/~steve/")
-    (steve-emchat . "http://www.emchat.org/")
-    (steve-xwem . "http://www.xwem.org/")
+    (steve      . "http://www.steveyoungs.com/")
+    (steve-emchat . "https://www.emchat.org/")
+    (steve-g+   . "https://plus.google.com/u/0/+SteveYoungs")
+    (steve-fb   . "https://facebook.com/steve.r.youngs/")
+    (steve-li   . "http://www.linkedin.com/in/steveyoungs")
+    (steve-inits . "http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/")
+    (steve-twit . "https://twitter.com/SteveYoungs")
     (stigb      . "http://www.tihlde.hist.no/~stigb/")
-    (sxemacs    . "http://www.sxemacs.org/")
+    (sxemacs    . "https://www.sxemacs.org/")
     (sxemacs-shop . "http://store.sxemacs.org/")
     (vin        . "http://www.upa.org/")
     (vladimir   . "http://www.leonora.org/~vladimir/")
         (normal-range (- msglen width))
         (long-border-interval 1.5)
         (long-default-interval 0.15)
-         submsg)
+        submsg)
     (if (< msglen width)
-        (display-message 'no-log (concat leader msg))
+       (display-message 'no-log (concat leader msg))
       (while t
-        (dotimes (i msglen)
-          (setq submsg (if (< i normal-range)
-                           (substring msg i (+ i width))
-                         ;; Rolling is needed.
-                         (concat (substring msg i)
-                                 (substring msg 0 (- (+ i width) msglen)))))
-          (display-message 'no-log (concat leader submsg))
-          (unless (sit-for (cond
-                            ((eq i 0) long-border-interval)
-                            (t long-default-interval)))
-            (return-from about-rolling-message)))
-          (garbage-collect)))))
+       (dotimes (i msglen)
+         (setq submsg (if (< i normal-range)
+                          (substring msg i (+ i width))
+                        ;; Rolling is needed.
+                        (concat (substring msg i)
+                                (substring msg 0 (- (+ i width) msglen)))))
+         (display-message 'no-log (concat leader submsg))
+         (unless (sit-for (cond
+                           ((eq i 0) long-border-interval)
+                           (t long-default-interval)))
+           (return-from about-rolling-message)))
+         (garbage-collect)))))
 
 ;; Main entry page.
 
@@ -678,8 +683,8 @@ England.  He'd quite like to have his own company one day, but has yet
 to think of that killer product...
 
 See also ")
-        (about-url-link 'alastair nil "Visit Alastair's home page")
-        (widget-insert ".\n"))
+       (about-url-link 'alastair nil "Visit Alastair's home page")
+       (widget-insert ".\n"))
     (baw
      (widget-insert "
 As of November 2000, I am a software engineer with the Pythonlabs at
@@ -702,39 +707,39 @@ to fend off the legions of groupies that seem to follow me everywhere.
     Milk Me Daddy
     (C) 1990 Warsaw
     ===============
-    Oh daddy with your fingers pink 
-    From whose udders do you drink? 
-    Thy milk offends with putrid stink 
-    I'll vomit now, lactose I think 
-
-    If I could dream, I'd be a cow 
-    Not horse, or mule, or barnyard sow 
-    The cud I'd chew would drip and how! 
-    So milk me daddy, milk me now! 
-
-    My bovine nature knows no bounds 
-    I'd naught awake at midnight sounds 
-    Of teens approaching o'er the grounds 
-    To tip with glee, then screech like clowns 
-
-    And so I stare into this glass 
-    Of sweaty juice, I gulp so fast 
-    Each drop I lick, down to the last 
-    The vertigo I know will pass 
-
-    My mother smiles and pats my head 
-    She's proud of me, so she has said 
-    My pop just now gets out of bed 
-    His eyes quite comatose and red 
-
-    He'll empathize my milky fate 
-    Whilest sopping gravy from his plate 
-    And as the hour is getting late 
-    His belly taut with all he ate 
-
-    He isn't often quite so chatty 
-    His arteries clogged with meat so fatty 
-    With burps that launch soup, thick and splatty 
+    Oh daddy with your fingers pink
+    From whose udders do you drink?
+    Thy milk offends with putrid stink
+    I'll vomit now, lactose I think
+
+    If I could dream, I'd be a cow
+    Not horse, or mule, or barnyard sow
+    The cud I'd chew would drip and how!
+    So milk me daddy, milk me now!
+
+    My bovine nature knows no bounds
+    I'd naught awake at midnight sounds
+    Of teens approaching o'er the grounds
+    To tip with glee, then screech like clowns
+
+    And so I stare into this glass
+    Of sweaty juice, I gulp so fast
+    Each drop I lick, down to the last
+    The vertigo I know will pass
+
+    My mother smiles and pats my head
+    She's proud of me, so she has said
+    My pop just now gets out of bed
+    His eyes quite comatose and red
+
+    He'll empathize my milky fate
+    Whilest sopping gravy from his plate
+    And as the hour is getting late
+    His belly taut with all he ate
+
+    He isn't often quite so chatty
+    His arteries clogged with meat so fatty
+    With burps that launch soup, thick and splatty
     Oh how I wish you'd milk me daddy\n\n\t")
      (about-url-link 'baw nil "Visit Barry's home page")
      (widget-insert "\n"))
@@ -947,13 +952,26 @@ muck around with things. As a result I started the NT port. Hopefully I
 will get to finish it sometime sooner rather than later. I do vaguely
 remember University where it seems like I had more spare time that I can
 believe now. Oh well, such is life.\n"))
+    (horst
+     (widget-insert "
+Horst is a student still working towards his HSC. He has a Unit II
+certification in Information Technology already, and is studying
+Chemistry, German, and Physics.
+
+He started using XEmacs relatively recently, when he started with Linux
+in 2003. He has since converted to using Linux full-time.
+
+He hopes to produce the first Linux distribution to use a decked-out
+SXEmacs as the default editor.\n")
+     (about-url-link 'horst nil "Pandora's Box")
+     (widget-insert ".\n"))
     (hroptatyr
      (widget-insert "
 In real life most of the time my name is Sebastian Freundt.
 I'm a mathematician at the ")
      (about-url-link "http://www.math.tu-berlin.de"
-                     "Technical University of Berlin"
-                     "www.math.tu-berlin.de")
+                    "Technical University of Berlin"
+                    "www.math.tu-berlin.de")
      (widget-insert ".
 My main task there is to hack at the computer algebra system KANT/KASH,
 and incorporate the ideas of the SCIEnce project.
@@ -1194,19 +1212,6 @@ Oscar heads the Computer Science department at CPE Lyon, a french
 engineering school in France. Besides his administrative tasks he
 teaches networking basics, Internet technologies (you know, all these
 xxML and hairy script languages !)  and the Scheme language.\n"))
-    (peanuthorst
-     (widget-insert "
-Horst is a student still working towards his HSC. He has a Unit II 
-certification in Information Technology already, and is studying 
-Chemistry, German, and Physics.
-
-He started using XEmacs relatively recently, when he started with Linux
-in 2003. He has since converted to using Linux full-time.
-
-He hopes to produce the first Linux distribution to use a decked-out
-SXEmacs as the default editor.\n")
-     (about-url-link 'peanuthorst nil "Pandora's Box")
-     (widget-insert ".\n"))
     (pelegri
      (widget-insert
       "
@@ -1214,7 +1219,7 @@ I did my PhD at UCB and a postdoc at CSL/PARC.  I joined Sun in 1990,
 spent some time in DevPro (that is when I made my contribution to
 XEmacs) and joined JavaSoft in fall '95, where I've been the lead for
 several JSP-related specifications and JAX-RPC.  I'm currently the Web
-Layer architect for J2EE. 
+Layer architect for J2EE.
 
 I was born in Barcelona and I grew up mostly in Caracas; I have two kids
 and I speak only catalan to them; I can juggle some (career, family, and
@@ -1280,26 +1285,54 @@ programming languages and their implementation, and hopes that one day
 XEmacs will speak Scheme.\n"))
     (steve
      (widget-insert "
-I live in Brisbane, Australia with my wife, Michelle, our daughter,
-Kaitlyn, and our son, Blake.
+I live in Brisbane, Australia with my wife, Michelle, and our children,
+Kaitlyn and Blake.
 
-In past lives, I've been a bank officer, car salesman, insurance
-agent, managed a computer firm and owned and operated my own
-business.  I now divide my time between my family, planning my
-next business, and maintaining a few open source projects.
+In past lives, I've been a bank officer, car salesman, insurance agent,
+managed a computer firm and owned and operated my own business.  I now
+divide my time between my family, planning my next business, writing,
+and maintaining a few open source projects.
 
-My current open source obsessions are:\n\n")
-     (widget-insert "\tSXEmacs \(of course\):           ")
+"
+                   (about-with-face "My current open source obsessions are:"
+                                    'font-lock-warning-face))
+     (widget-insert "\n\n")
+     (widget-insert (about-with-face "   SXEmacs:\t\t"
+                                    'font-lock-string-face))
      (about-url-link 'sxemacs nil "Visit the SXEmacs homepage")
-     (widget-insert "  ")
-     (about-url-link 'sxemacs-shop nil "Cool SXEmacs merchandise")
-     (widget-insert "\n\tEMchat \(an ICQ client in elisp\): ")
+     (widget-insert (about-with-face "\n   My SXEmacs conf:     "
+                                    'font-lock-string-face))
+     (about-url-link 'steve-inits nil "All my sexy SXEmacs init files")
+     (widget-insert (about-with-face "\n   EMchat:      \t"
+                                    'font-lock-string-face))
      (about-url-link 'steve-emchat nil "Visit the EMchat homepage")
-     (widget-insert "\n\tXWEM \(a complete WM in elisp\): ")
-     (about-url-link 'steve-xwem nil "Visit the XWEM homepage")
-     (widget-insert "\n
-And if you get really hard up for something to do:\n\t")
-     (about-url-link 'steve nil "Visit my boring homepage")
+     (widget-insert "\n\n"
+                   (about-with-face "You got the software..."
+                                    'font-lock-warning-face)
+                   "\n\n"
+                   (about-with-face "   Now get the"
+                                    'font-lock-string-face)
+                   (about-with-face " T-Shirt:\t" 'bold))
+     (about-url-link 'sxemacs-shop nil "Cool SXEmacs merchandise")
+     (widget-insert "\n\n"
+                   (about-with-face
+                    "More of me on the Interwebz:\n\n"
+                    'font-lock-warning-face))
+     ; (widget-insert (about-with-face "   My Blog:\t\t"
+     ;                              'font-lock-string-face))
+     ; (about-url-link 'steve nil "Visit my infrequently updated blog")
+     (widget-insert (about-with-face "   Facebook:\t\t"
+                                    'font-lock-string-face))
+     (about-url-link 'steve-fb nil "My Facebook Profile")
+     (widget-insert (about-with-face "\n   Google+:\t\t"
+                                    'font-lock-string-face))
+     (about-url-link 'steve-g+ nil "My Google+ Profile")
+     (widget-insert (about-with-face "\n   LinkedIn:\t\t"
+                                    'font-lock-string-face))
+     (about-url-link 'steve-li nil "My LinkedIn Profile")
+     (widget-insert (about-with-face "\n   Twitter:\t\t"
+                                    'font-lock-string-face))
+     (about-url-link 'steve-twit nil "Follow me on Twitter")
      (widget-insert ".\n"))
     (stig
      (widget-insert "
@@ -1328,11 +1361,11 @@ development and design of a CAD framework for analog integrated
 circuits with special emphasis on distributed software concepts. He
 has now joined HP as technical consultant.
 
-                      All of the buildings,
-                      all of the cars
-                      were once just a dream
-                      in somebody's head.\n
-                                     P. Gabriel\n"))
+                     All of the buildings,
+                     all of the cars
+                     were once just a dream
+                     in somebody's head.\n
+                                    P. Gabriel\n"))
     (tomonori
      (widget-insert
       "
@@ -1482,7 +1515,7 @@ using Epoch.\n"))
     (dkindred
      (widget-insert "
 Darrell tends to come out of the woodwork a couple of weeks
-before a new release with a flurry of fixes for bugs that 
+before a new release with a flurry of fixes for bugs that
 annoy him.  He hopes he's spared you from a core dump or two.\n"))
     (dmoore
      (widget-insert "
@@ -1527,7 +1560,7 @@ consider a bug.\n"))
     (gunnar
      (widget-insert
       "
-Sorry, no information about my XEmacs contributions yet.\n"))  
+Sorry, no information about my XEmacs contributions yet.\n"))
     (hbs
      (widget-insert "
 Part of the original (pre-19.0) Lucid Emacs development team.  Harlan
@@ -1536,7 +1569,7 @@ are original to the Lucid version of Emacs, including extents and hash
 tables.\n"))
     (heatxsink
      (widget-insert "
-Sorry, no information about my SXEmacs contributions yet.\n")) 
+Sorry, no information about my SXEmacs contributions yet.\n"))
     (hisashi
      (widget-insert
       "
@@ -1573,6 +1606,10 @@ since its inception in 1998.\n"))
      (widget-insert
       "
 Creator of the earliest version of the MS Windows port of XEmacs.\n"))
+    (horst
+     (widget-insert "
+He mainly contributes documentation and looks on in envy when the
+other hackers do neat things to SXEmacs.\n"))
     (hroptatyr
      (widget-insert
       "
@@ -1713,10 +1750,6 @@ Author of the portable dumper.\n"))
 Oscar's major contributions to XEmacs are the internal LDAP support
 and the EUDC package, an interface to query various directory services
 in a uniform manner (when composing mail for instance).\n"))
-    (peanuthorst
-     (widget-insert "
-He mainly contributes documentation and looks on in envy when the
-other hackers do neat things to SXEmacs.\n"))
     (pelegri
      (widget-insert "
 Author of EOS, a package included in the standard XEmacs distribution