[Jifty-commit] r3093 - in jifty/trunk: .

[jifty-commit at lists.jifty.org]

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