From e5b40a3f7c4eb6a0065bcb9c1a48c0debc7397a5 Mon Sep 17 00:00:00 2001
From: Ev Bogdanov <evbogdanov.com@gmail.com>
Date: Sat, 20 Jan 2018 18:07:28 +0300
Subject: [PATCH] Ops, tags can contain numbers (h1 and friends)

---
 bin/em | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/em b/bin/em
index eb98e26..0f5e566 100755
--- a/bin/em
+++ b/bin/em
@@ -47,7 +47,7 @@ BEGIN {
 
 	sub get_tag {
 		my $input = shift;
-		my ($tag) = $input =~ /^([a-z-]+)/i;
+		my ($tag) = $input =~ /^([a-z0-9-]+)/i;
 		return "div" unless $tag;
 		if (my $alias = $ALIASES{$tag}) {
 			return $alias;
@@ -57,7 +57,7 @@ BEGIN {
 
 	sub get_classes {
 		my $input = shift;
-		my ($classes_str) = $input =~ /^[a-z-]*\.([a-z0-9-_.]*)/i;
+		my ($classes_str) = $input =~ /^[a-z0-9-]*\.([a-z0-9-_.]*)/i;
 		return split /\./, $classes_str;
 	}