--==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain
Hello,
the following patch makes Guile suppress the repl-welcome message when
the GUILE_QUIET environment variable is set.
--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline;
filename=0001-GUILE_QUIET-suppress-repl-welcome-when-GUILE_QUIET-e.patch
Content-Transfer-Encoding: quoted-printable
From=205af642cb967942c7cb46b773431a44ceae1e7cbe Mon Sep 17 00:00:00 2001
From: Arne Babenhauserheide <arne_...@web.de>
Date: Tue, 9 Jan 2024 14:40:30 +0100
Subject: [PATCH] GUILE_QUIET: suppress repl-welcome when GUILE_QUIET env is
set
* module/system/repl/repl.scm (run-repl*): print welcome *unless* GUILE_QUI=
ET is set
* doc/ref/guile-invoke.texi (Environment Variables): document GUILE_QUIET
=2D--
doc/ref/guile-invoke.texi | 5 +++++
module/system/repl/repl.scm | 3 ++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/doc/ref/guile-invoke.texi b/doc/ref/guile-invoke.texi
index 856bce7b8..2e41d3afb 100644
=2D-- a/doc/ref/guile-invoke.texi
+++ b/doc/ref/guile-invoke.texi
@@ -424,6 +424,11 @@ Guile uses the environment variable @env{HOME}, the na=
me of your home
directory, to locate various files, such as @file{.guile} or
@file{.guile_history}.
=20
+@item GUILE_QUIET
+@vindex GUILE_QUIET
+The Guile REPL usually shows a startup message. When the environment
+variable @env{GUILE_QUIET} is set, this message is suppressed.
+
@item GUILE_JIT_THRESHOLD
@vindex GUILE_JIT_THRESHOLD
Guile has a just-in-time (JIT) code generator that makes running Guile
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index d83d28759..0fb71ca1c 100644
=2D-- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -159,7 +159,8 @@
(% (with-fluids ((*repl-stack*
(cons repl (or (fluid-ref *repl-stack*) '()))))
(if (null? (cdr (fluid-ref *repl-stack*)))
=2D (repl-welcome repl))
+ (unless (getenv "GUILE_QUIET")
+ (repl-welcome repl)))
(let prompt-loop ()
(let ((exp (prompting-meta-read repl)))
(cond
=2D-=20
2.41.0
--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Best wishes,
Arne
=2D-=20
Unpolitisch sein
hei=C3=9Ft politisch sein,
ohne es zu merken.
draketo.de
--=-=-=--
--==-=-=
Content-Type: application/pgp-signature; name="signature.asc"
-----BEGIN PGP SIGNATURE-----
iQJEBAEBCAAuFiEE801qEjXQSQPNItXAE++NRSQDw+sFAmWdTiYQHGFybmVfYmFi
QHdlYi5kZQAKCRAT741FJAPD60UZEACrpKiLdZPEptMl9x36l36HRnXDJrJrO/F7
MeF+4x068pguL21qrsweNCpQjJLPI+Y4fgfENHfZMty+aYd2cO0leKpq6zkkBUta
su9gfsVXBUIKDhM1Uw79wCXT86UnrRWbWvtkHy/6gHh8QGNSBp8AtSf8QCYMNCDb
FUmcHdJ9wSIlP9gcM8+d87FcAHstvoJ/Th4dNcDGB/35G/Es9l4S78n+3D51WUXB
fRlr9utvOtsO77i9YQMcFiexVPkh6Am6MMdGDmcsJMg4jCYe9fKrbiKQfPeNgf9u
ZOdqrIqbjFvuQ/dRz4tcV+KqgG/+IV82sWdoYZeTVEDKqKkp/UPLreCjqVnqzNPf
71hTf6jO7sWn8JTCHQhZ5myPScGpcWx2/zg1J7DTC1yKNh1NhCljJWM7H4A0X6VG
iG0r3IIiu/XYjX3ezjXmTT05v3GAD+cpV+Z563Oycrb6c9qalzyTssJTFsQJLPWK
4X3MXjiHktDUaI8SKkWUtu1GpvaxKwSMxWC8kVKJhRh/D0Bk9rounkfIOlkS54ll
eIiIQCsd1FchiI/YunC/JebbrNROyIpaBSvRX0YSzsPXCNZfw7pOR4x1uicpb1pW
cBZhpmJTDLfL/vEDoqXhEm6UVVxJZqhWTxhgkuZDhXP58t43hmNiNPK1WjQE1if6
BBkUjvmhyojEBAEBCAAuFiEE3Si95tmHXKvOSosd3M8NswvBBUgFAmWdTiYQHGFy
bmVfYmFiQHdlYi5kZQAKCRDczw2zC8EFSJWGA/4k6a5j5fL6Llf5/pU4hglzvZn4
uZhARZpEO0G8VknicwXXu0hhnikpjdZb34j2gD9BnWctrCU5FLFnnxWooPHT/ND4
wbhxHrXMuBXTbkSPkFDXm8nuWMJMce/w1SSQgmW5zLiOx22mrT4q00XlvaQMKoG2
XdvzcrxsTdUqufIGWw==
=CbA+
-----END PGP SIGNATURE-----
--==-=-=--
signature.asc
Description: PGP signature
