[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/context.el,v
From: |
Berend de Boer |
Subject: |
[AUCTeX-diffs] Changes to auctex/context.el,v |
Date: |
Sat, 05 Aug 2006 04:05:26 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to auctex/context.el,v,
Berend de Boer <=