annotate lisp/textmodes/conf-mode.el @ 91376:0e2ade584fbb merge-unicode-to-trunk

Merge ChangeLog.unicode files into ChangeLogs Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1038
author Miles Bader <miles@gnu.org>
date Fri, 01 Feb 2008 16:05:01 +0000
parents dc100f64b2b7
children a128a4284881
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
1 ;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
2
79719
dc100f64b2b7 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79219
diff changeset
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
64969
3a43d3e9bb74 Fix copyright notice, list author.
Richard M. Stallman <rms@gnu.org>
parents: 64751
diff changeset
4
3a43d3e9bb74 Fix copyright notice, list author.
Richard M. Stallman <rms@gnu.org>
parents: 64751
diff changeset
5 ;; Author: Daniel Pfeiffer <occitan@esperanto.org>
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
6 ;; Keywords: conf ini windows java
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
7
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
8 ;; This file is part of GNU Emacs.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
9
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
78225
b6d25790aab2 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
12 ;; the Free Software Foundation; either version 3, or (at your option)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
13 ;; any later version.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
14
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
18 ;; GNU General Public License for more details.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
19
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
20 ;; You should have received a copy of the GNU General Public License
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59996
diff changeset
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59996
diff changeset
23 ;; Boston, MA 02110-1301, USA.
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
24
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
25 ;;; Commentary:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
26 ;;
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
27 ;; This mode is designed to edit many similar varieties of Conf/Ini files and
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
28 ;; Java properties. It started out from Aurélien Tisné's ini-mode.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
29 ;; `conf-space-keywords' were inspired by Robert Fitzgerald's any-ini-mode.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
30
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
31
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
32 ;;; Code:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
33
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
34 (require 'newcomment)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
35
65261
5e6a52548deb (outline-heading-end-regexp): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64969
diff changeset
36 (defvar outline-heading-end-regexp)
5e6a52548deb (outline-heading-end-regexp): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64969
diff changeset
37
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
38 ;; Variables:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
39
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
40 (defgroup conf nil
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
41 "Configuration files."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
42 :group 'data
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 58694
diff changeset
43 :version "22.1")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
44
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
45 (defcustom conf-assignment-column 24
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
46 "Align assignments to this column by default with \\[conf-align-assignments].
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
47 If this number is negative, the `=' comes before the whitespace. Use 0 to
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
48 not align (only setting space according to `conf-assignment-space')."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
49 :type 'integer
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
50 :group 'conf)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
51
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
52 (defcustom conf-javaprop-assignment-column 32
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
53 "Value for `conf-assignment-column' in Java properties buffers."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
54 :type 'integer
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
55 :group 'conf)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
56
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
57 (defcustom conf-colon-assignment-column (- (abs conf-assignment-column))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
58 "Value for `conf-assignment-column' in Java properties buffers."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
59 :type 'integer
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
60 :group 'conf)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
61
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
62 (defcustom conf-assignment-space t
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
63 "Put at least one space around assignments when aligning."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
64 :type 'boolean
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
65 :group 'conf)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
66
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
67 (defcustom conf-colon-assignment-space nil
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
68 "Value for `conf-assignment-space' in colon style Conf mode buffers."
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
69 :type 'boolean
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
70 :group 'conf)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
71
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
72
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
73 (defvar conf-mode-map
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
74 (let ((map (make-sparse-keymap)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
75 (define-key map "\C-c\C-u" 'conf-unix-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
76 (define-key map "\C-c\C-w" 'conf-windows-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
77 (define-key map "\C-c\C-j" 'conf-javaprop-mode)
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
78 (define-key map "\C-c\C-s" 'conf-space-keywords)
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
79 (define-key map "\C-c " 'conf-space-keywords)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
80 (define-key map "\C-c\C-c" 'conf-colon-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
81 (define-key map "\C-c:" 'conf-colon-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
82 (define-key map "\C-c\C-x" 'conf-xdefaults-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
83 (define-key map "\C-c\C-p" 'conf-ppd-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
84 (define-key map "\C-c\C-q" 'conf-quote-normal)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
85 (define-key map "\C-c\"" 'conf-quote-normal)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
86 (define-key map "\C-c'" 'conf-quote-normal)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
87 (define-key map "\C-c\C-a" 'conf-align-assignments)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
88 map)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
89 "Local keymap for `conf-mode' buffers.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
90
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
91 (defvar conf-mode-syntax-table
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
92 (let ((table (make-syntax-table)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
93 (modify-syntax-entry ?= "." table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
94 (modify-syntax-entry ?_ "_" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
95 (modify-syntax-entry ?- "_" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
96 (modify-syntax-entry ?. "_" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
97 (modify-syntax-entry ?\' "\"" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
98 (modify-syntax-entry ?\; "<" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
99 (modify-syntax-entry ?\n ">" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
100 (modify-syntax-entry ?\r ">" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
101 table)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
102 "Syntax table in use in Windows style `conf-mode' buffers.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
103
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
104 (defvar conf-unix-mode-syntax-table
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
105 (let ((table (make-syntax-table conf-mode-syntax-table)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
106 (modify-syntax-entry ?\# "<" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
107 ;; override
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
108 (modify-syntax-entry ?\; "." table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
109 table)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
110 "Syntax table in use in Unix style `conf-mode' buffers.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
111
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
112 (defvar conf-javaprop-mode-syntax-table
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
113 (let ((table (make-syntax-table conf-unix-mode-syntax-table)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
114 (modify-syntax-entry ?/ ". 124" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
115 (modify-syntax-entry ?* ". 23b" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
116 table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
117 "Syntax table in use in Java prperties buffers.")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
118
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
119 (defvar conf-ppd-mode-syntax-table
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
120 (let ((table (make-syntax-table conf-mode-syntax-table)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
121 (modify-syntax-entry ?* ". 1" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
122 (modify-syntax-entry ?% ". 2" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
123 ;; override
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
124 (modify-syntax-entry ?\' "." table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
125 (modify-syntax-entry ?\; "." table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
126 table)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
127 "Syntax table in use in PPD `conf-mode' buffers.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
128
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
129 (defvar conf-xdefaults-mode-syntax-table
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
130 (let ((table (make-syntax-table conf-mode-syntax-table)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
131 (modify-syntax-entry ?! "<" table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
132 ;; override
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
133 (modify-syntax-entry ?\; "." table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
134 table)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
135 "Syntax table in use in Xdefaults style `conf-mode' buffers.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
136
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
137
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
138 (defvar conf-font-lock-keywords
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
139 `(;; [section] (do this first because it may look like a parameter)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
140 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
141 ;; var=val or var[index]=val
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
142 ("^[ \t]*\\(.+?\\)\\(?:\\[\\(.*?\\)\\]\\)?[ \t]*="
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
143 (1 'font-lock-variable-name-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
144 (2 'font-lock-constant-face nil t))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
145 ;; section { ... } (do this last because some assign ...{...)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
146 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
147 "Keywords to hilight in Conf mode.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
148
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
149 (defvar conf-javaprop-font-lock-keywords
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
150 '(;; var=val
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
151 ("^[ \t]*\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(\\..+?\\)?\\)?\\)?\\)?\\)?\\)?\\([:= \t]\\|$\\)"
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
152 (1 'font-lock-variable-name-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
153 (2 'font-lock-constant-face nil t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
154 (3 'font-lock-variable-name-face nil t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
155 (4 'font-lock-constant-face nil t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
156 (5 'font-lock-variable-name-face nil t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
157 (6 'font-lock-constant-face nil t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
158 (7 'font-lock-variable-name-face nil t)))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
159 "Keywords to hilight in Conf Java Properties mode.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
160
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
161 (defvar conf-space-keywords-alist
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
162 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
163 ("\\`/etc/magic\\'" . "[^ \t]+[ \t]+\\(?:[bl]?e?\\(?:short\\|long\\)\\|byte\\|string\\)[^ \t]*")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
164 ("/mod\\(?:ules\\|probe\\)\\.conf" . "alias\\|in\\(?:clude\\|stall\\)\\|options\\|remove")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
165 ("/manpath\\.config" . "MAN\\(?:DATORY_MANPATH\\|PATH_MAP\\|DB_MAP\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
166 ("/sensors\\.conf" . "chip\\|bus\\|label\\|compute\\|set\\|ignore")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
167 ("/sane\\(\\.d\\)?/" . "option\\|device\\|port\\|usb\\|sc\\(?:si\\|anner\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
168 ("/resmgr\\.conf" . "class\\|add\\|allow\\|deny")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
169 ("/dictionary\\.lst\\'" . "DICT\\|HYPH\\|THES")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
170 ("/tuxracer/options" . "set"))
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
171 "File-name-based settings for the variable `conf-space-keywords'.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
172
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
173 (defvar conf-space-keywords nil
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
174 "Regexps for functions that may come before a space assignment.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
175 This allows constructs such as
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
176 keyword var value
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
177 This variable is best set in the file local variables, or through
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
178 `conf-space-keywords-alist'.")
79219
b892c8b20287 (conf-space-keywords): Mark this regexps as safe if a string.
Glenn Morris <rgm@gnu.org>
parents: 78225
diff changeset
179 (put 'conf-space-keywords 'safe-local-variable 'stringp)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
180
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
181 (defvar conf-space-font-lock-keywords
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
182 `(;; [section] (do this first because it may look like a parameter)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
183 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
184 ;; section { ... } (do this first because it looks like a parameter)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
185 ("^[ \t]*\\(.+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
186 ;; var val
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
187 (eval if conf-space-keywords
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
188 (list (concat "^[ \t]*\\(" conf-space-keywords "\\)[ \t]+\\([^\000- ]+\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
189 '(1 'font-lock-keyword-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
190 '(2 'font-lock-variable-name-face))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
191 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face)))
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
192 "Keywords to highlight in Conf Space mode.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
193
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
194 (defvar conf-colon-font-lock-keywords
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
195 `(;; [section] (do this first because it may look like a parameter)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
196 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
197 ;; var: val
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
198 ("^[ \t]*\\(.+?\\)[ \t]*:"
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
199 (1 'font-lock-variable-name-face))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
200 ;; section { ... } (do this last because some assign ...{...)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
201 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
202 "Keywords to hilight in Conf Colon mode.")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
203
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
204 (defvar conf-assignment-sign ?=
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
205 "Sign used for assignments (char or string).")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
206
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
207 (defvar conf-assignment-regexp ".+?\\([ \t]*=[ \t]*\\)"
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
208 "Regexp to recognize assignments.
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
209 It is anchored after the first sexp on a line. There must be a
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
210 grouping for the assignment sign, including leading and trailing
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
211 whitespace.")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
212
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
213
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
214 ;; If anybody can figure out how to get the same effect by configuring
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
215 ;; `align', I'd be glad to hear.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
216 (defun conf-align-assignments (&optional arg)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
217 (interactive "P")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
218 (setq arg (if arg
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
219 (prefix-numeric-value arg)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
220 conf-assignment-column))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
221 (save-excursion
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
222 (goto-char (point-min))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
223 (while (not (eobp))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
224 (let ((cs (comment-beginning))) ; go before comment if within
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
225 (if cs (goto-char cs)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
226 (while (forward-comment 9)) ; max-int?
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
227 (when (and (not (eobp))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
228 (looking-at conf-assignment-regexp))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
229 (goto-char (match-beginning 1))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
230 (delete-region (point) (match-end 1))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
231 (if conf-assignment-sign
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
232 (if (>= arg 0)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
233 (progn
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
234 (indent-to-column arg)
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
235 (or (not conf-assignment-space)
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
236 (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
237 (insert conf-assignment-sign
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
238 (if (and conf-assignment-space (not (eolp))) ?\s "")))
65261
5e6a52548deb (outline-heading-end-regexp): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64969
diff changeset
239 (insert (if conf-assignment-space ?\s "") conf-assignment-sign)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
240 (unless (eolp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
241 (indent-to-column (- arg))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
242 (or (not conf-assignment-space)
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
243 (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))))
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
244 (unless (eolp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
245 (if (>= (current-column) (abs arg))
65261
5e6a52548deb (outline-heading-end-regexp): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64969
diff changeset
246 (insert ?\s)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
247 (indent-to-column (abs arg))))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
248 (forward-line))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
249
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
250
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
251 (defun conf-quote-normal (arg)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
252 "Set the syntax of ' and \" to punctuation.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
253 With prefix arg, only do it for ' if 1, or only for \" if 2.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
254 This only affects the current buffer. Some conf files use quotes
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
255 to delimit strings, while others allow quotes as simple parts of
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
256 the assigned value. In those files font locking will be wrong,
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
257 and you can correct it with this command. (Some files even do
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
258 both, i.e. quotes delimit strings, except when they are
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
259 unbalanced, but hey...)"
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
260 (interactive "P")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
261 (let ((table (copy-syntax-table (syntax-table))))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
262 (if (or (not arg) (= (prefix-numeric-value arg) 1))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
263 (modify-syntax-entry ?\' "." table))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
264 (if (or (not arg) (= (prefix-numeric-value arg) 2))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
265 (modify-syntax-entry ?\" "." table))
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
266 (set-syntax-table table)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
267 (and (boundp 'font-lock-mode)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
268 font-lock-mode
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
269 (font-lock-fontify-buffer))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
270
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
271
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
272 (defun conf-outline-level ()
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
273 (let ((depth 0)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
274 (pt (match-end 0)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
275 (condition-case nil
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
276 (while (setq pt (scan-lists pt -1 1)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
277 depth (1+ depth)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
278 (scan-error depth))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
279
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
280
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
281
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
282 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
283 (defun conf-mode ()
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
284 "Mode for Unix and Windows Conf files and Java properties.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
285 Most conf files know only three kinds of constructs: parameter
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
286 assignments optionally grouped into sections and comments. Yet
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
287 there is a great range of variation in the exact syntax of conf
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
288 files. See below for various wrapper commands that set up the
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
289 details for some of the most widespread variants.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
290
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
291 This mode sets up font locking, outline, imenu and it provides
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
292 alignment support through `conf-align-assignments'. If strings
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
293 come out wrong, try `conf-quote-normal'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
294
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
295 Some files allow continuation lines, either with a backslash at
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
296 the end of line, or by indenting the next line (further). These
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
297 constructs cannot currently be recognized.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
298
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
299 Because of this great variety of nuances, which are often not
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
300 even clearly specified, please don't expect it to get every file
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
301 quite right. Patches that clearly identify some special case,
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
302 without breaking the general ones, are welcome.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
303
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
304 If instead you start this mode with the generic `conf-mode'
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
305 command, it will parse the buffer. It will generally well
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
306 identify the first four cases listed below. If the buffer
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
307 doesn't have enough contents to decide, this is identical to
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
308 `conf-windows-mode' on Windows, elsewhere to `conf-unix-mode'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
309 See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
310 `conf-ppd-mode' and `conf-xdefaults-mode'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
311
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
312 \\{conf-mode-map}"
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
313
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
314 (interactive)
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
315 ;; `conf-mode' plays two roles: it's the parent of several sub-modes
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
316 ;; but it's also the function that chooses between those submodes.
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
317 ;; To tell the difference between those two cases where the function
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
318 ;; might be called, we check `delay-mode-hooks'.
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
319 ;; (adopted from tex-mode.el)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
320 (if (not delay-mode-hooks)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
321 ;; try to guess sub-mode of conf-mode based on buffer content
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
322 (let ((unix 0) (win 0) (equal 0) (colon 0) (space 0) (jp 0))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
323 (save-excursion
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
324 (goto-char (point-min))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
325 (while (not (eobp))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
326 (skip-chars-forward " \t\f")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
327 (cond ((eq (char-after) ?\#) (setq unix (1+ unix)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
328 ((eq (char-after) ?\;) (setq win (1+ win)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
329 ((eq (char-after) ?\[)) ; nop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
330 ((eolp)) ; nop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
331 ((eq (char-after) ?})) ; nop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
332 ;; recognize at most double spaces within names
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
333 ((looking-at "[^ \t\n=:]+\\(?: ?[^ \t\n=:]+\\)*[ \t]*[=:]")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
334 (if (eq (char-before (match-end 0)) ?=)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
335 (setq equal (1+ equal))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
336 (setq colon (1+ colon))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
337 ((looking-at "/[/*]") (setq jp (1+ jp)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
338 ((looking-at ".*{")) ; nop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
339 ((setq space (1+ space))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
340 (forward-line)))
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
341 (cond
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
342 ((> jp (max unix win 3)) (conf-javaprop-mode))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
343 ((> colon (max equal space)) (conf-colon-mode))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
344 ((> space (max equal colon)) (conf-space-mode))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
345 ((or (> win unix) (and (= win unix) (eq system-type 'windows-nt)))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
346 (conf-windows-mode))
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
347 (t (conf-unix-mode))))
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
348
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
349 (kill-all-local-variables)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
350 (use-local-map conf-mode-map)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
351 (setq major-mode 'conf-mode
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
352 mode-name "Conf[?]")
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
353 (set (make-local-variable 'font-lock-defaults)
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
354 '(conf-font-lock-keywords nil t nil nil))
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
355 ;; Let newcomment.el decide this for itself.
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
356 ;; (set (make-local-variable 'comment-use-syntax) t)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
357 (set (make-local-variable 'parse-sexp-ignore-comments) t)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
358 (set (make-local-variable 'outline-regexp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
359 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
360 (set (make-local-variable 'outline-heading-end-regexp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
361 "[\n}]")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
362 (set (make-local-variable 'outline-level)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
363 'conf-outline-level)
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
364 (set-syntax-table conf-mode-syntax-table)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
365 (setq imenu-generic-expression
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
366 '(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*=" 1)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
367 ;; [section]
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
368 (nil "^[ \t]*\\[[ \t]*\\(.+\\)[ \t]*\\]" 1)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
369 ;; section { ... }
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
370 (nil "^[ \t]*\\([^=:{} \t\n][^=:{}\n]+\\)[ \t\n]*{" 1)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
371 (run-mode-hooks 'conf-mode-hook)))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
372
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
373 (defun conf-mode-initialize (comment &optional font-lock)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
374 "Intitializations for sub-modes of conf-mode.
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
375 COMMENT initializes `comment-start' and `comment-start-skip'.
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
376 The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS."
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
377 (set (make-local-variable 'comment-start) comment)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
378 (set (make-local-variable 'comment-start-skip)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
379 (concat (regexp-quote comment-start) "+\\s *"))
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
380 (if font-lock
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
381 (set (make-local-variable 'font-lock-defaults)
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
382 `(,font-lock nil t nil nil))))
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
383
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
384 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
385 (define-derived-mode conf-unix-mode conf-mode "Conf[Unix]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
386 "Conf Mode starter for Unix style Conf files.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
387 Comments start with `#'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
388 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
389
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
390 # Conf mode font-locks this right on Unix and with \\[conf-unix-mode]
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
391
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
392 \[Desktop Entry]
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
393 Encoding=UTF-8
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
394 Name=The GIMP
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
395 Name[ca]=El GIMP
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
396 Name[cs]=GIMP"
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
397 (conf-mode-initialize "#"))
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
398
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
399 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
400 (define-derived-mode conf-windows-mode conf-mode "Conf[WinIni]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
401 "Conf Mode starter for Windows style Conf files.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
402 Comments start with `;'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
403 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
404
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
405 ; Conf mode font-locks this right on Windows and with \\[conf-windows-mode]
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
406
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
407 \[ExtShellFolderViews]
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
408 Default={5984FFE0-28D4-11CF-AE66-08002B2E1262}
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
409 {5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
410
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
411 \[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
412 PersistMoniker=file://Folder.htt"
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
413 (conf-mode-initialize ";"))
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
414
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
415 ;; Here are a few more or less widespread styles. There are others, so
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
416 ;; obscure, they are not covered. E.g. RFC 2614 allows both Unix and Windows
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
417 ;; comments. Or the donkey has (* Pascal comments *) -- roll your own starter
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
418 ;; if you need it.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
419
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
420 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
421 (define-derived-mode conf-javaprop-mode conf-mode "Conf[JavaProp]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
422 "Conf Mode starter for Java properties files.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
423 Comments start with `#' but are also recognized with `//' or
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
424 between `/*' and `*/'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
425 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
426
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
427 # Conf mode font-locks this right with \\[conf-javaprop-mode] (Java properties)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
428 // another kind of comment
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
429 /* yet another */
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
430
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
431 name:value
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
432 name=value
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
433 name value
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
434 x.1 =
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
435 x.2.y.1.z.1 =
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
436 x.2.y.1.z.2.zz ="
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
437 (conf-mode-initialize "#" 'conf-javaprop-font-lock-keywords)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
438 (set (make-local-variable 'conf-assignment-column)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
439 conf-javaprop-assignment-column)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
440 (set (make-local-variable 'conf-assignment-regexp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
441 ".+?\\([ \t]*[=: \t][ \t]*\\|$\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
442 (setq comment-start-skip "\\(?:#+\\|/[/*]+\\)\\s *")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
443 (setq imenu-generic-expression
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
444 '(("Parameters" "^[ \t]*\\(.+?\\)[=: \t]" 1))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
445
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
446 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
447 (define-derived-mode conf-space-mode conf-unix-mode "Conf[Space]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
448 "Conf Mode starter for space separated conf files.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
449 \"Assignments\" are with ` '. Keywords before the parameters are
72972
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
450 recognized according to the variable `conf-space-keywords-alist'.
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
451 Alternatively, you can specify a value for the file local variable
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
452 `conf-space-keywords'.
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
453 Use the function `conf-space-keywords' if you want to specify keywords
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
454 in an interactive fashion instead.
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
455
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
456 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
457
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
458 # Conf mode font-locks this right with \\[conf-space-mode] (space separated)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
459
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
460 image/jpeg jpeg jpg jpe
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
461 image/png png
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
462 image/tiff tiff tif
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
463
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
464 # Or with keywords (from a recognized file name):
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
465 class desktop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
466 # Standard multimedia devices
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
467 add /dev/audio desktop
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
468 add /dev/mixer desktop"
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
469 (conf-mode-initialize "#" 'conf-space-font-lock-keywords)
72764
88fd4983fe78 (conf-space-mode): Use hack-local-variables-hook instead of calling
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
470 (make-local-variable 'conf-assignment-sign)
88fd4983fe78 (conf-space-mode): Use hack-local-variables-hook instead of calling
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
471 (setq conf-assignment-sign nil)
72769
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
472 (make-local-variable 'conf-space-keywords)
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
473 (cond (buffer-file-name
72972
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
474 ;; We set conf-space-keywords directly, but a value which is
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
475 ;; in the local variables list or interactively specified
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
476 ;; (see the function conf-space-keywords) takes precedence.
72764
88fd4983fe78 (conf-space-mode): Use hack-local-variables-hook instead of calling
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
477 (setq conf-space-keywords
88fd4983fe78 (conf-space-mode): Use hack-local-variables-hook instead of calling
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
478 (assoc-default buffer-file-name conf-space-keywords-alist
88fd4983fe78 (conf-space-mode): Use hack-local-variables-hook instead of calling
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
479 'string-match))))
72769
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
480 (conf-space-mode-internal)
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
481 ;; In case the local variables list specifies conf-space-keywords,
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
482 ;; recompute other things from that afterward.
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
483 (add-hook 'hack-local-variables-hook 'conf-space-mode-internal nil t))
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
484
72972
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
485 ;;;###autoload
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
486 (defun conf-space-keywords (keywords)
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
487 "Enter Conf Space mode using regexp KEYWORDS to match the keywords.
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
488 See `conf-space-mode'."
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
489 (interactive "sConf Space keyword regexp: ")
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
490 (delay-mode-hooks
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
491 (conf-space-mode))
72972
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
492 (if (string-equal keywords "")
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
493 (setq keywords nil))
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
494 (setq conf-space-keywords keywords)
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
495 (conf-space-mode-internal)
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
496 (run-mode-hooks))
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
497
72769
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
498 (defun conf-space-mode-internal ()
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
499 (make-local-variable 'conf-assignment-regexp)
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
500 (setq conf-assignment-regexp
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
501 (if conf-space-keywords
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
502 (concat "\\(?:" conf-space-keywords "\\)[ \t]+.+?\\([ \t]+\\|$\\)")
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
503 ".+?\\([ \t]+\\|$\\)"))
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
504 ;; If Font Lock is already enabled, reenable it with new
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
505 ;; conf-assignment-regexp.
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
506 (when (and font-lock-mode
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
507 (boundp 'font-lock-keywords)) ;see `normal-mode'
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
508 (font-lock-add-keywords nil nil)
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
509 (font-lock-mode 1))
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
510 ;; Copy so that we don't destroy shared structure.
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
511 (setq imenu-generic-expression (copy-sequence imenu-generic-expression))
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
512 ;; Get rid of any existing Parameters element.
72769
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
513 (setq imenu-generic-expression
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
514 (delq (assoc "Parameters" imenu-generic-expression)
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
515 imenu-generic-expression))
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
516 ;; Add a new one based on conf-space-keywords.
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
517 (setq imenu-generic-expression
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
518 (cons `("Parameters"
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
519 ,(if conf-space-keywords
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
520 (concat "^[ \t]*\\(?:" conf-space-keywords
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
521 "\\)[ \t]+\\([^ \t\n]+\\)\\(?:[ \t]\\|$\\)")
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
522 "^[ \t]*\\([^ \t\n[]+\\)\\(?:[ \t]\\|$\\)")
72972
5ae87c1395e1 (conf-space-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 72940
diff changeset
523 1)
72940
c2b72b555fc4 (conf-mode-map): Use conf-space-keywords cmd.
Richard M. Stallman <rms@gnu.org>
parents: 72769
diff changeset
524 imenu-generic-expression)))
72769
00b6d782491f (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
Richard M. Stallman <rms@gnu.org>
parents: 72764
diff changeset
525
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
526 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
527 (define-derived-mode conf-colon-mode conf-unix-mode "Conf[Colon]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
528 "Conf Mode starter for Colon files.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
529 \"Assignments\" are with `:'.
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
530 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
531
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
532 # Conf mode font-locks this right with \\[conf-colon-mode] (colon)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
533
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
534 <Multi_key> <exclam> <exclam> : \"\\241\" exclamdown
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
535 <Multi_key> <c> <slash> : \"\\242\" cent"
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
536 (conf-mode-initialize "#" 'conf-colon-font-lock-keywords)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
537 (set (make-local-variable 'conf-assignment-space)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
538 conf-colon-assignment-space)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
539 (set (make-local-variable 'conf-assignment-column)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
540 conf-colon-assignment-column)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
541 (set (make-local-variable 'conf-assignment-sign)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
542 ?:)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
543 (set (make-local-variable 'conf-assignment-regexp)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
544 ".+?\\([ \t]*:[ \t]*\\)")
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
545 (setq imenu-generic-expression
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
546 `(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*:" 1)
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
547 ,@(cdr imenu-generic-expression))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
548
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
549 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
550 (define-derived-mode conf-ppd-mode conf-colon-mode "Conf[PPD]"
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
551 "Conf Mode starter for Adobe/CUPS PPD files.
58692
4867e00488dc *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58691
diff changeset
552 Comments start with `*%' and \"assignments\" are with `:'.
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
553 For details see `conf-mode'. Example:
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
554
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
555 *% Conf mode font-locks this right with \\[conf-ppd-mode] (PPD)
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
556
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
557 *DefaultTransfer: Null
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
558 *Transfer Null.Inverse: \"{ 1 exch sub }\""
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
559 (conf-mode-initialize "*%")
58691
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
560 ;; no sections, they match within PostScript code
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
561 (setq imenu-generic-expression (list (car imenu-generic-expression))))
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
562
e5f1fb888f0b (conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58128
diff changeset
563 ;;;###autoload
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
564 (define-derived-mode conf-xdefaults-mode conf-colon-mode "Conf[Xdefaults]"
58115
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
565 "Conf Mode starter for Xdefaults files.
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
566 Comments start with `!' and \"assignments\" are with `:'.
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
567 For details see `conf-mode'. Example:
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
568
66188
fe198c9ace5c Don't use font-lock-defaults-alist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65261
diff changeset
569 ! Conf mode font-locks this right with \\[conf-xdefaults-mode] (.Xdefaults)
58115
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
570
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
571 *background: gray99
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
572 *foreground: black"
66524
33e9ace34df4 (conf-mode-initialize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66188
diff changeset
573 (conf-mode-initialize "!"))
58115
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
574
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
575 (provide 'conf-mode)
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
576
58116
a026512a201c Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents: 58115
diff changeset
577 ;; arch-tag: 0a3805b2-0371-4d3a-8498-8897116b2356
58115
740fbca5078f *** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff changeset
578 ;;; conf-mode.el ends here