From fabd109c15b7bb67101a76c9865c9bd5e7608921 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 14 Sep 2009 07:25:08 +0000 Subject: Improve support for outline mode: additional headings and sublevel support --- isar/isar-syntax.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) (limited to 'isar/isar-syntax.el') diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 83d879a5..8db7ae33 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -121,8 +121,20 @@ This list is in the right format for proof-easy-config.") isar-keywords-proof-script isar-keywords-qed-global)) -(defconst isar-keywords-outline - isar-keywords-theory-heading) +(defconst isar-outline-heading-alist + (list + (mapcar (lambda (w) (cons w 1)) + (append isar-keywords-theory-heading + isar-keywords-theory-begin + isar-keywords-theory-end)) + (mapcar (lambda (w) (cons w 2)) + (append isar-keywords-theory-script + isar-keywords-theory-goal)) + (mapcar (lambda (w) (cons w 3)) + (append isar-keywords-proof-heading + isar-keywords-theory-goal)) + (mapcar (lambda (w) (cons w 4)) + isar-keywords-proof-block))) (defconst isar-keywords-fume (append isar-keywords-theory-begin @@ -552,6 +564,11 @@ matches contents of quotes for quoted identifiers.") ;; ----- outline mode +(defconst isar-keywords-outline + (apply 'append + (mapcar (lambda (l) (mapcar 'car l)) + isar-outline-heading-alist))) + (defconst isar-outline-regexp (concat "[ \t]*\\(?:" (isar-ids-to-regexp isar-keywords-outline) "\\)") "Outline regexp for Isabelle/Isar documents") -- cgit v1.2.3