27 lines
478 B
Perl
Executable file
27 lines
478 B
Perl
Executable file
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use autodie;
|
|
use DateTime;
|
|
|
|
if (@ARGV != 1) {
|
|
die qq{Usage: $0 "New Post Title".\n}
|
|
}
|
|
|
|
# Get the kind of post to create from the script name.
|
|
(my $what = $0) =~ s{^.*/new_(\w+)$}{$1};
|
|
my $dir = '_posts';
|
|
my $title = $ARGV[0];
|
|
|
|
(my $name = $title) =~ tr/A-Z /a-z-/;
|
|
my $date = DateTime->now()->ymd;
|
|
|
|
open(my $fh, '>', "$dir/$date-$name.md");
|
|
binmode($fh);
|
|
print $fh <<EOF
|
|
---
|
|
title: "$title"
|
|
date: $date
|
|
comments: true
|
|
---
|
|
EOF
|