New files.

1 files changed, 82 insertions, 0 deletions

diff --git a/generic/proof-auxmodes.el b/generic/proof-auxmodes.el
new file mode 100644
index 00000000..a42ca070
--- /dev/null
+++ b/generic/proof-auxmodes.el
@@ -0,0 +1,82 @@
+;;; proof-auxmodes.el --- Arrange for auxiliary modes to be loaded when required
+;;
+;; Copyright (C) 2008 David Aspinall / LFCS Edinburgh
+;; Author:    David Aspinall <David.Aspinall@ed.ac.uk>
+;; License:   GPL (GNU GENERAL PUBLIC LICENSE)
+
+;;; Commentary:
+;; 
+;; Startup code from auxiliary modes are collected here, allowing late
+;; loading of their main defining files.
+;;
+;; TODO: add x-symbol here too and disentangle elsewhere.
+;;
+
+(require 'proof-utils)			; proof-ass, proof-eval...
+(require 'proof-autoloads)		; aux mode functions autoloaded
+
+;;; Code:
+
+;;
+;; MMM
+;;
+(defun proof-mmm-support-available ()
+  "A test to see whether mmm support is available."
+  (and
+   (or (featurep 'mmm-auto)
+       (progn
+	 ;; put bundled version on load path
+	 (setq load-path
+	       (cons
+		(concat proof-home-directory "mmm/")
+		load-path))
+	 ;; *should* always succeed unless bundled version broken
+	 (proof-try-require 'mmm-auto)))
+   ;; Load prover-specific config in <foo>-mmm.el
+   (proof-try-require (proof-ass-sym mmm))))
+
+(proof-eval-when-ready-for-assistant
+    (if (and (proof-ass mmm-enable)
+	     (proof-mmm-support-available))
+        (proof-mmm-set-global t)))
+
+
+;;
+;; Maths menu
+;;
+(defun proof-maths-menu-support-available ()
+  "A test to see whether maths-menu support is available."
+  (and
+   (not (featurep 'xemacs)) ;; not XEmacs compatible
+   (or (featurep 'maths-menu)
+       ;; *should* always succeed unless bundled version broken
+       (proof-try-require 'maths-menu))
+   ;; Load any optional prover-specific config in <foo>-maths-menu.el
+   (or (proof-try-require (proof-ass-sym maths-menu)) t)))
+
+(proof-eval-when-ready-for-assistant
+    (if (and (proof-ass maths-menu-enable)
+	     (proof-maths-menu-support-available))
+	(proof-maths-menu-set-global t)))
+
+
+;;
+;; Unicode tokens
+;; 
+(defun proof-unicode-tokens-support-available ()
+  "A test to see whether unicode tokens support is available."
+  (and
+   (or (featurep 'unicode-tokens)
+       (proof-try-require 'unicode-tokens))
+   ;; Requires prover-specific config in <foo>-unicode-tokens.el
+   (proof-try-require (proof-ass-sym unicode-tokens))))
+
+(proof-eval-when-ready-for-assistant
+    (if (and (proof-ass unicode-tokens-enable)
+	     (proof-unicode-tokens-support-available))
+	(proof-unicode-tokens-set-global t)))
+
+
+(provide 'proof-auxmodes)
+
+;;; proof-auxmodes.el ends here