Link the post title to url

1 files changed, 3 insertions, 4 deletions

diff --git a/draco.pl b/draco.pl
index 6209123..bd5be36 100755
--- a/draco.pl
+++ b/draco.pl
@@ -53,8 +53,8 @@ my $date = strftime '%+', localtime();
 print "#+", "DATE: $date\n";
 print "\n";
 
-# Print the post title.
-print "* ", "$post->{title}\n";
+# Print the post title & it's link.
+print "* ", "[[$post->{url}][$post->{title}]]\n";
 
 # Add various details to :PROPERTIES:.
 print ":PROPERTIES:\n";
@@ -65,13 +65,12 @@ foreach my $detail (qw( subreddit created_utc author permalink
 }
 print ":END:\n";
 
-# Add selftext/url if present.
+# Add selftext if present.
 print "\n#+BEGIN_SRC markdown\n",
     # Break the text at 76 column & add 2 space before every new line.
     "  ", $lb->break($post->{selftext}) =~ s/\n/\n\ \ /gr, "\n",
     "#+END_SRC\n"
     if scalar $post->{selftext};
-print "$post->{url}\n" if scalar $post->{selftext};
 
 # $comments contains comment data. We are interested in: replies,
 # author, body, created_utc & permalink.