From 2f64e3906da2361489ddf902c140e71119647869 Mon Sep 17 00:00:00 2001
From: Philipp Schafft <lion@lion.leolix.org>
Date: Mon, 1 May 2017 12:44:26 +0000
Subject: Feature: Support defining short-paw ^tags (non-auto-mode)

---
 webgenp-blog | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/webgenp-blog b/webgenp-blog
index c603b5b..397ff9b 100755
--- a/webgenp-blog
+++ b/webgenp-blog
@@ -170,6 +170,9 @@ sub read_file_tags {
         } elsif ($line =~ /\!language\s+(\S+)$/) {
             $language = $1;
             $meta{'languages'}->{$language} = 1;
+        } elsif ($line =~ /^(\^\S+)\s+('\S+)$/) {
+            $tags->{$2} ||= {};
+            $tags->{$1} = $2;
         } elsif ($line =~ /^('\S+)\s+(\S+)$/) {
             $tags->{$1} ||= {};
             $tags->{$1}->{$language} = $2;
@@ -300,6 +303,10 @@ sub tags_resolve {
     foreach my $tag (split(/\s*,\s*/, $str)) {
         my $len;
 
+        if (substr($tag, 0, 1) eq '^' && defined($meta{'tags'}->{$tag}) ) {
+            $tag = $meta{'tags'}->{$tag};
+        }
+
         if (substr($tag, 0, 1) eq '\'') {
             $meta{'tags'}->{$tag} ||= {};
             push(@res, $tag);
@@ -317,7 +324,7 @@ sub tags_resolve {
             }
         }
 
-        die sprintf('No match for tag "^%s"', $tag);;
+        die sprintf('No match for tag "^%s"', $tag);
     }
 
     return \@res;
-- 
cgit v1.2.3