[STUMP] [PATCH 1/2] Added random slogan to welcome message

[Raffael Mancini]

---
 primitives.lisp |   57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 stumpwm.lisp    |    2 +-
 2 files changed, 57 insertions(+), 2 deletions(-)

diff --git a/primitives.lisp b/primitives.lisp
index d6107bb..4007b8f 100644
--- a/primitives.lisp
+++ b/primitives.lisp
@@ -910,10 +910,65 @@ window, and returns the preferred frame or a list of the 
above preferences.")
     (print-backtrace)))
 
 (defvar *startup-message* "^2*Welcome to The ^BStump^b ^BW^bindow ^BM^banager!
-Press ^5*~a ?^2* for help."
+~a
+Press ^5*~a ?^2* for help.~%"
   "This is the message StumpWM displays when it starts. Set it to NIL to
 suppress.")
 
+(defvar *slogans*
+  (list 
+   "put your windows in it"
+   "or are you scared?"
+   "because we could"
+   "there's no going back"
+   "we will end you and eat your children"
+   "it knows where you live"
+   "hack it before it hacks you"
+   "Powered by Parentheses"
+   "little, yellow, tiling-window-mangery."
+   "lithp at ith betht"
+   "ant/bee AI coming soon to a stumpwm near you"
+   "<insert hack here>"
+   "...<stump> <stump> <stump> <stump>..."
+   "Braaaains!! Braaaaaaiiiins!!!"
+   "either you git it or you dont get it"
+   "Hot code loading at your fingertips"
+   "Hot cod loading in your pants"
+   "GIRLS! GIRLS! GIRLS!"
+   "Only badasses need #'apply."
+   "Sweaty Electronic Sexpees"
+   "Stumpwhaaaaaaat?"
+   "Hi-Keeba!"
+   "Don't let your windows manage you!!"
+   "When you waste screen real estate, you ride with Hitler!"
+   "Loose bits sink ships."
+   "Used by people who seem to be constantly drunk. Make your own conclusions."
+   "Lambdas make it look cool."
+   "The John Rambo of window managers."
+   "My anaconda don't want none unless you got Stump, hon'"
+   "Like Terminator but with frames."
+   "What Would a Bee/Ant Do?"
+   "Hey where my beez at?"
+   "Common Lisp, Uncommon Machismo"
+   "FEED THE WARRIOR"
+   "Would you like to know how I got these scars?"
+   "A Maximalist window manager."
+   "So muscular, you'll think it's photoshopped."
+   "I Love Bees Now."
+   "It's lisp; it's probably really slow."
+   "used by a bunch of weirdos"
+   "Raising an army. A zombie army."
+   "Like Bees but Hardcore"
+   "Proof Of Ferocious Will"
+   "There's no turning back now"
+   "oh, fuck, I think I fixed it."
+   "The Silence Of The Lambdas"
+   "I say, are you sure you want to split that frame, old chap?")
+  "Slogans from the stumpwm webpage")
+
+(defun random-slogan ()
+  (nth (random (length *slogans*)) *slogans*))
+
 (defvar *default-package* (find-package '#:stumpwm-user)
   "This is the package eval reads and executes in. You might want to set
 this to @code{:stumpwm} if you find yourself using a lot of internal
diff --git a/stumpwm.lisp b/stumpwm.lisp
index 36fd479..67a3942 100644
--- a/stumpwm.lisp
+++ b/stumpwm.lisp
@@ -218,7 +218,7 @@ of those expired."
                (let ((*package* (find-package *default-package*)))
                  (multiple-value-bind (success err rc) (load-rc-file)
                    (if success
-                       (and *startup-message* (message *startup-message* 
(print-key *escape-key*)))
+                       (and *startup-message* (message *startup-message* 
(random-slogan) (print-key *escape-key*)))
                        (message "^B^1*Error loading ^b~A^B: ^n~A" rc err))))
                (when *last-unhandled-error*
                  (message-no-timeout "^B^1*StumpWM Crashed With An Unhandled 
Error!~%Copy the error to the clipboard with the 'copy-unhandled-error' 
command.~%^b~a^B^n~%~%~a"
-- 
1.6.1.2