From c64ba0a7927e5c7706e3874e3acb7a35558ac526 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 31 Oct 2016 18:45:31 +0200
Subject: Make extra man page fields configurable

---
 src/asciideck_to_manpage.erl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'src/asciideck_to_manpage.erl')

diff --git a/src/asciideck_to_manpage.erl b/src/asciideck_to_manpage.erl
index eafd275..47eb932 100644
--- a/src/asciideck_to_manpage.erl
+++ b/src/asciideck_to_manpage.erl
@@ -19,7 +19,7 @@
 -export([translate/2]).
 
 translate(AST, Opts) ->
-	{Man, Section, Output0} = man(AST),
+	{Man, Section, Output0} = translate_man(AST, Opts),
 	{CompressExt, Output} = case Opts of
 		#{compress := gzip} -> {".gz", zlib:gzip(Output0)};
 		_ -> {"", Output0}
@@ -32,11 +32,11 @@ translate(AST, Opts) ->
 			Output
 	end.
 
-man([{title, #{level := 0}, Title0, _Ann}|AST]) ->
+translate_man([{title, #{level := 0}, Title0, _Ann}|AST], Opts) ->
 	[Title, << Section:1/binary, _/bits >>] = binary:split(Title0, <<"(">>),
-	Extra1 = "2016-10-17", %% @todo
-	Extra2 = "Project 1.0", %% @todo
-	Extra3 = "Project Function Reference", %% @todo
+	Extra1 = maps:get(extra1, Opts, today()),
+	Extra2 = maps:get(extra2, Opts, ""),
+	Extra3 = maps:get(extra3, Opts, ""),
 	{Title, Section, [
 		".TH \"", Title, "\" \"", Section, "\" \"",
 			Extra1, "\" \"", Extra2, "\" \"", Extra3, "\"\n"
@@ -44,6 +44,10 @@ man([{title, #{level := 0}, Title0, _Ann}|AST]) ->
 		man(AST, [])
 	]}.
 
+today() ->
+	{{Y, M, D}, _} = calendar:universal_time(),
+	io_lib:format("~b-~2.10.0b-~2.10.0b", [Y, M, D]).
+
 man([], Acc) ->
 	lists:reverse(Acc);
 man([{title, #{level := 1}, Title, _Ann}|Tail], Acc) ->
-- 
cgit v1.2.3