From 3d2ff8beec7ef0cf61eb8fb0d15947d5b94fe67b Mon Sep 17 00:00:00 2001
From: Javier Sagredo <javier.sagredo@iohk.io>
Date: Fri, 29 May 2026 03:12:19 +0200
Subject: [PATCH] Banner

---
 banner.pl  | 20 ++++++++++++++++++++
 banner.txt |  7 +++++++
 gemyer.pl  |  4 +++-
 3 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 banner.pl
 create mode 100644 banner.txt

diff --git a/banner.pl b/banner.pl
new file mode 100644
index 0000000..b9ae7a4
--- /dev/null
+++ b/banner.pl
@@ -0,0 +1,20 @@
+:- module(banner, [display_banner/1]).
+
+:- use_module(library(dcgs)).
+:- use_module(library(lists)).
+:- use_module(library(pio)).
+
+:- meta_predicate(display_banner(1)).
+
+display_banner(F_1) :-
+    phrase_from_file(lines(Ls), "banner.txt"),
+    maplist(F_1, Ls),
+    call(F_1, "").
+
+lines([])     --> call(eos), !.
+lines([L|Ls]) --> line(L), lines(Ls).
+
+line([])     --> ( "\n" | call(eos) ), !.
+line([C|Cs]) --> [C], line(Cs).
+
+eos([], []).
diff --git a/banner.txt b/banner.txt
new file mode 100644
index 0000000..b5d2019
--- /dev/null
+++ b/banner.txt
@@ -0,0 +1,7 @@
+ ░▒▓██████▓▒░░▒▓████████▓▒░▒▓██████████████▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓████████▓▒░▒▓███████▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒░      ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒▒▓███▓▒░▒▓██████▓▒░ ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░░▒▓██████▓▒░░▒▓██████▓▒░ ░▒▓███████▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+ ░▒▓██████▓▒░░▒▓████████▓▒░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓████████▓▒░▒▓█▓▒░░▒▓█▓▒░
diff --git a/gemyer.pl b/gemyer.pl
index 007b88a..83165d2 100755
--- a/gemyer.pl
+++ b/gemyer.pl
@@ -13,6 +13,7 @@ exit 1
 :- module(gemyer, [run/0]).
 
 :- use_module(cert).
+:- use_module(banner).
 :- use_module(config).
 :- use_module(library(charsio)).
 :- use_module(library(clpz)).
@@ -22,6 +23,7 @@ exit 1
 :- use_module(library(lists)).
 :- use_module(library(pio)).
 :- use_module(library(sockets)).
+:- use_module(library(lambda)).
 :- use_module(library(tls)).
 :- use_module(log).
 :- use_module(mime).
@@ -29,7 +31,7 @@ exit 1
 :- use_module(response).
 
 run :-
-    log_msg("system", "Starting gemyer~n", []),
+    display_banner(\S^log_msg("system", "~s~n", [S])),
     content(Site),
     log_msg("system", "Serving capsule at `~s`~n", [Site]),
     hostname(Hostname),
-- 
2.54.0