diff --git a/data/people/aaron-crane b/data/people/aaron-crane new file mode 100644 index 0000000..759568a --- /dev/null +++ b/data/people/aaron-crane @@ -0,0 +1 @@ +name: Aaron Crane diff --git a/data/people/andrew-ford b/data/people/andrew-ford new file mode 100644 index 0000000..a8de75d --- /dev/null +++ b/data/people/andrew-ford @@ -0,0 +1,2 @@ +name: Andrew Ford +home: http://ford-mason.co.uk/ diff --git a/data/people/brett-estrado b/data/people/brett-estrado new file mode 100644 index 0000000..6463853 --- /dev/null +++ b/data/people/brett-estrado @@ -0,0 +1,2 @@ +name: Brett Estrado + diff --git a/data/people/przemek-wesoek b/data/people/przemek-wesoek new file mode 100644 index 0000000..0d4263b --- /dev/null +++ b/data/people/przemek-wesoek @@ -0,0 +1 @@ +name: Przemek WesoĊ‚ek diff --git a/data/people/stanisaw-romaski b/data/people/stanisaw-romaski new file mode 100644 index 0000000..1a06d66 --- /dev/null +++ b/data/people/stanisaw-romaski @@ -0,0 +1 @@ +name: Stanisaw Romaski diff --git a/data/people/ukasz-lipski-blindluke b/data/people/ukasz-lipski-blindluke new file mode 100644 index 0000000..48f8568 --- /dev/null +++ b/data/people/ukasz-lipski-blindluke @@ -0,0 +1,2 @@ +name: Ukasz Lipski +nickname: blindluke diff --git a/data/sources/london-perl-workshop-2011 b/data/sources/london-perl-workshop-2011 new file mode 100644 index 0000000..2753bec --- /dev/null +++ b/data/sources/london-perl-workshop-2011 @@ -0,0 +1,8 @@ +name: London Perl Workshop 2011 +format: markdown + + +__DESCRIPTION__ + +* [LPW 2011](http://conferences.yapceurope.org/lpw2011/) + diff --git a/data/sources/london-perl-workshop-2013 b/data/sources/london-perl-workshop-2013 index 01d4fc6..ae76fee 100644 --- a/data/sources/london-perl-workshop-2013 +++ b/data/sources/london-perl-workshop-2013 @@ -4,5 +4,5 @@ format: markdown __DESCRIPTION__ -[LPW 2013](http://act.yapc.eu/lpw2013/) +* [LPW 2013](http://act.yapc.eu/lpw2013/) diff --git a/data/sources/plpw2013 b/data/sources/plpw2013 index 76a31c7..df37be0 100644 --- a/data/sources/plpw2013 +++ b/data/sources/plpw2013 @@ -1,7 +1,8 @@ -name: PLPW - Polish Perl Workshop +name: PLPW - Polish Perl Workshop 2013 +format: markdown __DESCRIPTION__ - -PLPW 2013 -YouTube channel +* [PLPW](href="http://act.yapc.eu/) +* [PLPW 2013](href="http://act.yapc.eu/plpw2013/) +* [YouTube channel](https://www.youtube.com/user/polishperl) diff --git a/data/sources/plpw2014 b/data/sources/plpw2014 new file mode 100644 index 0000000..33d882d --- /dev/null +++ b/data/sources/plpw2014 @@ -0,0 +1,8 @@ +name: PLPW - Polish Perl Workshop 2014 +format: markdown + +__DESCRIPTION__ + +* [PLPW](href="http://act.yapc.eu/) +* [PLPW 2014](href="http://act.yapc.eu/plpw2014/) +* [YouTube channel](https://www.youtube.com/user/polishperl) diff --git a/data/videos/all-together---lighting-talks-plpw2014 b/data/videos/all-together---lighting-talks-plpw2014 new file mode 100644 index 0000000..4b28947 --- /dev/null +++ b/data/videos/all-together---lighting-talks-plpw2014 @@ -0,0 +1,13 @@ +id: 6LJ_LMSnIe0 +src: youtube +title: All Together - Lighting talks PLPW2014 +speaker: many +source: plpw2014 +view_count: 3 +favorite_count: 0 +length: 46:14 +date: 2014-05-17 +format: markdown + +__DESCRIPTION__ + diff --git a/data/videos/closures-in-perl-why-when-and-how-to-use b/data/videos/closures-in-perl-why-when-and-how-to-use new file mode 100644 index 0000000..47d28cc --- /dev/null +++ b/data/videos/closures-in-perl-why-when-and-how-to-use @@ -0,0 +1,14 @@ +id: TOK40mUL-zE +src: youtube +title: Closures in Perl: why, when and how to use +speaker: stanisaw-romaski +source: plpw2014 +view_count: 88 +favorite_count: 0 +length: 26:12 +date: 2013-05-26 +format: markdown + +__DESCRIPTION__ + +[abstract](http://act.yapc.eu/plpw2013/talk/4795) diff --git a/data/videos/creating-epub-documents-from-latex b/data/videos/creating-epub-documents-from-latex new file mode 100644 index 0000000..4d73110 --- /dev/null +++ b/data/videos/creating-epub-documents-from-latex @@ -0,0 +1,18 @@ +id: esgiHbyqWhk +src: youtube +title: Creating EPub Documents from LaTex +speaker: andrew-ford +source: london-perl-workshop-2011 +view_count: 517 +favorite_count: 0 +length: 46:51 +date: 2011-11-12 +format: markdown + +__DESCRIPTION__ + +Recorded at the London Perl Workshop 2011 + +Will discuss what ePub is (in its own right and as an input format for conversion to Kindle books) and describe how Perl can be used to convert from LaTeX (using LaTeXML and EBook::EPUB), along with the pitfalls and work-arounds for converting 10-year old book LaTeX sources, originally written with print media in mind. + +[abstract](http://conferences.yapceurope.org/lpw2011/talk/3865) diff --git a/data/videos/how-to-code-like-larry-wall b/data/videos/how-to-code-like-larry-wall index 619213e..e8121f4 100644 --- a/data/videos/how-to-code-like-larry-wall +++ b/data/videos/how-to-code-like-larry-wall @@ -8,6 +8,7 @@ favorite_count: 0 length: 06:05 date: 2011-06-13 format: markdown +featured: 2014-06-15 __DESCRIPTION__ diff --git a/data/videos/indexing-stuff-and-things-with-sphinx-and-perl b/data/videos/indexing-stuff-and-things-with-sphinx-and-perl new file mode 100644 index 0000000..e0e757e --- /dev/null +++ b/data/videos/indexing-stuff-and-things-with-sphinx-and-perl @@ -0,0 +1,16 @@ +id: Ku4tIsxmeXw +src: youtube +title: Indexing stuff and Things with Sphinx and Perl +speaker: brett-estrado +source: houston-perl-mongers +view_count: 16 +favorite_count: 0 +length: 51:36 +date: 2014-05-08 +format: markdown +tags: Sphinx + +__DESCRIPTION__ + +[Shinx](http://sphinxsearch.com/) + diff --git a/data/videos/mandarin-chinese-the-good-parts b/data/videos/mandarin-chinese-the-good-parts new file mode 100644 index 0000000..93bd011 --- /dev/null +++ b/data/videos/mandarin-chinese-the-good-parts @@ -0,0 +1,15 @@ +id: jR0_dmMWkqg +src: youtube +title: Mandarin Chinese: the good parts +speaker: carl-masak +source: plpw2014 +view_count: 3 +favorite_count: 0 +length: 39:09 +date: 2014-05-17 +format: markdown + +__DESCRIPTION__ + +[abstract](http://act.yapc.eu/plpw2014/talk/5275) + diff --git a/data/videos/monkey-patching-subclassing-and-accidental-overwriting b/data/videos/monkey-patching-subclassing-and-accidental-overwriting new file mode 100644 index 0000000..167622a --- /dev/null +++ b/data/videos/monkey-patching-subclassing-and-accidental-overwriting @@ -0,0 +1,22 @@ +id: NnUlCyg-io8 +src: youtube +title: Monkey Patching, Subclassing and Accidental OverWriting +speaker: aaron-crane +source: london-perl-workshop-2011 +view_count: 312 +favorite_count: 0 +length: 22:43 +date: 2011-11-12 +format: markdown + +__DESCRIPTION__ + +Recorded at the London Perl Workshop 2011 + +We all know that CPAN is one of Perl's biggest advantages. But sometimes, you find yourself using a CPAN class that doesn't have quite enough features for what you're trying to do. What's the best way to deal with that sort of situation? + +One option would be to monkey-patch new code into the CPAN class you're using - just add extra subroutines to the original namespace. But unconstrained monkey-patching has consequences that make it extremely hard to use in practice. So the usual alternative recommendation is to subclass the CPAN code, add the new methods in the subclass, and then ensure that the rest of your program always uses the subclass in place of the original. But that approach has two flaws. First, it can be awkward to make sure your subclass is always used in the right places. Second, it doesn't actually fix the problem: you can still experience all the same issues as with monkey-patching! + +This talk examines the problems with this sort of reuse, whether you're trying to use monkey-patching or subclassing. It also offers some solutions that take advantage of Perl's flexibility to make it both easy and safe, regardless of whether you're using Perl's built-in OO or a full-featured object system like Moose. + +[abstract](http://conferences.yapceurope.org/lpw2011/talk/3707) diff --git a/data/videos/reactive-programming-in-perl-6 b/data/videos/reactive-programming-in-perl-6 index d096cde..e77f584 100644 --- a/data/videos/reactive-programming-in-perl-6 +++ b/data/videos/reactive-programming-in-perl-6 @@ -9,6 +9,7 @@ length: 43:26 date: 2014-04-25 format: markdown tags: Perl 6 +featured: 2014-06-14 __DESCRIPTION__ diff --git a/data/videos/twists-and-turns-of-turn-based-games b/data/videos/twists-and-turns-of-turn-based-games new file mode 100644 index 0000000..6efc659 --- /dev/null +++ b/data/videos/twists-and-turns-of-turn-based-games @@ -0,0 +1,15 @@ +id: MVoOlHKsXJY +src: youtube +title: Twists and turns of turn based games +speaker: ukasz-lipski-blindluke +source: plpw2014 +view_count: 5 +favorite_count: 0 +length: 13:03 +date: 2014-05-17 +format: markdown + +__DESCRIPTION__ + +[abstract](http://act.yapc.eu/plpw2014/talk/5477) + diff --git a/data/videos/when-tex-met-perl-two-crazy-languages-and-their-sane-marriage b/data/videos/when-tex-met-perl-two-crazy-languages-and-their-sane-marriage new file mode 100644 index 0000000..7d52095 --- /dev/null +++ b/data/videos/when-tex-met-perl-two-crazy-languages-and-their-sane-marriage @@ -0,0 +1,15 @@ +id: oS-aAoJYoU4 +src: youtube +title: When TeX met Perl: two crazy languages and their sane marriage +speaker: przemek-wesoek +source: plpw2014 +view_count: 2 +favorite_count: 0 +length: 26:57 +date: 2014-05-17 +format: markdown + +__DESCRIPTION__ + +[abstract](http://act.yapc.eu/plpw2014/talk/5409) + diff --git a/lib/PerlTV.pm b/lib/PerlTV.pm index ff863e9..0618222 100644 --- a/lib/PerlTV.pm +++ b/lib/PerlTV.pm @@ -82,6 +82,10 @@ hook before_template => sub { $t->{statistics} = 1; } + if ($t->{videos}) { + $t->{show_toggles} = 1; + } + return; }; diff --git a/public/css/style.css b/public/css/style.css index a951ece..36e8960 100644 --- a/public/css/style.css +++ b/public/css/style.css @@ -2,10 +2,7 @@ body { margin: 0; margin-bottom: 25px; padding: 0; - background-color: #ddd; - background-repeat: no-repeat; - background-position: top left; - + background-color: #FFF; font-family: "Lucida Grande", "Bitstream Vera Sans", "Verdana"; font-size: 13px; color: #333; @@ -23,7 +20,7 @@ a { text-decoration: none; } a:hover { - text-decoration: underline; + background-color: #EEE; } #page { @@ -36,9 +33,7 @@ a:hover { } #content { - background-color: white; - border: 3px solid #aaa; - border-top: none; + background-color: #FFF; padding: 0px; float: left; width: 70%; @@ -47,7 +42,6 @@ a:hover { #sidebar { float: left; width: 220px; -/* border: 1px solid;*/ padding-left: 20px; top 0; right 0; @@ -58,7 +52,6 @@ a:hover { padding-right: 30px; background-repeat: no-repeat; background-position: top left; - border-top: 1px solid #ccc; padding-top: 15px; max-width: 700px; } @@ -76,7 +69,6 @@ a:hover { margin-top: 25px; font-size: 16px; padding-bottom: 10px; - border-bottom: 1px solid #ccc; } #sidebar li { list-style-type: none; diff --git a/views/index.tt b/views/index.tt index f3eabe6..6ba8f9a 100644 --- a/views/index.tt +++ b/views/index.tt @@ -1,5 +1,4 @@
-

Welcome to the Perl TV

<% INCLUDE incl/embed.tt %>

<% video.title %>

diff --git a/views/layouts/main.tt b/views/layouts/main.tt index 16cb189..59cc173 100644 --- a/views/layouts/main.tt +++ b/views/layouts/main.tt @@ -13,9 +13,11 @@
<% content %> +
- + <% INCLUDE incl/statistics.tt %> diff --git a/views/list.tt b/views/list.tt index 71d51fc..11bf42f 100644 --- a/views/list.tt +++ b/views/list.tt @@ -1,5 +1,4 @@
-

Welcome to the Perl TV

Total <% videos.size %>
<% IF tag %> diff --git a/views/page.tt b/views/page.tt index 6b4b0d7..9f2e12a 100644 --- a/views/page.tt +++ b/views/page.tt @@ -1,12 +1,11 @@
-

Welcome to the Perl TV

+

<% video.title %>

<% INCLUDE incl/embed.tt %> <% IF video.language %> This video is in <% video.language_in_english %>. <% END %> -

<% video.title %>

Length: <% video.length %> <% video.source_name %>
<% INCLUDE incl/speaker.tt %>