Mercurial > emacs
annotate lisp/textmodes/conf-mode.el @ 58691:e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
(conf-ppd-mode): New conf-mode wrapper for printer descriptions.
(conf-quote-normal): Allow normalizing only ' or ".
(conf-mode): Regexp-quote constructed comment-start and don't match section {} where "name" contains braces.
author | Daniel Pfeiffer <occitan@esperanto.org> |
---|---|
date | Tue, 30 Nov 2004 23:26:47 +0000 |
parents | 5da080855cb1 |
children | 4867e00488dc |
rev | line source |
---|---|
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1 ;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
2 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
3 ;; Copyright (C) 2004 by Daniel Pfeiffer <occitan@esperanto.org> |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
4 ;; Keywords: conf ini windows java |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
5 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
6 ;; This file is part of GNU Emacs. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
7 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
8 ;; GNU Emacs is free software; you can redistribute it and/or modify |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
9 ;; it under the terms of the GNU General Public License as published by |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
10 ;; the Free Software Foundation; either version 2, or (at your option) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
11 ;; any later version. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
12 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
13 ;; GNU Emacs is distributed in the hope that it will be useful, |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
16 ;; GNU General Public License for more details. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
17 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
18 ;; You should have received a copy of the GNU General Public License |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
19 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
21 ;; Boston, MA 02111-1307, USA. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
22 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
23 ;;; Commentary: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
24 ;; |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
25 ;; This mode is designed to edit many similar varieties of Conf/Ini files and |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
26 ;; Java properties. It started out from Aurélien Tisné's ini-mode. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
27 ;; `conf-space-keywords' were inspired by Robert Fitzgerald's any-ini-mode. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
28 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
29 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
30 ;;; Code: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
31 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
32 (require 'newcomment) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
33 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
34 ;; Variables: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
35 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
36 (defgroup conf nil |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
37 "Configuration files." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
38 :group 'data |
58128
5da080855cb1
Emacs 21.4, not 20.4
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58116
diff
changeset
|
39 :version "21.4") |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
40 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
41 (defcustom conf-assignment-column 24 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
42 "Align assignments to this column by default with \\[conf-align-assignments]. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
43 If this number is negative, the `=' comes before the whitespace. Use 0 to |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
44 not align (only setting space according to `conf-assignment-space')." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
45 :type 'integer |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
46 :group 'conf) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
47 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
48 (defcustom conf-javaprop-assignment-column 32 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
49 "Value for `conf-assignment-column' in Java properties buffers." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
50 :type 'integer |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
51 :group 'conf) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
52 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
53 (defcustom conf-colon-assignment-column (- (abs conf-assignment-column)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
54 "Value for `conf-assignment-column' in Java properties buffers." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
55 :type 'integer |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
56 :group 'conf) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
57 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
58 (defcustom conf-assignment-space t |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
59 "Put at least one space around assignments when aligning." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
60 :type 'boolean |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
61 :group 'conf) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
62 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
63 (defcustom conf-colon-assignment-space nil |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
64 "Value for `conf-assignment-space' in colon style Conf mode buffers." |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
65 :type 'boolean |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
66 :group 'conf) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
67 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
68 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
69 (defvar conf-mode-map |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
70 (let ((map (make-sparse-keymap))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
71 (define-key map "\C-c\C-u" 'conf-unix-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
72 (define-key map "\C-c\C-w" 'conf-windows-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
73 (define-key map "\C-c\C-j" 'conf-javaprop-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
74 (define-key map "\C-c\C-s" 'conf-space-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
75 (define-key map "\C-c " 'conf-space-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
76 (define-key map "\C-c\C-c" 'conf-colon-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
77 (define-key map "\C-c:" 'conf-colon-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
78 (define-key map "\C-c\C-x" 'conf-xdefaults-mode) |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
79 (define-key map "\C-c\C-p" 'conf-ppd-mode) |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
80 (define-key map "\C-c\C-q" 'conf-quote-normal) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
81 (define-key map "\C-c\"" 'conf-quote-normal) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
82 (define-key map "\C-c'" 'conf-quote-normal) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
83 (define-key map "\C-c\C-a" 'conf-align-assignments) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
84 map) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
85 "Local keymap for conf-mode buffers.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
86 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
87 (defvar conf-mode-syntax-table |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
88 (let ((table (make-syntax-table))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
89 (modify-syntax-entry ?= "." table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
90 (modify-syntax-entry ?_ "_" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
91 (modify-syntax-entry ?- "_" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
92 (modify-syntax-entry ?. "_" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
93 (modify-syntax-entry ?\' "\"" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
94 (modify-syntax-entry ?\; "<" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
95 (modify-syntax-entry ?\n ">" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
96 (modify-syntax-entry ?\r ">" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
97 table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
98 "Syntax table in use in Windows style conf-mode buffers.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
99 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
100 (defvar conf-unix-mode-syntax-table |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
101 (let ((table (make-syntax-table conf-mode-syntax-table))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
102 (modify-syntax-entry ?\# "<" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
103 ;; override |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
104 (modify-syntax-entry ?\; "." table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
105 table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
106 "Syntax table in use in Unix style conf-mode buffers.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
107 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
108 (defvar conf-javaprop-mode-syntax-table |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
109 (let ((table (make-syntax-table conf-unix-mode-syntax-table))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
110 (modify-syntax-entry ?/ ". 124" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
111 (modify-syntax-entry ?* ". 23b" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
112 table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
113 "Syntax table in use in Java prperties buffers.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
114 |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
115 (defvar conf-ppd-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
116 (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
|
117 (modify-syntax-entry ?* ". 1" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
118 (modify-syntax-entry ?% ". 2" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
119 ;; override |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
120 (modify-syntax-entry ?\' "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
121 (modify-syntax-entry ?\; "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
122 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
123 "Syntax table in use in PPD conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
124 |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
125 (defvar conf-xdefaults-mode-syntax-table |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
126 (let ((table (make-syntax-table conf-mode-syntax-table))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
127 (modify-syntax-entry ?! "<" table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
128 ;; override |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
129 (modify-syntax-entry ?\; "." table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
130 table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
131 "Syntax table in use in Xdefaults style conf-mode buffers.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
132 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
133 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
134 (defvar conf-font-lock-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
135 `(;; [section] (do this first because it may look like a parameter) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
136 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
137 ;; var=val or var[index]=val |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
138 ("^[ \t]*\\(.+?\\)\\(?:\\[\\(.*?\\)\\]\\)?[ \t]*=" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
139 (1 'font-lock-variable-name-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
140 (2 'font-lock-constant-face nil t)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
141 ;; section { ... } (do this last because some assign ...{...) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
142 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
143 "Keywords to hilight in Conf mode") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
144 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
145 (defvar conf-javaprop-font-lock-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
146 '(;; var=val |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
147 ("^[ \t]*\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(\\..+?\\)?\\)?\\)?\\)?\\)?\\)?\\([:= \t]\\|$\\)" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
148 (1 'font-lock-variable-name-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
149 (2 'font-lock-constant-face nil t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
150 (3 'font-lock-variable-name-face nil t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
151 (4 'font-lock-constant-face nil t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
152 (5 'font-lock-variable-name-face nil t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
153 (6 'font-lock-constant-face nil t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
154 (7 'font-lock-variable-name-face nil t))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
155 "Keywords to hilight in Conf Java Properties mode") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
156 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
157 (defvar conf-space-keywords-alist |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
158 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
159 ("\\`/etc/magic\\'" . "[^ \t]+[ \t]+\\(?:[bl]?e?\\(?:short\\|long\\)\\|byte\\|string\\)[^ \t]*") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
160 ("/mod\\(?:ules\\|probe\\)\\.conf" . "alias\\|in\\(?:clude\\|stall\\)\\|options\\|remove") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
161 ("/manpath\\.config" . "MAN\\(?:DATORY_MANPATH\\|PATH_MAP\\|DB_MAP\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
162 ("/sensors\\.conf" . "chip\\|bus\\|label\\|compute\\|set\\|ignore") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
163 ("/sane\\(\\.d\\)?/" . "option\\|device\\|port\\|usb\\|sc\\(?:si\\|anner\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
164 ("/resmgr\\.conf" . "class\\|add\\|allow\\|deny") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
165 ("/dictionary\\.lst\\'" . "DICT\\|HYPH\\|THES") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
166 ("/tuxracer/options" . "set")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
167 "File name based settings for `conf-space-keywords'.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
168 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
169 (defvar conf-space-keywords nil |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
170 "Regexps for functions that may come before a space assignment. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
171 This allows constructs such as |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
172 keyword var value |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
173 This variable is best set in the file local variables, or through |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
174 `conf-space-keywords-alist'.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
175 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
176 (defvar conf-space-font-lock-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
177 `(;; [section] (do this first because it may look like a parameter) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
178 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
179 ;; section { ... } (do this first because it looks like a parameter) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
180 ("^[ \t]*\\(.+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
181 ;; var val |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
182 (eval if conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
183 (list (concat "^[ \t]*\\(" conf-space-keywords "\\)[ \t]+\\([^\000- ]+\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
184 '(1 'font-lock-keyword-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
185 '(2 'font-lock-variable-name-face)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
186 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
187 "Keywords to hilight in Conf Space mode") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
188 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
189 (defvar conf-colon-font-lock-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
190 `(;; [section] (do this first because it may look like a parameter) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
191 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
192 ;; var: val |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
193 ("^[ \t]*\\(.+?\\)[ \t]*:" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
194 (1 'font-lock-variable-name-face)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
195 ;; section { ... } (do this last because some assign ...{...) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
196 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
197 "Keywords to hilight in Conf Colon mode") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
198 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
199 (defvar conf-assignment-sign ?= |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
200 "What sign is used for assignments.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
201 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
202 (defvar conf-assignment-regexp ".+?\\([ \t]*=[ \t]*\\)" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
203 "Regexp to recognize assignments. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
204 It is anchored after the first sexp on a line. There must a |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
205 grouping for the assignment sign, including leading and trailing |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
206 whitespace.") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
207 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
208 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
209 ;; If anybody can figure out how to get the same effect by configuring |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
210 ;; `align', I'd be glad to hear. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
211 (defun conf-align-assignments (&optional arg) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
212 (interactive "P") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
213 (setq arg (if arg |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
214 (prefix-numeric-value arg) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
215 conf-assignment-column)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
216 (save-excursion |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
217 (goto-char (point-min)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
218 (while (not (eobp)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
219 (let ((cs (comment-beginning))) ; go before comment if within |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
220 (if cs (goto-char cs))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
221 (while (forward-comment 9)) ; max-int? |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
222 (when (and (not (eobp)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
223 (looking-at conf-assignment-regexp)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
224 (goto-char (match-beginning 1)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
225 (delete-region (point) (match-end 1)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
226 (if conf-assignment-sign |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
227 (if (>= arg 0) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
228 (progn |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
229 (indent-to-column arg) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
230 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
231 (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\ ""))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
232 (insert (if conf-assignment-space ?\ "") conf-assignment-sign) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
233 (unless (eolp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
234 (indent-to-column (- arg)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
235 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
236 (unless (eolp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
237 (if (>= (current-column) (abs arg)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
238 (insert ? ) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
239 (indent-to-column (abs arg)))))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
240 (forward-line)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
241 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
242 |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
243 (defun conf-quote-normal (arg) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
244 "Set the syntax of ' and \" to punctuation. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
245 With prefix arg, only do it for ' if 1, or only for \" if 2. |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
246 This only affects the current buffer. Some conf files use quotes |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
247 to delimit strings, while others allow quotes as simple parts of |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
248 the assigned value. In those files font locking will be wrong, |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
249 and you can correct it with this command. (Some files even do |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
250 both, i.e. quotes delimit strings, except when they are |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
251 unbalanced, but hey...)" |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
252 (interactive "P") |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
253 (let ((table (copy-syntax-table (syntax-table)))) |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
254 (if (or (not arg) (= (prefix-numeric-value arg) 1)) (modify-syntax-entry ?\' "." table)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
255 (if (or (not arg) (= (prefix-numeric-value arg) 2)) (modify-syntax-entry ?\" "." table)) |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
256 (set-syntax-table table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
257 (and (boundp 'font-lock-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
258 font-lock-mode |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
259 (font-lock-fontify-buffer)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
260 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
261 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
262 (defun conf-outline-level () |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
263 (let ((depth 0) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
264 (pt (match-end 0))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
265 (condition-case nil |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
266 (while (setq pt (scan-lists pt -1 1) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
267 depth (1+ depth))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
268 (scan-error depth)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
269 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
270 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
271 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
272 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
273 (defun conf-mode (&optional comment syntax-table name) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
274 "Mode for Unix and Windows Conf files and Java properties. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
275 Most conf files know only three kinds of constructs: parameter |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
276 assignments optionally grouped into sections and comments. Yet |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
277 there is a great range of variation in the exact syntax of conf |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
278 files. See below for various wrapper commands that set up the |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
279 details for some of the most widespread variants. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
280 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
281 This mode sets up font locking, outline, imenu and it provides |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
282 alignment support through `conf-align-assignments'. If strings |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
283 come out wrong, try `conf-quote-normal'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
284 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
285 Some files allow continuation lines, either with a backslash at |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
286 the end of line, or by indenting the next line (further). These |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
287 constructs cannot currently be recognized. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
288 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
289 Because of this great variety of nuances, which are often not |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
290 even clearly specified, please don't expect it to get every file |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
291 quite right. Patches that clearly identify some special case, |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
292 without breaking the general ones, are welcome. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
293 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
294 If instead you start this mode with the generic `conf-mode' |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
295 command, it will parse the buffer. It will generally well |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
296 identify the first four cases listed below. If the buffer |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
297 doesn't have enough contents to decide, this is identical to |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
298 `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
|
299 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
|
300 `conf-ppd-mode' and `conf-xdefaults-mode'. |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
301 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
302 \\{conf-mode-map}" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
303 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
304 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
305 (if (not comment) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
306 (let ((unix 0) (win 0) (equal 0) (colon 0) (space 0) (jp 0)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
307 (save-excursion |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
308 (goto-char (point-min)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
309 (while (not (eobp)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
310 (skip-chars-forward " \t\f") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
311 (cond ((eq (char-after) ?\#) (setq unix (1+ unix))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
312 ((eq (char-after) ?\;) (setq win (1+ win))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
313 ((eq (char-after) ?\[)) ; nop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
314 ((eolp)) ; nop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
315 ((eq (char-after) ?})) ; nop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
316 ;; recognize at most double spaces within names |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
317 ((looking-at "[^ \t\n=:]+\\(?: ?[^ \t\n=:]+\\)*[ \t]*[=:]") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
318 (if (eq (char-before (match-end 0)) ?=) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
319 (setq equal (1+ equal)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
320 (setq colon (1+ colon)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
321 ((looking-at "/[/*]") (setq jp (1+ jp))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
322 ((looking-at ".*{")) ; nop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
323 ((setq space (1+ space)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
324 (forward-line))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
325 (if (> jp (max unix win 3)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
326 (conf-javaprop-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
327 (if (> colon (max equal space)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
328 (conf-colon-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
329 (if (> space (max equal colon)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
330 (conf-space-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
331 (if (or (> win unix) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
332 (and (= win unix) (eq system-type 'windows-nt))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
333 (conf-windows-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
334 (conf-unix-mode)))))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
335 (kill-all-local-variables) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
336 (use-local-map conf-mode-map) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
337 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
338 (setq major-mode 'conf-mode |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
339 mode-name name) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
340 (set (make-local-variable 'comment-start) comment) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
341 (set (make-local-variable 'comment-start-skip) |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
342 (concat (regexp-quote comment-start) "+\\s *")) |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
343 (set (make-local-variable 'comment-use-syntax) t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
344 (set (make-local-variable 'parse-sexp-ignore-comments) t) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
345 (set (make-local-variable 'outline-regexp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
346 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
347 (set (make-local-variable 'outline-heading-end-regexp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
348 "[\n}]") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
349 (set (make-local-variable 'outline-level) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
350 'conf-outline-level) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
351 (set-syntax-table syntax-table) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
352 (setq imenu-generic-expression |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
353 '(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*=" 1) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
354 ;; [section] |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
355 (nil "^[ \t]*\\[[ \t]*\\(.+\\)[ \t]*\\]" 1) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
356 ;; section { ... } |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
357 (nil "^[ \t]*\\([^=:{} \t\n][^=:{}\n]+\\)[ \t\n]*{" 1))) |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
358 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
359 (run-mode-hooks 'conf-mode-hook))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
360 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
361 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
362 (defun conf-unix-mode () |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
363 "Conf Mode starter for Unix style Conf files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
364 Comments start with `#'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
365 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
366 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
367 # Conf mode font-locks this right on Unix and with C-c C-u |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
368 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
369 \[Desktop Entry] |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
370 Encoding=UTF-8 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
371 Name=The GIMP |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
372 Name[ca]=El GIMP |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
373 Name[cs]=GIMP" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
374 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
375 (conf-mode "#" conf-unix-mode-syntax-table "Conf[Unix]")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
376 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
377 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
378 (defun conf-windows-mode () |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
379 "Conf Mode starter for Windows style Conf files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
380 Comments start with `;'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
381 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
382 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
383 ; Conf mode font-locks this right on Windows and with C-c C-w |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
384 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
385 \[ExtShellFolderViews] |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
386 Default={5984FFE0-28D4-11CF-AE66-08002B2E1262} |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
387 {5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262} |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
388 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
389 \[{5984FFE0-28D4-11CF-AE66-08002B2E1262}] |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
390 PersistMoniker=file://Folder.htt" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
391 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
392 (conf-mode ";" conf-mode-syntax-table "Conf[WinIni]")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
393 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
394 ;; Here are a few more or less widespread styles. There are others, so |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
395 ;; obscure, they are not covered. E.g. RFC 2614 allows both Unix and Windows |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
396 ;; comments. Or the donkey has (* Pascal comments *) -- roll your own starter |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
397 ;; if you need it. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
398 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
399 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
400 (defun conf-javaprop-mode () |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
401 "Conf Mode starter for Java properties files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
402 Comments start with `#' but are also recognized with `//' or |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
403 between `/*' and `*/'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
404 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
405 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
406 # Conf mode font-locks this right with C-c C-j (Java properties) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
407 // another kind of comment |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
408 /* yet another */ |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
409 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
410 name:value |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
411 name=value |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
412 name value |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
413 x.1 = |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
414 x.2.y.1.z.1 = |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
415 x.2.y.1.z.2.zz =" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
416 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
417 (conf-mode "#" conf-javaprop-mode-syntax-table "Conf[JavaProp]") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
418 (set (make-local-variable 'conf-assignment-column) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
419 conf-javaprop-assignment-column) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
420 (set (make-local-variable 'conf-assignment-regexp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
421 ".+?\\([ \t]*[=: \t][ \t]*\\|$\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
422 (set (make-local-variable 'conf-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
423 conf-javaprop-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
424 (setq comment-start-skip "\\(?:#+\\|/[/*]+\\)\\s *") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
425 (setq imenu-generic-expression |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
426 '(("Parameters" "^[ \t]*\\(.+?\\)[=: \t]" 1)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
427 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
428 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
429 (defun conf-space-mode (&optional keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
430 "Conf Mode starter for space separated conf files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
431 \"Assignments\" are with ` '. Keywords before the parameters are |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
432 recognized according to `conf-space-keywords'. Interactively |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
433 with a prefix ARG of `0' no keywords will be recognized. With |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
434 any other prefix arg you will be prompted for a regexp to match |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
435 the keywords. Programmatically you can pass such a regexp as |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
436 KEYWORDS, or any non-nil non-string for no keywords. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
437 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
438 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
439 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
440 # Conf mode font-locks this right with C-c C-s (space separated) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
441 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
442 image/jpeg jpeg jpg jpe |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
443 image/png png |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
444 image/tiff tiff tif |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
445 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
446 # Or with keywords (from a recognized file name): |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
447 class desktop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
448 # Standard multimedia devices |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
449 add /dev/audio desktop |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
450 add /dev/mixer desktop" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
451 (interactive |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
452 (list (if current-prefix-arg |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
453 (if (> (prefix-numeric-value current-prefix-arg) 0) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
454 (read-string "Regexp to match keywords: ") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
455 t)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
456 (conf-unix-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
457 (setq mode-name "Conf[Space]") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
458 (set (make-local-variable 'conf-assignment-sign) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
459 nil) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
460 (set (make-local-variable 'conf-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
461 conf-space-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
462 ;; This doesn't seem right, but the next two depend on conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
463 ;; being set, while after-change-major-mode-hook might set up imenu, needing |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
464 ;; the following result: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
465 (hack-local-variables-prop-line) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
466 (hack-local-variables) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
467 (if keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
468 (set (make-local-variable 'conf-space-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
469 (if (stringp keywords) keywords)) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
470 (or conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
471 (not buffer-file-name) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
472 (set (make-local-variable 'conf-space-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
473 (assoc-default buffer-file-name conf-space-keywords-alist |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
474 'string-match)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
475 (set (make-local-variable 'conf-assignment-regexp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
476 (if conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
477 (concat "\\(?:" conf-space-keywords "\\)[ \t]+.+?\\([ \t]+\\|$\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
478 ".+?\\([ \t]+\\|$\\)")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
479 (setq imenu-generic-expression |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
480 `(,@(cdr imenu-generic-expression) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
481 ("Parameters" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
482 ,(if conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
483 (concat "^[ \t]*\\(?:" conf-space-keywords |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
484 "\\)[ \t]+\\([^ \t\n]+\\)\\(?:[ \t]\\|$\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
485 "^[ \t]*\\([^ \t\n[]+\\)\\(?:[ \t]\\|$\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
486 1)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
487 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
488 ;;;###autoload |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
489 (defun conf-colon-mode (&optional comment syntax-table name) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
490 "Conf Mode starter for Colon files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
491 \"Assignments\" are with `:'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
492 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
493 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
494 # Conf mode font-locks this right with C-c C-c (colon) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
495 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
496 <Multi_key> <exclam> <exclam> : \"\\241\" exclamdown |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
497 <Multi_key> <c> <slash> : \"\\242\" cent" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
498 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
499 (if comment |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
500 (conf-mode comment syntax-table name) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
501 (conf-unix-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
502 (setq mode-name "Conf[Colon]")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
503 (set (make-local-variable 'conf-assignment-space) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
504 conf-colon-assignment-space) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
505 (set (make-local-variable 'conf-assignment-column) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
506 conf-colon-assignment-column) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
507 (set (make-local-variable 'conf-assignment-sign) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
508 ?:) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
509 (set (make-local-variable 'conf-assignment-regexp) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
510 ".+?\\([ \t]*:[ \t]*\\)") |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
511 (set (make-local-variable 'conf-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
512 conf-colon-font-lock-keywords) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
513 (setq imenu-generic-expression |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
514 `(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*:" 1) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
515 ,@(cdr imenu-generic-expression)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
516 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
517 ;;;###autoload |
58691
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
518 (defun conf-ppd-mode () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
519 "Conf Mode starter for Adobe/CUPS PPD files. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
520 Comments start with `!' and \"assignments\" are with `:'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
521 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
522 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
523 *% Conf mode font-locks this right with C-c C-p (PPD) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
524 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
525 *ShortNickName: \"HP LaserJet 4/4M\" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
526 ;;; 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
|
527 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
528 ;; Copyright (C) 2004 by Daniel Pfeiffer <occitan@esperanto.org> |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
529 ;; Keywords: conf ini windows java |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
530 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
531 ;; This file is part of GNU Emacs. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
532 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
533 ;; 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
|
534 ;; it under the terms of the GNU General Public License as published by |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
535 ;; the Free Software Foundation; either version 2, or (at your option) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
536 ;; any later version. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
537 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
538 ;; 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
|
539 ;; 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
|
540 ;; 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
|
541 ;; GNU General Public License for more details. |
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 ;; 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
|
544 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
545 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
546 ;; Boston, MA 02111-1307, USA. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
547 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
548 ;;; Commentary: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
549 ;; |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
550 ;; 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
|
551 ;; 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
|
552 ;; `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
|
553 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
554 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
555 ;;; Code: |
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 (require 'newcomment) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
558 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
559 ;; Variables: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
560 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
561 (defgroup conf nil |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
562 "Configuration files." |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
563 :group 'data |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
564 :version "21.4") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
565 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
566 (defcustom conf-assignment-column 24 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
567 "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
|
568 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
|
569 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
|
570 :type 'integer |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
571 :group 'conf) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
572 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
573 (defcustom conf-javaprop-assignment-column 32 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
574 "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
|
575 :type 'integer |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
576 :group 'conf) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
577 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
578 (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
|
579 "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
|
580 :type 'integer |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
581 :group 'conf) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
582 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
583 (defcustom conf-assignment-space t |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
584 "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
|
585 :type 'boolean |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
586 :group 'conf) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
587 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
588 (defcustom conf-colon-assignment-space nil |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
589 "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
|
590 :type 'boolean |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
591 :group 'conf) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
592 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
593 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
594 (defvar conf-mode-map |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
595 (let ((map (make-sparse-keymap))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
596 (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
|
597 (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
|
598 (define-key map "\C-c\C-j" 'conf-javaprop-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
599 (define-key map "\C-c\C-s" 'conf-space-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
600 (define-key map "\C-c " 'conf-space-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
601 (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
|
602 (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
|
603 (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
|
604 (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
|
605 (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
|
606 (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
|
607 (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
|
608 (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
|
609 map) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
610 "Local keymap for conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
611 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
612 (defvar conf-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
613 (let ((table (make-syntax-table))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
614 (modify-syntax-entry ?= "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
615 (modify-syntax-entry ?_ "_" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
616 (modify-syntax-entry ?- "_" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
617 (modify-syntax-entry ?. "_" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
618 (modify-syntax-entry ?\' "\"" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
619 (modify-syntax-entry ?\; "<" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
620 (modify-syntax-entry ?\n ">" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
621 (modify-syntax-entry ?\r ">" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
622 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
623 "Syntax table in use in Windows style conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
624 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
625 (defvar conf-unix-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
626 (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
|
627 (modify-syntax-entry ?\# "<" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
628 ;; override |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
629 (modify-syntax-entry ?\; "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
630 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
631 "Syntax table in use in Unix style conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
632 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
633 (defvar conf-javaprop-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
634 (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
|
635 (modify-syntax-entry ?/ ". 124" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
636 (modify-syntax-entry ?* ". 23b" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
637 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
638 "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
|
639 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
640 (defvar conf-ppd-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
641 (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
|
642 (modify-syntax-entry ?* ". 1" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
643 (modify-syntax-entry ?% ". 2" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
644 ;; override |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
645 (modify-syntax-entry ?\' "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
646 (modify-syntax-entry ?\; "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
647 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
648 "Syntax table in use in PPD conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
649 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
650 (defvar conf-xdefaults-mode-syntax-table |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
651 (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
|
652 (modify-syntax-entry ?! "<" table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
653 ;; override |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
654 (modify-syntax-entry ?\; "." table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
655 table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
656 "Syntax table in use in Xdefaults style conf-mode buffers.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
657 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
658 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
659 (defvar conf-font-lock-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
660 `(;; [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
|
661 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
662 ;; var=val or var[index]=val |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
663 ("^[ \t]*\\(.+?\\)\\(?:\\[\\(.*?\\)\\]\\)?[ \t]*=" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
664 (1 'font-lock-variable-name-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
665 (2 'font-lock-constant-face nil t)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
666 ;; section { ... } (do this last because some assign ...{...) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
667 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
668 "Keywords to hilight in Conf mode") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
669 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
670 (defvar conf-javaprop-font-lock-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
671 '(;; var=val |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
672 ("^[ \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
|
673 (1 'font-lock-variable-name-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
674 (2 'font-lock-constant-face nil t) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
675 (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
|
676 (4 'font-lock-constant-face nil t) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
677 (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
|
678 (6 'font-lock-constant-face nil t) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
679 (7 'font-lock-variable-name-face nil t))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
680 "Keywords to hilight in Conf Java Properties mode") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
681 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
682 (defvar conf-space-keywords-alist |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
683 '(("\\`/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
|
684 ("\\`/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
|
685 ("/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
|
686 ("/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
|
687 ("/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
|
688 ("/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
|
689 ("/resmgr\\.conf" . "class\\|add\\|allow\\|deny") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
690 ("/dictionary\\.lst\\'" . "DICT\\|HYPH\\|THES") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
691 ("/tuxracer/options" . "set")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
692 "File name based settings for `conf-space-keywords'.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
693 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
694 (defvar conf-space-keywords nil |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
695 "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
|
696 This allows constructs such as |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
697 keyword var value |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
698 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
|
699 `conf-space-keywords-alist'.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
700 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
701 (defvar conf-space-font-lock-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
702 `(;; [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
|
703 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
704 ;; 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
|
705 ("^[ \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
|
706 ;; var val |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
707 (eval if conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
708 (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
|
709 '(1 'font-lock-keyword-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
710 '(2 'font-lock-variable-name-face)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
711 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
712 "Keywords to hilight in Conf Space mode") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
713 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
714 (defvar conf-colon-font-lock-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
715 `(;; [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
|
716 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
717 ;; var: val |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
718 ("^[ \t]*\\(.+?\\)[ \t]*:" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
719 (1 'font-lock-variable-name-face)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
720 ;; section { ... } (do this last because some assign ...{...) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
721 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
722 "Keywords to hilight in Conf Colon mode") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
723 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
724 (defvar conf-assignment-sign ?= |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
725 "What sign is used for assignments.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
726 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
727 (defvar conf-assignment-regexp ".+?\\([ \t]*=[ \t]*\\)" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
728 "Regexp to recognize assignments. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
729 It is anchored after the first sexp on a line. There must a |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
730 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
|
731 whitespace.") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
732 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
733 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
734 ;; 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
|
735 ;; `align', I'd be glad to hear. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
736 (defun conf-align-assignments (&optional arg) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
737 (interactive "P") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
738 (setq arg (if arg |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
739 (prefix-numeric-value arg) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
740 conf-assignment-column)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
741 (save-excursion |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
742 (goto-char (point-min)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
743 (while (not (eobp)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
744 (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
|
745 (if cs (goto-char cs))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
746 (while (forward-comment 9)) ; max-int? |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
747 (when (and (not (eobp)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
748 (looking-at conf-assignment-regexp)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
749 (goto-char (match-beginning 1)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
750 (delete-region (point) (match-end 1)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
751 (if conf-assignment-sign |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
752 (if (>= arg 0) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
753 (progn |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
754 (indent-to-column arg) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
755 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
756 (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\ ""))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
757 (insert (if conf-assignment-space ?\ "") conf-assignment-sign) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
758 (unless (eolp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
759 (indent-to-column (- arg)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
760 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
761 (unless (eolp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
762 (if (>= (current-column) (abs arg)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
763 (insert ? ) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
764 (indent-to-column (abs arg)))))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
765 (forward-line)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
766 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
767 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
768 (defun conf-quote-normal (arg) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
769 "Set the syntax of ' and \" to punctuation. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
770 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
|
771 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
|
772 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
|
773 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
|
774 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
|
775 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
|
776 unbalanced, but hey...)" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
777 (interactive "P") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
778 (let ((table (copy-syntax-table (syntax-table)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
779 (if (or (not arg) (= (prefix-numeric-value arg) 1)) (modify-syntax-entry ?\' "." table)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
780 (if (or (not arg) (= (prefix-numeric-value arg) 2)) (modify-syntax-entry ?\" "." table)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
781 (set-syntax-table table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
782 (and (boundp 'font-lock-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
783 font-lock-mode |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
784 (font-lock-fontify-buffer)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
785 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
786 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
787 (defun conf-outline-level () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
788 (let ((depth 0) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
789 (pt (match-end 0))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
790 (condition-case nil |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
791 (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
|
792 depth (1+ depth))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
793 (scan-error depth)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
794 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
795 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
796 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
797 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
798 (defun conf-mode (&optional comment syntax-table name) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
799 "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
|
800 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
|
801 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
|
802 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
|
803 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
|
804 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
|
805 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
806 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
|
807 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
|
808 come out wrong, try `conf-quote-normal'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
809 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
810 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
|
811 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
|
812 constructs cannot currently be recognized. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
813 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
814 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
|
815 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
|
816 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
|
817 without breaking the general ones, are welcome. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
818 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
819 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
|
820 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
|
821 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
|
822 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
|
823 `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
|
824 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
|
825 `conf-ppd-mode' and `conf-xdefaults-mode'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
826 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
827 \\{conf-mode-map}" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
828 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
829 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
830 (if (not comment) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
831 (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
|
832 (save-excursion |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
833 (goto-char (point-min)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
834 (while (not (eobp)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
835 (skip-chars-forward " \t\f") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
836 (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
|
837 ((eq (char-after) ?\;) (setq win (1+ win))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
838 ((eq (char-after) ?\[)) ; nop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
839 ((eolp)) ; nop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
840 ((eq (char-after) ?})) ; nop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
841 ;; recognize at most double spaces within names |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
842 ((looking-at "[^ \t\n=:]+\\(?: ?[^ \t\n=:]+\\)*[ \t]*[=:]") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
843 (if (eq (char-before (match-end 0)) ?=) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
844 (setq equal (1+ equal)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
845 (setq colon (1+ colon)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
846 ((looking-at "/[/*]") (setq jp (1+ jp))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
847 ((looking-at ".*{")) ; nop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
848 ((setq space (1+ space)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
849 (forward-line))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
850 (if (> jp (max unix win 3)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
851 (conf-javaprop-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
852 (if (> colon (max equal space)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
853 (conf-colon-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
854 (if (> space (max equal colon)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
855 (conf-space-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
856 (if (or (> win unix) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
857 (and (= win unix) (eq system-type 'windows-nt))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
858 (conf-windows-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
859 (conf-unix-mode)))))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
860 (kill-all-local-variables) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
861 (use-local-map conf-mode-map) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
862 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
863 (setq major-mode 'conf-mode |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
864 mode-name name) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
865 (set (make-local-variable 'comment-start) comment) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
866 (set (make-local-variable 'comment-start-skip) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
867 (concat (regexp-quote comment-start) "+\\s *")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
868 (set (make-local-variable 'comment-use-syntax) t) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
869 (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
|
870 (set (make-local-variable 'outline-regexp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
871 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
872 (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
|
873 "[\n}]") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
874 (set (make-local-variable 'outline-level) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
875 'conf-outline-level) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
876 (set-syntax-table syntax-table) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
877 (setq imenu-generic-expression |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
878 '(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*=" 1) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
879 ;; [section] |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
880 (nil "^[ \t]*\\[[ \t]*\\(.+\\)[ \t]*\\]" 1) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
881 ;; section { ... } |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
882 (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
|
883 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
884 (run-mode-hooks 'conf-mode-hook))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
885 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
886 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
887 (defun conf-unix-mode () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
888 "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
|
889 Comments start with `#'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
890 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
891 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
892 # Conf mode font-locks this right on Unix and with C-c C-u |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
893 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
894 \[Desktop Entry] |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
895 Encoding=UTF-8 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
896 Name=The GIMP |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
897 Name[ca]=El GIMP |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
898 Name[cs]=GIMP" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
899 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
900 (conf-mode "#" conf-unix-mode-syntax-table "Conf[Unix]")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
901 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
902 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
903 (defun conf-windows-mode () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
904 "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
|
905 Comments start with `;'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
906 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
907 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
908 ; Conf mode font-locks this right on Windows and with C-c C-w |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
909 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
910 \[ExtShellFolderViews] |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
911 Default={5984FFE0-28D4-11CF-AE66-08002B2E1262} |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
912 {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
|
913 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
914 \[{5984FFE0-28D4-11CF-AE66-08002B2E1262}] |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
915 PersistMoniker=file://Folder.htt" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
916 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
917 (conf-mode ";" conf-mode-syntax-table "Conf[WinIni]")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
918 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
919 ;; 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
|
920 ;; 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
|
921 ;; 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
|
922 ;; if you need it. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
923 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
924 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
925 (defun conf-javaprop-mode () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
926 "Conf Mode starter for Java properties files. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
927 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
|
928 between `/*' and `*/'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
929 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
930 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
931 # Conf mode font-locks this right with C-c C-j (Java properties) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
932 // another kind of comment |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
933 /* yet another */ |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
934 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
935 name:value |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
936 name=value |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
937 name value |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
938 x.1 = |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
939 x.2.y.1.z.1 = |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
940 x.2.y.1.z.2.zz =" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
941 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
942 (conf-mode "#" conf-javaprop-mode-syntax-table "Conf[JavaProp]") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
943 (set (make-local-variable 'conf-assignment-column) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
944 conf-javaprop-assignment-column) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
945 (set (make-local-variable 'conf-assignment-regexp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
946 ".+?\\([ \t]*[=: \t][ \t]*\\|$\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
947 (set (make-local-variable 'conf-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
948 conf-javaprop-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
949 (setq comment-start-skip "\\(?:#+\\|/[/*]+\\)\\s *") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
950 (setq imenu-generic-expression |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
951 '(("Parameters" "^[ \t]*\\(.+?\\)[=: \t]" 1)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
952 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
953 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
954 (defun conf-space-mode (&optional keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
955 "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
|
956 \"Assignments\" are with ` '. Keywords before the parameters are |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
957 recognized according to `conf-space-keywords'. Interactively |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
958 with a prefix ARG of `0' no keywords will be recognized. With |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
959 any other prefix arg you will be prompted for a regexp to match |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
960 the keywords. Programmatically you can pass such a regexp as |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
961 KEYWORDS, or any non-nil non-string for no keywords. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
962 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
963 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
964 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
965 # Conf mode font-locks this right with C-c C-s (space separated) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
966 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
967 image/jpeg jpeg jpg jpe |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
968 image/png png |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
969 image/tiff tiff tif |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
970 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
971 # 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
|
972 class desktop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
973 # Standard multimedia devices |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
974 add /dev/audio desktop |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
975 add /dev/mixer desktop" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
976 (interactive |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
977 (list (if current-prefix-arg |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
978 (if (> (prefix-numeric-value current-prefix-arg) 0) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
979 (read-string "Regexp to match keywords: ") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
980 t)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
981 (conf-unix-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
982 (setq mode-name "Conf[Space]") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
983 (set (make-local-variable 'conf-assignment-sign) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
984 nil) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
985 (set (make-local-variable 'conf-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
986 conf-space-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
987 ;; This doesn't seem right, but the next two depend on conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
988 ;; being set, while after-change-major-mode-hook might set up imenu, needing |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
989 ;; the following result: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
990 (hack-local-variables-prop-line) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
991 (hack-local-variables) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
992 (if keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
993 (set (make-local-variable 'conf-space-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
994 (if (stringp keywords) keywords)) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
995 (or conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
996 (not buffer-file-name) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
997 (set (make-local-variable 'conf-space-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
998 (assoc-default buffer-file-name conf-space-keywords-alist |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
999 'string-match)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1000 (set (make-local-variable 'conf-assignment-regexp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1001 (if conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1002 (concat "\\(?:" conf-space-keywords "\\)[ \t]+.+?\\([ \t]+\\|$\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1003 ".+?\\([ \t]+\\|$\\)")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1004 (setq imenu-generic-expression |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1005 `(,@(cdr imenu-generic-expression) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1006 ("Parameters" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1007 ,(if conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1008 (concat "^[ \t]*\\(?:" conf-space-keywords |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1009 "\\)[ \t]+\\([^ \t\n]+\\)\\(?:[ \t]\\|$\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1010 "^[ \t]*\\([^ \t\n[]+\\)\\(?:[ \t]\\|$\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1011 1)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1012 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1013 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1014 (defun conf-colon-mode (&optional comment syntax-table name) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1015 "Conf Mode starter for Colon files. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1016 \"Assignments\" are with `:'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1017 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1018 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1019 # Conf mode font-locks this right with C-c C-c (colon) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1020 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1021 <Multi_key> <exclam> <exclam> : \"\\241\" exclamdown |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1022 <Multi_key> <c> <slash> : \"\\242\" cent" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1023 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1024 (if comment |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1025 (conf-mode comment syntax-table name) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1026 (conf-unix-mode) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1027 (setq mode-name "Conf[Colon]")) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1028 (set (make-local-variable 'conf-assignment-space) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1029 conf-colon-assignment-space) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1030 (set (make-local-variable 'conf-assignment-column) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1031 conf-colon-assignment-column) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1032 (set (make-local-variable 'conf-assignment-sign) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1033 ?:) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1034 (set (make-local-variable 'conf-assignment-regexp) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1035 ".+?\\([ \t]*:[ \t]*\\)") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1036 (set (make-local-variable 'conf-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1037 conf-colon-font-lock-keywords) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1038 (setq imenu-generic-expression |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1039 `(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*:" 1) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1040 ,@(cdr imenu-generic-expression)))) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1041 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1042 ;;;###autoload |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1043 (defun conf-ppd-mode () |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1044 "Conf Mode starter for Adobe/CUPS PPD files. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1045 Comments start with `!' and \"assignments\" are with `:'. |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1046 For details see `conf-mode'. Example: |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1047 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1048 *% Conf mode font-locks this right with C-c C-p (PPD) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1049 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1050 *DefaultTransfer: Null |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1051 *Transfer Null.Inverse: \"{ 1 exch sub }\"" |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1052 (interactive) |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1053 (conf-colon-mode "*%" conf-ppd-mode-syntax-table "Conf[PPD]") |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1054 ;; no sections, they match within PostScript code |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1055 (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
|
1056 |
e5f1fb888f0b
(conf-ppd-mode-syntax-table): New var.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58128
diff
changeset
|
1057 ;;;###autoload |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1058 (defun conf-xdefaults-mode () |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1059 "Conf Mode starter for Xdefaults files. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1060 Comments start with `!' and \"assignments\" are with `:'. |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1061 For details see `conf-mode'. Example: |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1062 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1063 ! Conf mode font-locks this right with C-c C-x (.Xdefaults) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1064 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1065 *background: gray99 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1066 *foreground: black" |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1067 (interactive) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1068 (conf-colon-mode "!" conf-xdefaults-mode-syntax-table "Conf[Xdefaults]")) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1069 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1070 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1071 ;; font lock support |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1072 (if (boundp 'font-lock-defaults-alist) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1073 (add-to-list |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1074 'font-lock-defaults-alist |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1075 (cons 'conf-mode |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1076 (list 'conf-font-lock-keywords nil t nil nil)))) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1077 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1078 |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1079 (provide 'conf-mode) |
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1080 |
58116
a026512a201c
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
58115
diff
changeset
|
1081 ;; arch-tag: 0a3805b2-0371-4d3a-8498-8897116b2356 |
58115
740fbca5078f
*** empty log message ***
Daniel Pfeiffer <occitan@esperanto.org>
parents:
diff
changeset
|
1082 ;;; conf-mode.el ends here |