Changes

== Help with delimters delimiters and math mode ==

These customizations, by Johan Sandblom, make entering [[TABLE|natural tables ]] easy.

  (add-hook 'ConTeXt-mode-hook '(lambda () (defun local-set-key "\C-cnr" 'context-insert-nattab-row) (local-set-key "\C-cnc" 'context-insert-nattab-column) (local-set-key "\C-cnn" 'context-insert-nattab)))</pre> == Help with FLOWcharts (from m-cells (nchart.tex)== <pre> ;; Johan Sandblom 2006. No copyright.(defun context-FLOW-shift-cells (x y beg end) "Shifts FLOW cells in region right and down" (interactive "nRight: \nnDown: \nr") (save-excursion (goto-char beg) (while (search-forward-regexp "{\\([0-9]+\\),\\([0-9]+\\)}" end t) (replace-match (concat "{" (number-to-string (+ (string-to-number (match-string 1)) x)) "," (number-to-string (+ (string-to-01number (match-28string 2)) y)) "}") nil nil)))) (defun context-FLOW-insert-cells (%optional n)

(interactive "nNumber of cells: \nP") (if (not (bolp)) (newline))

(while (&lt;= x (if nn 1))

(define-key (current-local-map) "\C-cnF" 'context-FLOW-insert-FLOW-cells) (define-key (current-local-set-key map) "\C-cnrcnS" 'context-insertFLOW-shift-cells)))</pre> == Metapost-mode and r-mode (from ESS, http://ess.r-project.org) in context-mode with mmm-mode == <pre>;; Johan Sandblom. No copyright.(require 'mmm-mode)(setq mmm-global-mode 'maybe)(setq mmm-submode-nattabdecoration-rowlevel 2) (localmmm-setadd-key "\Cgroup 'context-cnc" plus '((context-insertR :submode r-mode :face mmm-comment-nattabsubmode-columnface :front ".*\\\\startR\\w*\\({\\w*}\\|\\[\\w*\\]\\|\\)\\W*" :back ".*\\\\stopR") (localcontext-MP :submode metapost-mode :face mmm-code-setsubmode-key face :front ".*\\\\start\\w*MP\\w*\\({\\w*}\\|\\[\\w*\\]\\|\\)\\W*" :back ".*\\\\stop\\Cw*MP") ))(add-to-list 'mmm-mode-ext-classes-cnn" alist '(context-insertmode nil context-nattab)plus))