[Jifty-commit] r3093 - in jifty/trunk: .
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Wed Apr 4 01:05:49 EDT 2007
Author: jesse
Date: Wed Apr 4 01:05:43 2007
New Revision: 3093
Modified:
jifty/trunk/ (props changed)
jifty/trunk/doc/talks/present-slides
jifty/trunk/doc/talks/yapc.asia.2007.txt
Log:
r54438 at pinglin-2: jesse | 2007-04-04 14:04:04 +0900
* Slides system now has a presenter view
Modified: jifty/trunk/doc/talks/present-slides
==============================================================================
--- jifty/trunk/doc/talks/present-slides (original)
+++ jifty/trunk/doc/talks/present-slides Wed Apr 4 01:05:43 2007
@@ -11,10 +11,27 @@
my $counter = 0;
my $slides_played = {};
my $title;
+
+open(my $next_slide, ">/tmp/next_slide");
+select($next_slide);
+$| = 1;
+select(STDOUT);
while ( $counter <= $#SLIDES ) {
my $mode = 'text';
my ( $cols, $rows, undef, undef ) = GetTerminalSize();
my $slide = $SLIDES[$counter];
+
+ print $next_slide Term::ANSIScreen::cls;
+ print $next_slide locate(1,1);
+ print $next_slide colored("Time: ".scalar localtime ."\n", 'blue');
+ print $next_slide colored("Back 1\n", 'red');
+ print $next_slide $SLIDES[$counter-1] ."\n\n";
+ print $next_slide colored("This slide, $counter/".$#SLIDES."\n", 'blue');
+ print $next_slide $SLIDES[$counter] ."\n\n";
+ print $next_slide colored("Next slide\n", 'red');
+ print $next_slide $SLIDES[$counter+1];
+ print $next_slide "\n";
+
my $console = Term::ANSIScreen->new;
$console->Cls;
$console->Cursor(1,1);
Modified: jifty/trunk/doc/talks/yapc.asia.2007.txt
==============================================================================
--- jifty/trunk/doc/talks/yapc.asia.2007.txt (original)
+++ jifty/trunk/doc/talks/yapc.asia.2007.txt Wed Apr 4 01:05:43 2007
@@ -346,10 +346,10 @@
- Needs new functions for every attribute
---
#title Take 2
+#`mpg123 ~/katamari.mp3`
Object::Declare
---
#title Take 2: Object::Declare
-#`mpg123 ~/katamari.mp3`
Katamari for Code
---
#mode perl
@@ -507,7 +507,7 @@
---
We have THE symbol table
---
-But URLs can have characters that are illegal in sub names. :/
+But URLs have characters that are illegal in sub names. :/
---
Actually, Perl doesn't care
---
@@ -605,7 +605,6 @@
Test::WWW::Declare
---
#title Test::WWW::Declare
----
A language for testing web applications
---
In early development
More information about the Jifty-commit
mailing list