From: Mischa POSLAWSKY Date: Mon, 8 Jul 2024 17:01:18 +0000 (+0200) Subject: perl: wrap code blocks on mobile screens X-Git-Tag: v1.20~23 X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/bf91078d6b5c7d4f5b376ddb25b825c9cabf8e85?ds=inline;hp=3a5001bc6cc19ade29104063c7275485b81b718c perl: wrap code blocks on mobile screens --- diff --git a/base.css b/base.css index 405b282..e7d5fdd 100644 --- a/base.css +++ b/base.css @@ -153,11 +153,17 @@ dl > dd { } @media (max-width: 42em) { .section dl { - grid: auto-flow / minmax(8em, 1fr) minmax(20em, 1fr); + grid: auto-flow / minmax(8em, 1fr) minmax(10em, 3fr); } dl > dd { margin-bottom: 1ex; /* distinguish rows more as dts can wrap */ } + dd small { + display: inline-block; + } + dd code { + white-space: normal; + } } /* "keyboard" (list of keys) */ diff --git a/common.inc.plp b/common.inc.plp index a634733..a9d5875 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -76,7 +76,7 @@ sub stylesheet { return map { sprintf( '', - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.18", $_ + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.19", $_ ) } @avail; } diff --git a/perl.inc.pl b/perl.inc.pl index ee7aaad..1291ceb 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -76,7 +76,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ], modules => [ [bignum => 'transparent big number support', 'length 1e100 == 101'], - [if => 'conditional module inclusion', 'no if $] >= 5.022, "warnings", "redundant"'], + [if => 'conditional module inclusion', 'no if $] >= 5.022, "warnings", "redundant"'], [sort => 'override sort() algorithm', {dropped => v5.28, eg => 'sort::current eq "stable"'}], [Digest => 'calculate various message digests (data hashes)', '$hash = sha256_hex($data)'], [Encode => 'character set conversion', 'encode("utf8", decode("iso-8859-1", $octets))'], @@ -86,7 +86,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'], ['MIME::Base64' => 'base64 encoded strings as in email attachments'], ['Test::More' => 'modern framework for unit testing', 'is $got, $expected'], - ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'], + ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'], ], release => '2002-07-18', distro => { @@ -122,9 +122,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ['state', 'persistent my variables (scalars only until 5.28)', {feature => 'state'}], ], modules => [ - [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'], + [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'], # overloading - ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz")'.$wbr.' => "recompressed.zip"'], + ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip'.$wbr.'->new("test.gz")'.$wbr.' => "recompressed.zip"'], ['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'], ['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")'.$wbr.'->fetch(to => \$slurp)'], ], @@ -337,7 +337,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.32 => { new => [ ['isa', 'infix operator to check class instance', {feature => 'isa', experimental => 'isa', stable => v5.36}], - ['$min < $_ <= $max', 'chained comparison repeats inner part as $min < $_ and $_ <= $max'], + ['$min < $_ <= $max', 'chained comparison repeats inner part as $min < $_ and $_ <= $max'], ['/\p{Name=$var}/', 'match Unicode Name property like \N{} but with interpolation and subpatterns'], [q"open F, '+>>', undef", 'respect append mode on temporary files with mixed access'], ["no feature 'indirect'", 'disable indirect object notation such as new Class instead of Class->new'], @@ -362,7 +362,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ['/{,n}/', 'empty lower bound quantifier is accepted as shorthand for 0'], ['\x{ … }', 'insignificant space within curly braces, also for \b{}, \g{}, \k{}, \N{}, \o{} as well as /{m,n}/ quantifiers'], ['0o0', 'octal prefix 0o alternative to 0… and oct'], - ['re::optimization(qr//)', 'debug regular expression optimization information discovered at compile time'], + ["re::optimization(${wbr}qr//)", 'debug regular expression optimization information discovered at compile time'], ['no feature …', 'disable discouraged practices of bareword_filehandles and multidimensional array emulation'], ], release => '2021-05-20', @@ -397,7 +397,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; new => [ ['use feature "module_true"', 'default in use 5.37 and up, also no feature "bareword_filehandles"'], ['sub ($var ||= default)', 'assign values when false (or undefined on //=) instead of omitted'], - ['/(*{ … })/', 'optimistic eval: (?{ … }) with regex optimisations enabled'], + ['/(*{ … })/', 'optimistic eval: (?{ … }) with regex optimisations enabled'], ['class', "define object classes: packages with field variables and method subroutines", {feature => 'class', experimental => 'class'}], ['${^LAST_SUCCESSFUL_PATTERN}', 'explicit variable to access the previous match as in s//…/'], ['%{^HOOK}', "perform tasks require__before and require__after when calling require"], # also @INC hook enhancements