[AUCTeX-diffs] Changes to auctex/context.el,v

[Berend de Boer]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Berend de Boer <berenddeboer>   06/08/05 04:05:25

Index: context.el
===================================================================
RCS file: /cvsroot/auctex/auctex/context.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- context.el  25 May 2006 07:50:57 -0000      1.57
+++ context.el  5 Aug 2006 04:05:25 -0000       1.58
@@ -109,6 +109,24 @@
   "The ConTeXt optional argument closing character.")
 
 
+;; Define a ConTeXt macro
+
+(defvar ConTeXt-define-list ()
+  "Calls ConTeXt-XX-define-list where XX is the current interface.")
+
+(defun ConTeXt-define-command (what)
+  "The ConTeXt macro to define WHAT."
+  (funcall
+   (intern (concat "ConTeXt-define-command-" ConTeXt-current-interface)) what))
+
+(defun ConTeXt-insert-define (define)
+  "Insert the ConTeXt define macro DEFINE."
+  (insert TeX-esc (ConTeXt-define-command define))
+  (newline)
+  (indent-according-to-mode)
+  (ConTeXt-arg-setup nil))
+
+
 ;; Setup a ConTeXt macro
 
 (defvar ConTeXt-setup-list ()
@@ -127,6 +145,23 @@
   (ConTeXt-arg-setup nil))
 
 
+;; Other ConTeXt macro's
+
+(defvar ConTeXt-other-macro-list ()
+  "Calls ConTeXt-XX-other-macro-list where XX is the current interface.")
+
+(defun ConTeXt-other-macro-command (what)
+  "The ConTeXt macro to call WHAT is itself, no interface specific calls."
+  what)
+
+(defun ConTeXt-insert-other-macro (other-macro)
+  "Insert the ConTeXt other macro's macro SETUP."
+  (insert TeX-esc (ConTeXt-other-macro-command other-macro))
+  (newline)
+  (indent-according-to-mode)
+  (ConTeXt-arg-setup nil))
+
+
 ;;; Project structure
 
 (defvar ConTeXt-project-structure-list ()
@@ -1188,6 +1223,17 @@
   "Create an entry for the change environment menu."
   (vector (car entry) (list 'ConTeXt-modify-environment (car entry)) t))
 
+;; ConTeXt define macros
+(defvar ConTeXt-define-menu-name "Define")
+
+(defun ConTeXt-define-menu-entry (entry)
+  "Create an entry for the define menu."
+  (vector entry (list 'ConTeXt-define-menu entry)))
+
+(defun ConTeXt-define-menu (define)
+  "Insert DEFINE from menu."
+  (ConTeXt-insert-define define))
+
 ;; ConTeXt setup macros
 (defvar ConTeXt-setup-menu-name "Setup")
 
@@ -1199,6 +1245,17 @@
   "Insert SETUP from menu."
   (ConTeXt-insert-setup setup))
 
+;; ConTeXt other macros
+(defvar ConTeXt-other-macro-menu-name "Other macro")
+
+(defun ConTeXt-other-macro-menu-entry (entry)
+  "Create an entry for the other macro menu."
+  (vector entry (list 'ConTeXt-other-macro-menu entry)))
+
+(defun ConTeXt-other-macro-menu (other-macro)
+  "Insert OTHER MACRO from menu."
+  (ConTeXt-insert-other-macro other-macro))
+
 
 ;; meta-structure project structure menu entries
 
@@ -1297,7 +1354,9 @@
      (,ConTeXt-environment-modify-menu-name)
      ["Item" ConTeXt-insert-item
       :help "Insert a new \\item into current environment"]
+     (,ConTeXt-define-menu-name)
      (,ConTeXt-setup-menu-name)
+     (,ConTeXt-other-macro-menu-name)
      "-"
      ("Insert Font"
       ["Emphasize"  (TeX-font nil ?\C-e) :keys "C-c C-f C-e"]
@@ -1350,11 +1409,21 @@
                          (LaTeX-split-long-menu
                           (mapcar 'ConTeXt-environment-modify-menu-entry
                                   (ConTeXt-environment-list))))
+       (message "Updating define menu...")
+       (easy-menu-change '("ConTeXt") ConTeXt-define-menu-name
+                         (LaTeX-split-long-menu
+                          (mapcar 'ConTeXt-define-menu-entry
+                                  ConTeXt-define-list)))
        (message "Updating setup menu...")
        (easy-menu-change '("ConTeXt") ConTeXt-setup-menu-name
                          (LaTeX-split-long-menu
                           (mapcar 'ConTeXt-setup-menu-entry
                                   ConTeXt-setup-list)))
+       (message "Updating other macro's menu...")
+       (easy-menu-change '("ConTeXt") ConTeXt-other-macro-menu-name
+                         (LaTeX-split-long-menu
+                          (mapcar 'ConTeXt-other-macro-menu-entry
+                                  ConTeXt-other-macro-list)))
        (message "Updating project structure menu...")
        (easy-menu-change '("ConTeXt") ConTeXt-project-structure-menu-name
                          (LaTeX-split-long-menu
@@ -1403,7 +1472,8 @@
 ;; They are mapped to interface specific variables
 
 (defvar ConTeXt-language-variable-list
-  '(ConTeXt-setup-list ConTeXt-project-structure-list
+  '(ConTeXt-define-list ConTeXt-setup-list ConTeXt-other-macro-list
+           ConTeXt-project-structure-list
                       ConTeXt-section-block-list ConTeXt-section-list
                       ConTeXt-text ConTeXt-item-list))