Skip to content

Commit

Permalink
FEAT: added colored function names in the WHAT function output and ad…
Browse files Browse the repository at this point in the history
…ded max and min function name indentation
  • Loading branch information
Oldes committed Nov 20, 2018
1 parent 02a3979 commit fba3b10
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/mezz/mezz-help.r
Original file line number Diff line number Diff line change
Expand Up @@ -387,7 +387,7 @@ what: func [
/local ctx vals arg list size
][
list: make block! 400
size: 0
size: 10 ; defines minimal function name padding

ctx: any [select system/modules :name lib]

Expand All @@ -404,11 +404,11 @@ what: func [
size: max size length? word
]
]

size: min size 18 ; limits function name padding to be max 18 chars
vals: make string! size
foreach [word arg] sort/skip list 2 [
append/dup clear vals #" " size
print [head change vals word any [arg ""]]
print rejoin ["^[[1;32m" head change vals word "^[[0m " any [arg ""]]
]
exit
]
Expand Down

0 comments on commit fba3b10

Please sign in to comment.