You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
646 B
17 lines
646 B
package require punk |
|
package require patternpunk |
|
|
|
pipealias block_padleft .= {list $input [string repeat " " $indent]} |/0,padding/1> linelist |> .= {lmap v $data {val "$padding$v"}} |> list_as_lines <input/0,indent/1| |
|
|
|
puts stdout "block_padleft pipeline" |
|
puts stdout "[alias block_padleft]" |
|
puts stderr "block_padleft \[>punk . logo] 50" |
|
puts stdout "[block_padleft [>punk . logo] 50]" |
|
|
|
|
|
package require overtype |
|
set out "" |
|
foreach ln [.= block_padleft [>punk . logo ] 2 |> linelist] bgline [.= block_padleft [>punk . logo] 100 |> linelist] { |
|
append out [overtype::left $bgline [a+ green bold]$ln[a+]]\n |
|
} |
|
puts stdout "$out" |