Skip to content

Commit 82f0ae3

Browse files
committed
FIX: updated banners look
fixes: #23
1 parent b6cbac2 commit 82f0ae3

File tree

1 file changed

+6
-9
lines changed

1 file changed

+6
-9
lines changed

src/mezz/mezz-banner.reb

+6-9
Original file line numberDiff line numberDiff line change
@@ -17,29 +17,30 @@ make-banner: func [
1717
][
1818
if string? fmt [return fmt] ; aleady built
1919
str: make string! 2000
20-
star: format/pad [$30.107 74 $0] "" #"*"
20+
append str format/pad [$0 #"╔" 74 "╗^/"] "" #""
2121

22-
spc: format [$30.107 "**" 70 "**" $0] ""
23-
sf: [$30.107 "** " $35 68 $30.107 "**" $0]
22+
spc: format [#"║" $30.107 74 $0 #"║"] ""
23+
sf: [#"║" $30.107 " " $35 72 $30.107 $0 #"║"]
2424
parse fmt [
2525
some [
2626
[
2727
set a string! (s: format sf a)
2828
| set a block! (s: format sf ajoin a)
2929
| '= set a [string! | word! | set-word!] [
30-
b:
30+
b:
3131
path! (b: get b/1)
3232
| word! (b: get b/1)
3333
| block! (b: reform b/1)
3434
| string! (b: b/1)
3535
]
36-
(s: either none? b [none][format [$30.107 "** " $32 11 $31 55 $30 "**" $0] reduce [a b]])
36+
(s: either none? b [none][format [#"║" $30.107 " " $32 11 $31 59 $30 $0 #"║"] reduce [a b]])
3737
| '* (s: star)
3838
| '- (s: spc)
3939
]
4040
(unless none? s [append append str s newline])
4141
]
4242
]
43+
append str format/pad [#"╚" 74 "╝^/"] "" #"═"
4344
str
4445
]
4546

@@ -49,7 +50,6 @@ if #"/" <> first system/options/home [
4950
]
5051

5152
sys/boot-banner: make-banner [
52-
*
5353
-
5454
["REBOL 3." system/version/2 #"." system/version/3 " (Oldes branch)"]
5555
-
@@ -63,11 +63,9 @@ sys/boot-banner: make-banner [
6363
-
6464
= Home: [to-local-file system/options/home]
6565
-
66-
*
6766
]
6867

6968
system/license: make-banner [
70-
*
7169
-
7270
= Copyright: "2012 REBOL Technologies"
7371
= "" "2012-2021 Rebol Open Source Contributors"
@@ -76,7 +74,6 @@ system/license: make-banner [
7674
-
7775
= Notice: "https://github.com/Oldes/Rebol3/blob/master/NOTICE"
7876
-
79-
*
8077
]
8178

8279

0 commit comments

Comments
 (0)