Date::Dump::Tree::MultiColums - Tabulates lists of text


NAME

SYNOPSIS

display_columns <1 2 3>, my_get_lines(), :named_option, ...


See I<examples/two_colums> in the distribution for multiple examples


DESCRIPTION

Given a list of string lists, return a tabulated version of the input lists.


use Data::Dump::Tree ;
use Data::Dump::Tree::MultiColumns ;


display_columns <line other_line>, get_dump_lines_integrated([6..12]), 1..6, :width(20) ;


line                 [7] @0               1
other_line           ├ 0 = 6.Int          2
		     ├ 1 = 7.Int          3
		     ├ 2 = 8.Int          4
		     ├ 3 = 9.Int          5
		     ├ 4 = 10.Int         6
		     ├ 5 = 11.Int
		     └ 6 = 12.Int


INTERFACE

item

head

Both subs take a variable number of string lists


The maximum width of the output, multiple rows of columns will be generated if necessary


Set the width of each column to fit the column's content. It will override I<:width>


AUTHOR

Nadim ibn hamouda el Khemir
https://github.com/nkh


LICENSE

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl6 itself.



sub display_columns(**@rs, Int :$total_width, Int :$width, Bool :$compact) is export
{
print get_columns(|@rs, :$total_width, :$width, :$compact) ;
}

my regex COLOR { \[ \d+ [\;\d+]* <?before [\;\d+]* > m }

my role MaxLines { has $.max_lines is rw = 0 }

sub get_columns(**@rs, Int :$total_width, Int :$width, Bool :$compact --> Str) is export
{
return '' unless @rs ;

my $current_length = 0 ;
my $current_block = [] but MaxLines ;
my $current_block_max_length = 0 ;
my @blocks = $current_block ;

for |@rs
	{
	my @lines_width ;
	my $elements = $_.elems ;

	# compute width without ANSI escape codes
	my $r_max_width = (.map: { my $w = S:g/ \e <COLOR> //.chars ; @lines_width.push: $w ; $w }).max ;

	my $r_width = $compact ?? $r_max_width !! max $width // 0, $r_max_width ;

	if $total_width.defined && $current_length + $r_width >= $total_width
		{
		$current_length = 0 ;
		$current_block = [] but MaxLines ;
		@blocks.push: $current_block ;
		}

	$current_block.max_lines max= $elements ;
	$current_length += $r_width + 1 ; # joined with a single space later
	$current_block.push: $r_width, @lines_width, $_ ;
	}

my $o = '' ;

for @blocks -> @block
	{
	for ^@block.max_lines -> $index
		{
		my $string ;

		for @block -> $width, $width_lines, $lines
			{
			$string ~= $index < $lines.elems
					?? $lines[$index] ~ (' ' x $width - $width_lines[$index]) ~ ' '
					!! ' ' x $width ~ ' ' ;
			}

		$o ~= $string ~ "\n" ;
		}
	}

$o ;
}


DOC INIT { use Pod::To::Text ; pod2text($

root

Data::Dump::Tree::TerminalPrint


Date::Dump::Tree::LayHorizontal - layout data in horizontal or column mode


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React
