From 870cac41daaa4450b16d4ab3cf951cb664388e95 Mon Sep 17 00:00:00 2001
From: Galin Simeonov <gts@volconst.com>
Date: Mon, 24 May 2021 23:44:19 +0300
Subject: Superscript added. Footnotes are now superscripted numbers

---
 g.tmac | 28 ++++++++++++++++++----------
 1 file changed, 18 insertions(+), 10 deletions(-)

diff --git a/g.tmac b/g.tmac
index 3c18261..b11ed8b 100644
--- a/g.tmac
+++ b/g.tmac
@@ -34,6 +34,9 @@
 \######################################################################### 
 .nr list_padding 0.2
 \######################################################################### 
+.nr superscript_size_decrease 3 
+.nr subscript_size_decrease 3 
+\######################################################################### 
 \######################################################################### 
 \######################################################################### 
 \######################################################################### 
@@ -128,13 +131,8 @@
 \######################################################################### 
 .de title_space
 .if !d title_space_has_been_outputed \{\
-
-
-
-
-
-
-
+.br
+.sp 10
 .ds title_space_has_been_outputed "yes"
 \}
 ..
@@ -184,17 +182,23 @@
 \}
 .el \{\
 .nr footnote_current_number +1
-[\\n[footnote_current_number]]
+.superscript \\n[footnote_current_number]
 .ev footnote_environment
 .boxa footnote_text
-[\\n[footnote_current_number]]
+.superscript \\n[footnote_current_number]
+\}
+..
+\######################################################################### 
+.de mark_footnote
+.if !'\\$1'' \{
+.ds \\$1 \\n[footnote_current_number]
 \}
 ..
 \######################################################################### 
 .de paste_footnote
 \# divert possible unfinished line
 .di footnote_text_unfinished_text_hold
-.br
+
 .di
 .if d footnote_text \{\
 \# separator
@@ -382,6 +386,10 @@
 \}
 ..
 \######################################################################### 
+.de superscript
+\s-\\n[superscript_size_decrease]\v'-0.5v'\h'-0.2v'\\$1\v'+0.5v'\s+\\n[superscript_size_decrease]
+..
+\######################################################################### 
 .als newpage bp
 .als newline br
 .ig
-- 
cgit v1.2.3