imperfect, but works

routes.pm

@@ -41,7 +41,7 @@ our %routes = (
         callback => \&Trog::Routes::HTML::posts,
         data     => { tag => ['project'] },
     },
-    '/mostrecent.html' => {
+    '/talks/mostrecent.html' => {
         method   => 'GET',
         callback => \&Trog::Routes::HTML::posts,
         data     => { tag => ['presentations'], limit => 1 },
@@ -55,7 +55,7 @@ our %routes = (
         method   => 'GET',
         callback => sub {Trog::Routes::HTML::redirect_permanent('/themes/houston.pm/styles/houston.css') },
     },
-    '/talks/(.*)' => {
+    '/talks/(\d.*)' => {
         method   => 'GET',
         callback => sub {
             my ($query) = @_;
@@ -63,6 +63,10 @@ our %routes = (
         },
         captures => ['fragment'],
     },
+    '/meetings.html' => {
+        method => 'GET',
+        callback => \&meetings,
+    },
 );
 
 my $processor = Text::Xslate->new(
@@ -70,8 +74,9 @@ my $processor = Text::Xslate->new(
 );
 
 my %paths = (
-    '/meetings.html'         => 'Past & Upcoming Meetings',
-    '/announce_meeting.html' => 'Latest Meeting',
+    '/talks/index.html'      => 'Past Meetings',
+    '/talks/mostrecent.html' => 'Latest Meeting',
+    '/projects/index.html'   => 'Group Projects',
 );
 
 sub path_to_tile ($path) {
@@ -88,4 +93,14 @@ sub faq ($args, $render_cb) {
     return Trog::Routes::HTML::index($args,$render_cb, $out);
 }
 
+sub meetings ($args, $render_cb) {
+    my $out = $processor->render('meetings.tx');
+    return Trog::Routes::HTML::index($args,$render_cb, $out);
+}
+
+sub announce ($args, $render_cb) {
+    my $out = $processor->render('announce.tx');
+    return Trog::Routes::HTML::index($args,$render_cb, $out);
+}
+
 1;

templates/announce.tx

@@ -0,0 +1,25 @@
+<h1 class="subhead">Next Meeting</h1>
+
+<p>The December meeting will be held on Zoom.</p>
+
+<ul style="list-style-type: none">
+    <li>Time: December 10, 2020 06:00 PM Central Time (US and Canada)</li>
+    <li>Join Zoom Meeting <a href="https://us02web.zoom.us/j/920069702">https://us02web.zoom.us/j/920069702</a></li>
+    <li>Meeting ID: 920 069 702</li>
+    <li>Find your local number: <a href="https://us02web.zoom.us/u/kijzdeGpk">https://us02web.zoom.us/u/kijzdeGpk</a></li>
+</ul>
+
+<p>The passcode is available by executing the following Perl code:</p>
+
+<pre><code>
+print +(0b1000100).((3&lt;&lt;2)*10).(010)
+</code></pre>
+
+<p>the result will be your 6 digit passcode.</p>
+
+<p>The idea for Perl code to generate the passcode was stolen from example for SanDiego.pm meeting by $Bob: <a href="http://blogs.perl.org/users/bob/2020/07/sandiegopm-meeting-tuesday-july-14th-2020.html" target="_blank">blog post</a>.
+
+</p><p>This month, Brett Estrade will present <em>Atomic Operations in Unix (and Perl)</em>.</p>
+
+<p>Brett Estrade (ESTRABD on CPAN)</p>
+

templates/default.tx

@@ -1,12 +1,12 @@
 <h1 class="subhead">Houston Perl Mongers Group</h1>
 
 <div id="sidebar">
-    <h1 class="heading">What's New <a class="rss" href="/blog?rss=1"></a></h1>
+    <h1 class="heading">What's New <a class="rss" href="/posts?format=rss&tag=presentations"></a></h1>
   <p>Meeting notes Nov, 2020 are on-line</p>
   <h1 class="heading">Next Meeting</h1>
   <dl>
-    <dt><time datetime="2020-12-10">December 10, 2020</time></dt>
-    <dd><a href="announce_meeting.html" target="_blank" rel="noopener"><em>tCMS : yet another CMS written in Perl</em></a> with George S. Baugh on Zoom</dd>
+    <dt><time datetime="2021-01-14">January 14, 2021</time></dt>
+    <dd><a href="announce_meeting.html" target="_blank" rel="noopener"><em>Atomic Operations in Unix (and Perl)</em> with Brett Estrade on Zoom</dd>
   </dl>
 
 </div>

templates/meetings.tx

@@ -0,0 +1,26 @@
+<h1 class="subhead">Monthly Meetings</h1>
+
+<p>We meet the second Thursday of each month, starting around 6pm and ending
+  around 8pm. Houston.pm meetings have split into <a href="technical_meetings.html">technical meetings</a> and
+  <a href="social_meetings.html">social meetings</a>.</p>
+
+<p>The meetings are announced on the Houston.pm mailing list, on <a href="https://twitter.com/houstonpm">Houston.pm twitter account</a>
+  and in our <a href="http://houston.pm.home/atom.xml">Atom
+  feed</a>. We try to announce the meetings at least a couple of weeks in
+  advance, but that is not guaranteed.</p>
+
+<h2 class="subhead">Upcoming Meetings</h2>
+
+<dl>
+    <dt><time datetime="2021-01-14">January 14, 2021</time></dt>
+    <dd><em>Atomic Operations in Unix (and Perl)</em> with Brett Estrade on Zoom</dd>
+
+    <dt><time datetime="2021-02-11">February 11, 2021</time></dt>
+    <dd>TBD at Hostgator</dd>
+
+    <dt><time datetime="2021-03-11">March 11, 2021</time></dt>
+    <dd>TBD at cPanel</dd>
+
+</dl>
+
+