| Subject: | [PATCH] Add support for only printed text |
Writing notes for a slideshow in the same document is an important
feature for me. S5 supports it via <div class="handout">.
The following patch tries to add this feature.
| Subject: | Pod-S5-note.patch |
diff -ru Pod-S5-0.08-orig/S5.pm Pod-S5-0.08/S5.pm
--- Pod-S5-0.08-orig/S5.pm 2007-12-07 12:57:18.000000000 +0100
+++ Pod-S5-0.08/S5.pm 2008-10-01 17:45:36.000000000 +0200
@@ -547,6 +547,15 @@
$s5 .= $text;
}
+sub formatter_note {
+ my($text) = @_;
+ local $_ = $text;
+
+ s/\s\s*$/ /gs; # remove trailing spaces
+ s/</</gs; # replace <
+ $s5 .= qq(<div class="handout">$_</div>);
+}
+
sub prepare {
my($text) = @_;
local $_ = $text;
@@ -749,6 +758,20 @@
To get a list of the available languages, refer to the
L<Syntax::Highlight::Engine::Kate> manpage.
+=item
+
+You can add any extra information that should be included in
+the printed version of the presentation, but should not appear
+in the slide show. Use the formatter C<note>.
+
+Example:
+
+ =begin note
+
+ Remember, it's time to ask a question.
+
+ =end note
+
=back
diff -ru Pod-S5-0.08-orig/demo/example.pod Pod-S5-0.08/demo/example.pod
--- Pod-S5-0.08-orig/demo/example.pod 2007-12-07 13:08:26.000000000 +0100
+++ Pod-S5-0.08/demo/example.pod 2008-10-01 17:38:17.000000000 +0200
@@ -9,6 +9,12 @@
Es folgen einige Beispiele:
+=begin note
+
+Ich spreche kein Deutsch.
+
+=end note
+
=head1 Source Code
=begin perl