From a3a853c548bca2f2513f49a6f04e3c953468fb6d Mon Sep 17 00:00:00 2001
From: Drew DeVault <sir@cmpwn.com>
Date: Mon, 14 May 2018 18:38:23 -0400
Subject: [PATCH] Fix dashes in preamable

Fixes https://todo.sr.ht/~sircmpwn/scdoc/9

---
 src/main.c    | 2 +-
 test/preamble | 8 +++++++-

diff --git a/src/main.c b/src/main.c
index 2431eb11b734ea91c16c217a8c05a4a281b761ea..3431ecf2a70163514c1a1b0dd7b152416931a053 100644
--- a/src/main.c
+++ b/src/main.c
@@ -47,7 +47,7 @@ 	time(&now);
 	struct tm *now_tm = localtime(&now);
 	strftime(date, sizeof(date), "%F", now_tm);
 	while ((ch = parser_getch(p)) != UTF8_INVALID) {
-		if (ch < 0x80 && isalnum(ch)) {
+		if ((ch < 0x80 && isalnum(ch)) || ch == '_' || ch == '-') {
 			assert(str_append_ch(name, ch) != -1);
 		} else if (ch == '(') {
 			section = parse_section(p);
diff --git a/test/preamble b/test/preamble
index da35b974ca6f9b4756add0d0102672cabc76b170..4d652c73934747ae54f6b29c89696201c81d94ef 100755
--- a/test/preamble
+++ b/test/preamble
@@ -15,7 +15,7 @@ end 1
 
 begin "Expects name to alphanumeric"
 scdoc <<EOF >/dev/null
-____(8)
+!!!!(8)
 EOF
 end 1
 
@@ -42,3 +42,9 @@ scdoc <<EOF | grep '^\.TH "test" "8" "'"$(date +'%F')"'"' >/dev/null
 test(8)
 EOF
 end 0
+
+begin "Preserves dashes"
+scdoc <<EOF | grep '^\.TH "test-manual" "8" "'"$(date +'%F')"'"' >/dev/null
+test-manual(8)
+EOF
+end 0

-- 
2.48.1