Banner

diff --git a/banner.pl b/banner.pl
new file mode 100644 (file)
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 (file)
index 0000000..b5d2019
--- /dev/null
+++ b/banner.txt
@@ -0,0 +1,7 @@
+ ░▒▓██████▓▒░░▒▓████████▓▒░▒▓██████████████▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓████████▓▒░▒▓███████▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒░      ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒▒▓███▓▒░▒▓██████▓▒░ ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░░▒▓██████▓▒░░▒▓██████▓▒░ ░▒▓███████▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+░▒▓█▓▒░░▒▓█▓▒░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓█▓▒░      ░▒▓█▓▒░░▒▓█▓▒░
+ ░▒▓██████▓▒░░▒▓████████▓▒░▒▓█▓▒░░▒▓█▓▒░░▒▓█▓▒░  ░▒▓█▓▒░   ░▒▓████████▓▒░▒▓█▓▒░░▒▓█▓▒░

diff --git a/gemyer.pl b/gemyer.pl
index 007b88a6bbeecdcc2aa1e376087eb4e8a99a0aab..83165d2aa75d6c938327ba49e2fdc61019f427d7 100755 (executable)
--- 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),