From 9606800a1155d95849a2bdaa18aff4daddcdf797 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Oct 2008 13:01:24 -0400
Subject: Special case indenting for <xml>...</xml>

---
 src/elisp/urweb-mode.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/elisp/urweb-mode.el')

diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el
index 5a673d23..86c39d96 100644
--- a/src/elisp/urweb-mode.el
+++ b/src/elisp/urweb-mode.el
@@ -452,6 +452,13 @@ If anyone has a good algorithm for this..."
 	  (1+ (current-column))
 	nil))))
 
+(defun urweb-begun-xml ()
+  "Check if this is the first new line in a new <xml>...</xml> section"
+  (save-excursion
+    (let ((start-pos (point)))
+      (previous-line 1)
+      (search-forward "<xml>" start-pos t))))
+
 (defun urweb-new-tags ()
   "Decide if the previous line of XML introduced unclosed tags"
   (save-excursion
@@ -487,7 +494,9 @@ If anyone has a good algorithm for this..."
                     (setq done t)
                   (decf depth)))
             (setq done t))))
-      (current-indentation))))
+      (if (looking-at "<xml")
+          (+ (current-indentation) 2)
+        (current-indentation)))))
 
 (defun urweb-calculate-indentation ()
   (save-excursion
@@ -517,6 +526,8 @@ If anyone has a good algorithm for this..."
                (cond
                 ((looking-at "</")
                  (urweb-tag-matching-indent))
+                ((urweb-begun-xml)
+                 (+ prev-indent 4))
                 ((urweb-new-tags)
                  (+ prev-indent 2))
                 (t
-- 
cgit v1.2.3