From 6bf87b5fcfcc1766a4a000fc1c0c4ac2f5d7ded4 Mon Sep 17 00:00:00 2001
From: Galin Simeonov <gts@volconst.com>
Date: Sun, 16 May 2021 11:22:06 +0300
Subject: starting to separate control registers and macros

---
 g.tmac | 34 +++++++++++++++++++++++++---------
 1 file changed, 25 insertions(+), 9 deletions(-)

(limited to 'g.tmac')

diff --git a/g.tmac b/g.tmac
index e4a9744..2818b54 100644
--- a/g.tmac
+++ b/g.tmac
@@ -21,6 +21,21 @@
 .ds theorem_string Theorem
 .ds proof_string Proof
 \######################################################################### 
+.nr header_text_from_top_spacing 1
+.nr header_line_from_text_spacing 0.3
+.nr header_real_text_from_line_spacing 0.3
+.nr header_horizontal_line 1
+.nr header_horizontal_line_thickness 0.5p
+\######################################################################### 
+.nr indentation_is_by_how_much 0.5i
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
+\######################################################################### 
 .de place_footer_trap
 .wh -3v footer_trap_macro
 ..
@@ -49,12 +64,6 @@
 .wh 0
 ..
 \######################################################################### 
-.nr header_text_from_top_spacing 1
-.nr header_line_from_text_spacing 0.3
-.nr header_real_text_from_line_spacing 0.3
-.nr header_horizontal_line 1
-.nr header_horizontal_line_thickness 0.5p
-\######################################################################### 
 .de paragraph
 .ti \\n[paragraph_indentation]
 ..
@@ -311,19 +320,26 @@
 \}
 \}
 ..
+\######################################################################### 
 .de proof
 .br
 \f[B]\\*[proof_string]: \f[]
 .br
 ..
 \######################################################################### 
-.als newpage bp
-.als newline br
-\######################################################################### 
 .de verbatim
 .ie '\\$1'end' .fi
 .el .nf
 ..
+\######################################################################### 
+.de right
+.br
+.if '\\$1'end' .in -\\n[indentation_is_by_how_much]
+.el .in \\n[indentation_is_by_how_much]
+..
+\######################################################################### 
+.als newpage bp
+.als newline br
 .ig
 .als параграф paragraph
 .als заглавие title
-- 
cgit v1.2.3