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.
|
|
|
|
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"
|
