Superscript added. Footnotes are now superscripted numbers

1 files 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