1 ;;; context-nl.el --- Support for the ConTeXt dutch interface.
3 ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
5 ;; Maintainer: Berend de Boer <berend@pobox.com>
8 ;; This file is part of AUCTeX.
10 ;; AUCTeX is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 3, or (at your option)
15 ;; AUCTeX is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with AUCTeX; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
27 ;; This file is loaded by context.el when required.
34 ;;; ConText macro names
36 (defvar ConTeXt-environment-list-nl
37 '("achtergrond" "alinea" "bloktekst" "buffer" "citaat" "combinatie"
38 "commentaar" "deelomgeving" "document" "doordefinitie"
39 "doornummering" "figuur" "formule" "gegeven" "interactiemenu"
40 "kadertekst" "kantlijn" "kleur" "kolommen" "legenda" "lokaal"
41 "lokalevoetnoten" "margeblok" "naamopmaak" "naast"
42 "opelkaar" "opmaak" "opsomming" "overlay" "overzicht"
43 "paginafiguur" "positioneren" "profiel"
44 "regel" "regelcorrectie" "regelnummeren" "regels"
45 "smaller" "symboolset" "synchronisatie"
46 "tabel" "tabellen" "tabulatie" "tekstlijn" "typen"
47 "uitlijnen" "uitstellen" "vanelkaar" "verbergen" "versie"
49 "omgeving" "onderdeel" "produkt" "project"
50 ;; flowcharts, if you have loaded this module
51 "FLOWcell" "FLOWchart"
52 ;; typesetting computer languages
53 "EIFFEL" "JAVA" "JAVASCRIPT" "MP" "PASCAL" "PERL" "SQL" "TEX" "XML"
54 ;; some metapost environments
55 "MPpositiongraphic" "useMPgraphic" "MPcode" "reusableMPgraphic"
57 "List of the ConTeXt nl interface start/stop pairs.")
59 (defvar ConTeXt-define-list-nl
60 '("achtergrond" "startstop" "typen")
61 "List of ConTeXt nl interface macro's that define things.")
63 (defvar ConTeXt-setup-list-nl
64 '("achtergronden" "achtergrond" "alineas" "arrangeren" "blanko"
65 "blok" "blokjes" "blokkopje" "blokkopjes" "boven" "boventeksten"
66 "brieven" "buffer" "buttons" "citeren" "clip" "combinaties"
67 "commentaar" "doordefinieren" "doornummeren" "doorspringen"
68 "dunnelijnen" "externefiguren" "formules" "formulieren"
69 "hoofd" "hoofdteksten" "inmarge" "inspringen" "interactiebalk"
70 "interactie" "interactiemenu" "interactiescherm" "interlinie"
71 "invullijnen" "invulregels" "items" "kaderteksten" "kantlijn"
72 "kapitalen" "kleuren" "kleur" "kolommen" "kop" "kopnummer"
73 "koppelteken" "koppen" "koptekst" "korps" "korpsomgeving"
74 "labeltekst" "layout" "legenda" "lijndikte" "lijn" "lijst"
75 "margeblokken" "markering" "naastplaatsen" "nummeren" "omlijnd"
76 "onder" "onderstrepen" "onderteksten" "opmaak" "opsomming"
77 "paginanummer" "paginanummering" "paginaovergangen" "palet"
78 "papierformaat" "papier" "paragraafnummeren" "plaatsblok"
79 "plaatsblokken" "plaatsblokkensplitsen" "positioneren" "profielen"
80 "programmas" "publicaties" "rasters" "referentielijst" "refereren"
81 "regelnummeren" "regels" "register" "roteren" "samengesteldelijst"
82 "sectieblok" "sectie" "sheets" "smaller" "sorteren" "spatiering"
83 "stickers" "strut" "strut" "subpaginanummer" "symboolset"
84 "synchronisatiebalk" "synchronisatie" "synoniemen" "systeem"
85 "taal" "tabellen" "tab" "tabulatie" "tekst" "tekstlijnen"
86 "tekstpositie" "tekstteksten" "tekstvariabele" "tolerantie" "type"
87 "typen" "uitlijnen" "uitvoer" "url" "velden" "veld" "versies"
88 "voet" "voetnootdefinitie" "voetnoten" "voetteksten" "witruimte")
89 "List of the names of ConTeXt nl interface macro's that setup things.")
91 (defvar ConTeXt-other-macro-list-nl
92 '("regellinks" "regelmidden" "regelrechts" "toonexternefiguren")
93 "List of ConTeXt nl interface macro's that are not an environment nor a setup.")
95 (defun ConTeXt-define-command-nl (what)
96 "The ConTeXt nl interface way of creating a define command."
97 (concat "definieer" what))
99 (defun ConTeXt-setup-command-nl (what)
100 "The ConTeXt nl interface way of creating a setup command."
101 (concat "stel" what "in"))
103 (defvar ConTeXt-project-structure-list-nl
104 '("project" "omgeving" "produkt" "onderdeel")
105 "List of the names of ConTeXt project structure elements for its nl interface. List should be in logical order.")
107 (defvar ConTeXt-section-block-list-nl
108 '("inleidingen" "hoofdteksten" "bijlagen" "uitleidingen")
109 "List of the names of ConTeXt section blocks for its nl interface. List should be in logical order.")
113 ;; ConTeXt has alternative sections like title and subject. Currently
114 ;; the level is used to find the section name, so the alternative
115 ;; names are never found. Have to start using the section name instead
117 (defvar ConTeXt-section-list-nl
122 ("subsubparagraaf" 4))
126 ;; ("subsubsubject" 4)
127 "List of the names of ConTeXt sections for its nl interface.")
129 (defvar ConTeXt-text-nl "tekst"
130 "The ConTeXt nl interface body text group.")
132 (defvar ConTeXt-item-list-nl
133 '("som" "its" "mar" "ran" "sub" "sym")
134 "The ConTeXt macro's that are variants of item.")
136 (defcustom ConTeXt-default-environment-nl "opsomming"
137 "*The default environment when creating new ones with `ConTeXt-environment'."
138 :group 'ConTeXt-nl-environment
142 ;; Emacs en menu names and labels should go here
148 (defun ConTeXt-nl-mode-initialization ()
149 "ConTeXt dutch interface specific initialization."
150 (mapc 'ConTeXt-add-environments (reverse ConTeXt-environment-list-nl))
153 '("but" ConTeXt-arg-define-ref (TeX-arg-literal " "))
154 '("som" ConTeXt-arg-define-ref (TeX-arg-literal " "))
155 '("items" [ConTeXt-arg-setup] (TeX-arg-string "Comma separated list"))
156 '("its" ConTeXt-arg-define-ref (TeX-arg-literal " "))
157 '("nop" (TeX-arg-literal " "))
158 '("ran" TeX-arg-string (TeX-arg-literal " "))
159 '("sub" ConTeXt-arg-define-ref (TeX-arg-literal " "))
160 '("sym" (TeX-arg-string "Symbol") (TeX-arg-literal " "))))
163 (defun context-nl-mode ()
164 "Major mode for editing files for ConTeXt using its dutch interface.
169 Entering `context-mode' calls the value of `text-mode-hook',
170 then the value of TeX-mode-hook, and then the value
171 of context-mode-hook."
174 ;; set the ConTeXt interface
175 (setq ConTeXt-current-interface "nl")
178 (ConTeXt-mode-common-initialization)
179 (ConTeXt-nl-mode-initialization)
182 (setq TeX-base-mode-name "ConTeXt-nl")
185 (provide 'context-nl)
187 ;;; context-nl.el ends here