Tom Browder tbrowder

A proposal for a Perl 6-hosted Advent Calendar

I will set up a simple but working website on a Digital Ocean droplet where a basic design and procedures can be experimented with.

The DO server was created on 2016-12-09:

	# consider the following code from perl6/doc/htmlify.p6 starting at line 772:
	pod-table($*DR.lookup($kind, :by<kind>)\
	.grep({$category ⊆ .categories})\ # XXX
	.categorize(.name).sort(.key)>>.value
	.map({[
	.map({.subkinds // Nil}).unique.join(', '),
	pod-link(.[0].name, .[0].url),
	.&summary
	]})

	Writing language document for Documentation ...
	Cannot resolve caller find-headings(Pod::Config.new(type => "item", config => {:numbered("1")}), Any); none of these signatures match:
	(Str $s is raw, :$inside-heading)
	(Pod::FormattingCode $node is raw where { ... }, :$inside-heading)
	(Pod::Heading $node is raw, :$inside-heading)
	(Positional \list, :$inside-heading)
	(Pod::Block $node is raw, :$inside-heading)
	(Pod::Raw $node is raw, :$inside-heading)
	in method throw at /home/travis/.rakudobrew/moar-nom/install/share/perl6/runtime/CORE.setting.moarvm line 1
	in sub do-toc at /home/travis/.rakudobrew/moar-nom/install/share/perl6/site/sources/288871C41A3B66B47FE3182C4BFE934A79450BF2 (Pod::To::HTML) line 227

	=begin pod

	=TITLE class Str

	=SUBTITLE String of characters

	=head2 sub sprintf

	=comment Features are still being tested for implementation, so some
	of the following features may be removed

	Problem:
	=======

	A Perl 6 module (Net::B) under development (in a local clone of your
	Github repo) needs another Perl 6 module (Net::A) under development,
	and neither module is in the Perl 6 ecosystem.

	Given:
	=====

	NOTES:

	1. The following comments are from my initial foray into the current Perl 6
	ecosystem and they are an attempt to help me understand my place in it as a
	module developer. All opinions are mine and are subject to change based
	on new empirical evidence or critique by those who know the system better
	than I.

	2. The description assumes use of Github for all version control but could
	probably apply to other public version control systems as well.

	#!/usr/bin/env perl6

	use Test;
	use File::Temp;

	multi sub dtext(IO::Handle:D $f, Str $str is copy, Bool :$triple = False) {
	my $s = $str ~ $str; # double the input text
	$s ~= $str if $triple; # or triple it
	$f.say: $s;
	}

	<?xml version="1.0"?>
	<html xmlns:og="http://opengraphprotocol.org/schema/" xmlns:fb="http://www.facebook.com/2008/fbml" xmlns="http://www.w3.org/1999/xhtml">
	<head>
	<link rel="shortcut icon" href="/favicon.ico"/>
	<title> Federal Holidays </title>
	<meta content="IE=edge" http-equiv="X-UA-Compatible"/>
	<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
	<meta name="description" content="Welcome to opm.gov"/>
	<meta name="keywords" content="OPM,Office of Personnel Management,opm.gov"/>
	<meta name="Expires"/>