SXEmacs, meet Dbus. Dbus, meet SXEmacs
[sxemacs] / lisp / about.el
index 9179f1c..162e33e 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
 
 (defvar about-current-release-maintainers
   ;; this list should not necessarily be in sorted order.
-  '(steve hroptatyr njsf lg erik hynek))
+  '(steve hroptatyr njsf lg peanuthorst))
 
-(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
     (pez        . "http://cbs.sportsline.com/")
     (piper      . "http://www.andypiper.com/")
     (rossini    . "http://faculty.washington.edu/rossini/")
-    (steve      . "http://www.youngs.au.com/~steve/")
+    (steve      . "http://www.steveyoungs.com/")
     (steve-emchat . "http://www.emchat.org/")
-    (steve-xwem . "http://www.xwem.org/")
+    (steve-g+   . "http://plus.steveyoungs.com/about/")
+    (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-shop . "http://store.sxemacs.org/")
         (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 +680,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 +704,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"))
@@ -952,8 +954,8 @@ believe now. Oh well, such is life.\n"))
 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.
@@ -1196,8 +1198,8 @@ 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 
+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
@@ -1214,7 +1216,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
@@ -1288,18 +1290,43 @@ 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.
 
-My current open source obsessions are:\n\n")
-     (widget-insert "\tSXEmacs \(of course\):           ")
+I am also having delusions of grandeur over becoming an honest to
+goodness author of fiction.  You know... books 'n' stories 'n' shit.
+
+"
+                   (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 "\n   Google+:\t\t"
+                                    'font-lock-string-face))
+     (about-url-link 'steve-g+ nil "My Google+ 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 +1355,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 +1509,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 +1554,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 +1563,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
       "