From 9c2ed0775253ee9d7a200f4529ac3c5f9374f88b Mon Sep 17 00:00:00 2001 From: Artur Manuel Date: Wed, 16 Apr 2025 23:43:52 +0100 Subject: [PATCH] theo: provide optional argument to pick out theo quotes --- theo.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/theo.el b/theo.el index 603e7ba..283beaf 100644 --- a/theo.el +++ b/theo.el @@ -16,10 +16,10 @@ ;;; Code: -(defun theo () +(defun theo (&optional quote-index) "Gets a random quote from Theo de Raadt." (interactive) - (let ((theo-quotes '("Buttons are for idiots." + (let* ((theo-quotes '("Buttons are for idiots." "Why are you guys so fork paranoid? Do you want everyone to vote for the same political party, too?" "I think your computer science teachers are still teaching you from books written in the 80's, when the word \"micro-kernel\" was associated with a future utopia." "But software which OpenBSD uses and redistributes must be free to all (be they people or companies), for any purpose they wish to use it, including modification, use, peeing on, or even integration into baby mulching machines or atomic bombs to be dropped on Australia." @@ -1113,6 +1113,7 @@ "You are not listening." "This thread is too long. Please just stop." "I'm done here."))) - (message (nth (random (length theo-quotes)) theo-quotes)))) + (message + (nth (or quote-index (- (random (length theo-quotes)) 1)) theo-quotes)))) ;;; theo.el ends here