From 376fbf858f363f6645b3963b24bd7d3cabada262 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 4 Oct 2020 10:48:16 -0700
Subject: New: quip function for random humor.

Add this to your .txr_profile startup file.

* lisplib.c (quips_instantiate, quips_set_entries): New static
functions.
(lisplib_init): Register autoloading of quip.

* share/txr/stdlib/quips.tl: New file.

* txr.1: Documented.
---
 txr.1 | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'txr.1')

diff --git a/txr.1 b/txr.1
index 752ef03d..8991fed4 100644
--- a/txr.1
+++ b/txr.1
@@ -75097,6 +75097,37 @@ The object
 .code 4
 is self-evaluating, and so the greedy evaluation process stops.
 
+.SS* Listener-Related Miscellanea
+
+.coNP Function @ quip
+.synb
+.mets (quip)
+.syne
+.desc
+The
+.code quip
+function returns a randomly selected string containing a humorous quip,
+quote or witticism. The following code may be added to
+.code .txr_profile
+to produce the random quip on startup:
+
+.verb
+  (put-line (quip))
+.brev
+
+The
+.code quip
+function was introduced in \*(TX 244. If the
+.code .txr_profile
+is used with installations of older \*(TX versions, it is recommended to use
+the following, to avoid calling the undefined function, as well as to
+prevent a warning:
+
+.verb
+  (if (fboundp 'quip)
+    (put-line (quip))
+    (defun quip ()))
+.brev
 
 .SH* SETUID/SETGID OPERATION
 
-- 
cgit v1.2.3