From 2251d9cb737dee44b7aad587972c8098057f99d1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 24 Mar 2017 09:18:56 +0100
Subject: Ms writer: Use custom .HRULE macro for horizontal rule.

---
 data/templates/default.ms | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

(limited to 'data/templates/default.ms')

diff --git a/data/templates/default.ms b/data/templates/default.ms
index 12f82cd55..17f0883b8 100644
--- a/data/templates/default.ms
+++ b/data/templates/default.ms
@@ -1,3 +1,17 @@
+.\" **** Custom macro definitions ****
+.\" * Super/subscript
+.\" (https://lists.gnu.org/archive/html/groff/2012-07/msg00046.html)
+.ds { \v'-0.3m'\\s[\\n[.s]*9u/12u]
+.ds } \s0\v'0.3m'
+.ds < \v'0.3m'\s[\\n[.s]*9u/12u]
+.ds > \s0\v'-0.3m'
+.\" * Horizontal line
+.de HLINE
+.LP
+.ce
+\l'20'
+..
+.\" **********************************
 $if(adjusting)$
 .ad $adjusting$
 $endif$
@@ -11,16 +25,6 @@ $if(has-inline-math)$
 delim ||
 .EN
 $endif$
-\" From https://lists.gnu.org/archive/html/groff/2012-07/msg00046.html
-\" Superscripts (ex tmac.e) (current versions without extra line space)
-.\" (reinstate commented versions to restore extra line space)
-.\" .ds { \v'-0.3m'\x'-0.2m'\\s[\\n[.s]*8u/10u]
-.ds { \v'-0.3m'\\s[\\n[.s]*9u/12u]
-.ds } \s0\v'0.3m'
-.\" Subscripts
-.\" .ds < \v'0.3m'\x'0.2m'\s[\\n[.s]*8u/10u]
-.ds < \v'0.3m'\s[\\n[.s]*9u/12u]
-.ds > \s0\v'-0.3m'
 $if(title)$
 .TL
 $title$
-- 
cgit v1.2.3