Look and feel: new banner?

Since we are working on themes and such, what do you think about colorizing the banner, something like this:

swiprolog

It was produced by this mock-up code (easy to fix):

w :-
   print_message(banner, welcomenew).

:- multifile prolog:message//1.
prolog:message(welcomenew) -->
    { HStyle=[bold,fg(blue)] },
    [
     ansi(HStyle,'   _____      ______    ___           __         '     ,[]),nl,
     ansi(HStyle,'  / __/ | /| / /  _/___/ _ \\_______  / /__  ___ _'    ,[]),nl,
     ansi(HStyle,' _\\ \\ | |/ |/ // //___/ ___/ __/ _ \\/ / _ \\/ _ \`/',[]),nl,
     ansi(HStyle,'/___/ |__/|__/___/   /_/  /_/  \\___/_/\\___/\\_, / '  ,[]),nl,
     ansi(HStyle,'                                          /___/  '     ,[]),nl
    ],
    prolog_message(welcome_version),
    prolog_message(copyright),
    [ nl ],
    prolog_message(user_versions),
    [ nl ],
    prolog_message(documentation1),
    [ nl, nl ].

prolog_message(welcome_version) -->
    [ ansi(fg(green),
          'Welcome to SWI-Prolog (threaded, 64 bits, version 8.1.10-28-g8a26a53c1-DIRTY)',
	  []),
      nl
    ].
prolog_message(documentation1) -->
    { CStyle = [bold,fg(red)] },
    [ 'Run ', ansi(CStyle,'help(Topic)',[]),
      ' or ', ansi(CStyle,'apropos(Word)',[]),
      ' for help.', nl,
      'Go to ', ansi([bold],'https://www.swi-prolog.org',[]),' for more information.'
    ].




prolog_message(M) -->
    '$messages':prolog_message(M).
% vim: set ft=prolog sw=4
1 Like

I need to get used to that :slight_smile: Iā€™m tempted to keep the banner small ā€¦

2 Likes