#!/usr/bin/env dag
%t_by_name by_name
Webpage ---> Info Events Projects Publications {
open F, ">index.html";
print F "My Web Page".my_css()."My $_n
".$_j." Data Photo { "" };
Events ---> Txt* {"".$_n."
" };
Projects ---> Txt* {"".$_n."
" };
Publications ---> Bib* {"".$_n."
" };
Data { my @lines = split /\n/, $_c; join "
", @lines };
Photo { "![](".$_p.")
" };
Txt { $_n =~ s/\.txt$//; "".uc($_n)."
".$_c."" };
Bib { "
".(`/usr/local/bin/bib2x -f $_p -t /Users/smash/Downloads/bib2x-0.9.0/templates/tempmini.late `).""};
%%
sub my_css {
my $css=<<'EOF';
EOF
}
sub by_name {
my $path = shift;
$path =~ m/Info$/ and return 'Info';
$path =~ m/Events$/ and return 'Events';
$path =~ m/Projects$/ and return 'Projects';
$path =~ m/Publications$/ and return 'Publications';
$path =~ m/Webpage$/ and return 'Webpage';
$path =~ m/bib$/ and return 'Bib';
$path =~ m/txt$/ and return 'Txt';
$path =~ m/(jpg|png)$/ and return 'Photo';
$path =~ m/data$/ and return 'Data';
}