code.delx.au - gnu-emacs-elpa/blob - packages/auctex/context-nl.el

   1 ;;; context-nl.el --- Support for the ConTeXt dutch interface.
   2
   3 ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
   4
   5 ;; Maintainer: Berend de Boer <berend@pobox.com>
   6 ;; Keywords: tex
   7
   8 ;; This file is part of AUCTeX.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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
  23 ;; 02110-1301, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; This file is loaded by context.el when required.
  28
  29 ;;; Code:
  30
  31 ;; Build upon ConTeXt
  32 (require 'context)
  33
  34 ;;; ConText macro names
  35
  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"
  48     ;; project structure
  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"
  56     "uniqueMPgraphic")
  57   "List of the ConTeXt nl interface start/stop pairs.")
  58
  59 (defvar ConTeXt-define-list-nl
  60   '("achtergrond" "startstop" "typen")
  61   "List of ConTeXt nl interface macro's that define things.")
  62
  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.")
  90
  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.")
  94
  95 (defun ConTeXt-define-command-nl (what)
  96   "The ConTeXt nl interface way of creating a define command."
  97   (concat "definieer" what))
  98
  99 (defun ConTeXt-setup-command-nl (what)
 100   "The ConTeXt nl interface way of creating a setup command."
 101   (concat "stel" what "in"))
 102
 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.")
 106
 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.")
 110
 111
 112 ;; TODO:
 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
 116 ;; of the number.
 117 (defvar ConTeXt-section-list-nl
 118   '(("deel" 0)
 119     ("hoofdstuk" 1)
 120     ("paragraaf" 2)
 121     ("subparagraaf" 3)
 122     ("subsubparagraaf" 4))
 123   ;; ("title" 1)
 124   ;; ("subject" 2)
 125   ;; ("subsubject" 3)
 126   ;; ("subsubsubject" 4)
 127   "List of the names of ConTeXt sections for its nl interface.")
 128
 129 (defvar ConTeXt-text-nl "tekst"
 130   "The ConTeXt nl interface body text group.")
 131
 132 (defvar ConTeXt-item-list-nl
 133   '("som" "its" "mar" "ran" "sub" "sym")
 134   "The ConTeXt macro's that are variants of item.")
 135
 136 (defcustom ConTeXt-default-environment-nl "opsomming"
 137   "*The default environment when creating new ones with `ConTeXt-environment'."
 138   :group 'ConTeXt-nl-environment
 139   :type 'string)
 140
 141
 142 ;; Emacs en menu names and labels should go here
 143 ;; to be done
 144
 145
 146 ;;; Mode
 147
 148 (defun ConTeXt-nl-mode-initialization ()
 149   "ConTeXt dutch interface specific initialization."
 150   (mapc 'ConTeXt-add-environments (reverse ConTeXt-environment-list-nl))
 151
 152   (TeX-add-symbols
 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 " "))))
 161
 162 ;;;###autoload
 163 (defun context-nl-mode ()
 164   "Major mode for editing files for ConTeXt using its dutch interface.
 165
 166 Special commands:
 167 \\{ConTeXt-mode-map}
 168
 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."
 172   (interactive)
 173
 174   ;; set the ConTeXt interface
 175   (setq ConTeXt-current-interface "nl")
 176
 177   ;; initialization
 178   (ConTeXt-mode-common-initialization)
 179   (ConTeXt-nl-mode-initialization)
 180
 181   ;; set mode line
 182   (setq TeX-base-mode-name "ConTeXt-nl")
 183   (TeX-set-mode-name))
 184
 185 (provide 'context-nl)
 186
 187 ;;; context-nl.el ends here