Skip to content

Commit 459138e

Browse files
committed
FEAT: updated boot banner
1 parent 923ca9e commit 459138e

File tree

1 file changed

+13
-17
lines changed

1 file changed

+13
-17
lines changed

src/mezz/mezz-banner.r

+13-17
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@ make-banner: func [
1919
str: make string! 200
2020
star: append/dup make string! 74 #"*" 74
2121
spc: format ["**" 70 "**"] ""
22+
append str "^[[7m"
2223
parse fmt [
2324
some [
2425
[
@@ -30,24 +31,26 @@ make-banner: func [
3031
| block! (b: reform b/1)
3132
| string! (b: b/1)
3233
]
33-
(s: format ["** " 11 55 "**"] reduce [a b])
34+
(s: either none? b [none][format ["** " 11 55 "**"] reduce [a b]])
3435
| '* (s: star)
3536
| '- (s: spc)
3637
]
37-
(append append str s newline)
38+
(unless none? s [append append str s newline])
3839
]
3940
]
41+
append str "^[[0m"
4042
str
4143
]
4244

4345
sys/boot-banner: make-banner [
4446
*
4547
-
46-
"REBOL 3.0 [Alpha Test]"
48+
"REBOL 3.0 (Oldes branch)"
4749
-
48-
= Copyright: [system/build/year "REBOL Technologies"]
49-
= "" "All rights reserved."
50-
= Website: "www.REBOL.com"
50+
= Copyright: "2012 REBOL Technologies"
51+
= "" "2012-2017 Rebol Open Source Contributors"
52+
= "" "Apache 2.0 License, see LICENSE."
53+
= Website: "https://github.com/oldes/r3"
5154
-
5255
= Version: system/version
5356
= Platform: system/platform
@@ -56,27 +59,20 @@ sys/boot-banner: make-banner [
5659
-
5760
= Language: system/locale/language*
5861
= Locale: system/locale/locale*
59-
= Home: [to-local-file system/options/home]
62+
= Home: [to-local-file clean-path join what-dir system/options/home]
6063
-
6164
*
6265
]
6366

6467
sys/boot-help:
65-
{Important notes:
68+
{^[[1;33;49mImportant notes^[[0m:
6669
6770
* Sandbox and security are not available.
6871
* Direct access to TCP HTTP required (no proxies).
69-
* Default web browser must be available.
7072
71-
Special functions:
73+
^[[1;33;49mSpecial functions^[[0m:
7274
73-
Chat - open DevBase developer forum/BBS
74-
Docs - open DocBase document wiki (web)
75-
Bugs - open CureCode bug database (web)
76-
Demo - run demo launcher (from rebol.com)
77-
Help - show built-in help information
78-
Upgrade - check for newer releases
79-
Changes - what's new about this version (web)
75+
^[[1;32;49mHelp^[[0m - show built-in help information
8076
}
8177

8278
;print make-banner boot-banner halt

0 commit comments

Comments
 (0)