[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH 1/2] Added random slogan to welcome message
From: |
Raffael Mancini |
Subject: |
[STUMP] [PATCH 1/2] Added random slogan to welcome message |
Date: |
Wed, 18 Feb 2009 12:49:39 +0100 |
---
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
- [STUMP] [PATCH 1/2] Added random slogan to welcome message,
Raffael Mancini <=