1 ;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files
3 ;; Copyright (C) 2004-2011 Free Software Foundation, Inc.
5 ;; Author: Daniel Pfeiffer <occitan@esperanto.org>
6 ;; Keywords: conf ini windows java
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;; This mode is designed to edit many similar varieties of Conf/Ini files and
26 ;; Java properties. It started out from Aurélien Tisné's ini-mode.
27 ;; `conf-space-keywords' were inspired by Robert Fitzgerald's any-ini-mode.
34 (defvar outline-heading-end-regexp
)
39 "Configuration files."
43 (defcustom conf-assignment-column
24
44 "Align assignments to this column by default with \\[conf-align-assignments].
45 If this number is negative, the `=' comes before the whitespace. Use 0 to
46 not align (only setting space according to `conf-assignment-space')."
50 (defcustom conf-javaprop-assignment-column
32
51 "Value for `conf-assignment-column' in Java properties buffers."
55 (defcustom conf-colon-assignment-column
(- (abs conf-assignment-column
))
56 "Value for `conf-assignment-column' in Java properties buffers."
60 (defcustom conf-assignment-space t
61 "Put at least one space around assignments when aligning."
65 (defcustom conf-colon-assignment-space nil
66 "Value for `conf-assignment-space' in colon style Conf mode buffers."
71 (let ((map (make-sparse-keymap))
72 (menu-map (make-sparse-keymap)))
73 (define-key map
"\C-c\C-u" 'conf-unix-mode
)
74 (define-key map
"\C-c\C-w" 'conf-windows-mode
)
75 (define-key map
"\C-c\C-j" 'conf-javaprop-mode
)
76 (define-key map
"\C-c\C-s" 'conf-space-keywords
)
77 (define-key map
"\C-c " 'conf-space-keywords
)
78 (define-key map
"\C-c\C-c" 'conf-colon-mode
)
79 (define-key map
"\C-c:" 'conf-colon-mode
)
80 (define-key map
"\C-c\C-x" 'conf-xdefaults-mode
)
81 (define-key map
"\C-c\C-p" 'conf-ppd-mode
)
82 (define-key map
"\C-c\C-q" 'conf-quote-normal
)
83 (define-key map
"\C-c\"" 'conf-quote-normal
)
84 (define-key map
"\C-c'" 'conf-quote-normal
)
85 (define-key map
"\C-c\C-a" 'conf-align-assignments
)
86 (define-key map
[menu-bar sh-script
] (cons "Conf" menu-map
))
87 (define-key menu-map
[conf-windows-mode
]
88 '(menu-item "Windows mode"
90 :help
"Conf Mode starter for Windows style Conf files"
91 :button
(:radio .
(eq major-mode
'conf-windows-mode
))))
92 (define-key menu-map
[conf-javaprop-mode
]
93 '(menu-item "Java properties mode"
95 :help
"Conf Mode starter for Java properties files"
96 :button
(:radio .
(eq major-mode
'conf-javaprop-mode
))))
97 (define-key menu-map
[conf-space-keywords
]
98 '(menu-item "Space keywords mode..."
100 :help
"Enter Conf Space mode using regexp KEYWORDS to match the keywords"
101 :button
(:radio .
(eq major-mode
'conf-space-keywords
))))
102 (define-key menu-map
[conf-ppd-mode
]
103 '(menu-item "PPD mode"
105 :help
"Conf Mode starter for Adobe/CUPS PPD files"
106 :button
(:radio .
(eq major-mode
'conf-ppd-mode
))))
107 (define-key menu-map
[conf-colon-mode
]
108 '(menu-item "Colon mode"
110 :help
"Conf Mode starter for Colon files"
111 :button
(:radio .
(eq major-mode
'conf-colon-mode
))))
112 (define-key menu-map
[conf-unix-mode
]
113 '(menu-item "Unix mode"
115 :help
"Conf Mode starter for Unix style Conf files"
116 :button
(:radio .
(eq major-mode
'conf-unix-mode
))))
117 (define-key menu-map
[conf-xdefaults-mode
]
118 '(menu-item "Xdefaults mode"
120 :help
"Conf Mode starter for Xdefaults files"
121 :button
(:radio .
(eq major-mode
'conf-xdefaults-mode
))))
122 (define-key menu-map
[c-s0
] '("--"))
123 (define-key menu-map
[conf-quote-normal
]
124 '(menu-item "Set quote syntax normal" conf-quote-normal
125 :help
"Set the syntax of \' and \" to punctuation"))
126 (define-key menu-map
[conf-align-assignments
]
127 '(menu-item "Align assignments" conf-align-assignments
128 :help
"Align assignments"))
130 "Local keymap for `conf-mode' buffers.")
132 (defvar conf-mode-syntax-table
133 (let ((table (make-syntax-table)))
134 (modify-syntax-entry ?
= "." table
)
135 (modify-syntax-entry ?_
"_" table
)
136 (modify-syntax-entry ?-
"_" table
)
137 (modify-syntax-entry ?.
"_" table
)
138 (modify-syntax-entry ?
\' "\"" table
)
139 (modify-syntax-entry ?\
; "<" table)
140 (modify-syntax-entry ?
\n ">" table
)
141 (modify-syntax-entry ?
\r ">" table
)
143 "Syntax table in use in Windows style `conf-mode' buffers.")
145 (defvar conf-unix-mode-syntax-table
146 (let ((table (make-syntax-table conf-mode-syntax-table
)))
147 (modify-syntax-entry ?\
# "<" table
)
149 (modify-syntax-entry ?\
; "." table)
151 "Syntax table in use in Unix style `conf-mode' buffers.")
153 (defvar conf-javaprop-mode-syntax-table
154 (let ((table (make-syntax-table conf-unix-mode-syntax-table
)))
155 (modify-syntax-entry ?
/ ". 124" table
)
156 (modify-syntax-entry ?
* ". 23b" table
)
158 "Syntax table in use in Java properties buffers.")
160 (defvar conf-ppd-mode-syntax-table
161 (let ((table (make-syntax-table conf-mode-syntax-table
)))
162 (modify-syntax-entry ?
* ". 1" table
)
163 (modify-syntax-entry ?%
". 2" table
)
165 (modify-syntax-entry ?
\' "." table
)
166 (modify-syntax-entry ?\
; "." table)
168 "Syntax table in use in PPD `conf-mode' buffers.")
170 (defvar conf-xdefaults-mode-syntax-table
171 (let ((table (make-syntax-table conf-mode-syntax-table
)))
172 (modify-syntax-entry ?
! "<" table
)
174 (modify-syntax-entry ?\
; "." table)
176 "Syntax table in use in Xdefaults style `conf-mode' buffers.")
179 (defvar conf-font-lock-keywords
180 '(;; [section] (do this first because it may look like a parameter)
181 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face
)
182 ;; var=val or var[index]=val
183 ("^[ \t]*\\(.+?\\)\\(?:\\[\\(.*?\\)\\]\\)?[ \t]*="
184 (1 'font-lock-variable-name-face
)
185 (2 'font-lock-constant-face nil t
))
186 ;; section { ... } (do this last because some assign ...{...)
187 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend
))
188 "Keywords to highlight in Conf mode.")
190 (defvar conf-javaprop-font-lock-keywords
192 ("^[ \t]*\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(?:\\.\\(.+?\\)\\(?:\\.\\([0-9]+\\)\\(\\..+?\\)?\\)?\\)?\\)?\\)?\\)?\\([:= \t]\\|$\\)"
193 (1 'font-lock-variable-name-face
)
194 (2 'font-lock-constant-face nil t
)
195 (3 'font-lock-variable-name-face nil t
)
196 (4 'font-lock-constant-face nil t
)
197 (5 'font-lock-variable-name-face nil t
)
198 (6 'font-lock-constant-face nil t
)
199 (7 'font-lock-variable-name-face nil t
)))
200 "Keywords to highlight in Conf Java Properties mode.")
202 (defvar conf-space-keywords-alist
203 '(("\\`/etc/gpm/" .
"key\\|name\\|foreground\\|background\\|border\\|head")
204 ("\\`/etc/magic\\'" .
"[^ \t]+[ \t]+\\(?:[bl]?e?\\(?:short\\|long\\)\\|byte\\|string\\)[^ \t]*")
205 ("/mod\\(?:ules\\|probe\\)\\.conf" .
"alias\\|in\\(?:clude\\|stall\\)\\|options\\|remove")
206 ("/manpath\\.config" .
"MAN\\(?:DATORY_MANPATH\\|PATH_MAP\\|DB_MAP\\)")
207 ("/sensors\\.conf" .
"chip\\|bus\\|label\\|compute\\|set\\|ignore")
208 ("/sane\\(\\.d\\)?/" .
"option\\|device\\|port\\|usb\\|sc\\(?:si\\|anner\\)")
209 ("/resmgr\\.conf" .
"class\\|add\\|allow\\|deny")
210 ("/dictionary\\.lst\\'" .
"DICT\\|HYPH\\|THES")
211 ("/tuxracer/options" .
"set"))
212 "File-name-based settings for the variable `conf-space-keywords'.")
214 (defvar conf-space-keywords nil
215 "Regexps for functions that may come before a space assignment.
216 This allows constructs such as
218 This variable is best set in the file local variables, or through
219 `conf-space-keywords-alist'.")
220 (put 'conf-space-keywords
'safe-local-variable
'stringp
)
222 (defvar conf-space-font-lock-keywords
223 `(;; [section] (do this first because it may look like a parameter)
224 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face
)
225 ;; section { ... } (do this first because it looks like a parameter)
226 ("^[ \t]*\\(.+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face
)
228 (eval if conf-space-keywords
229 (list (concat "^[ \t]*\\(" conf-space-keywords
"\\)[ \t]+\\([^\000- ]+\\)")
230 '(1 'font-lock-keyword-face
)
231 '(2 'font-lock-variable-name-face
))
232 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face
)))
233 "Keywords to highlight in Conf Space mode.")
235 (defvar conf-colon-font-lock-keywords
236 `(;; [section] (do this first because it may look like a parameter)
237 ("^[ \t]*\\[\\(.+\\)\\]" 1 'font-lock-type-face
)
239 ("^[ \t]*\\(.+?\\)[ \t]*:"
240 (1 'font-lock-variable-name-face
))
241 ;; section { ... } (do this last because some assign ...{...)
242 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend
))
243 "Keywords to highlight in Conf Colon mode.")
245 (defvar conf-assignment-sign ?
=
246 "Sign used for assignments (char or string).")
248 (defvar conf-assignment-regexp
".+?\\([ \t]*=[ \t]*\\)"
249 "Regexp to recognize assignments.
250 It is anchored after the first sexp on a line. There must be a
251 grouping for the assignment sign, including leading and trailing
255 ;; If anybody can figure out how to get the same effect by configuring
256 ;; `align', I'd be glad to hear.
257 (defun conf-align-assignments (&optional arg
)
259 "Align the assignments in the buffer or active region.
260 In Transient Mark mode, if the mark is active, operate on the
261 contents of the region. Otherwise, operate on the whole buffer."
263 (prefix-numeric-value arg
)
264 conf-assignment-column
))
268 (narrow-to-region (region-beginning) (region-end)))
269 (goto-char (point-min))
271 (let ((cs (comment-beginning))) ; go before comment if within
272 (if cs
(goto-char cs
)))
273 (while (forward-comment 9)) ; max-int?
274 (when (and (not (eobp))
275 (looking-at conf-assignment-regexp
))
276 (goto-char (match-beginning 1))
277 (delete-region (point) (match-end 1))
278 (if conf-assignment-sign
281 (indent-to-column arg
)
282 (or (not conf-assignment-space
)
283 (memq (char-before (point)) '(?\s ?
\t)) (insert ?\s
))
284 (insert conf-assignment-sign
285 (if (and conf-assignment-space
(not (eolp))) ?\s
"")))
286 (insert (if conf-assignment-space ?\s
"") conf-assignment-sign
)
288 (indent-to-column (- arg
))
289 (or (not conf-assignment-space
)
290 (memq (char-before (point)) '(?\s ?
\t)) (insert ?\s
))))
292 (if (>= (current-column) (abs arg
))
294 (indent-to-column (abs arg
))))))
298 (defun conf-quote-normal (arg)
299 "Set the syntax of ' and \" to punctuation.
300 With prefix arg, only do it for ' if 1, or only for \" if 2.
301 This only affects the current buffer. Some conf files use quotes
302 to delimit strings, while others allow quotes as simple parts of
303 the assigned value. In those files font locking will be wrong,
304 and you can correct it with this command. (Some files even do
305 both, i.e. quotes delimit strings, except when they are
306 unbalanced, but hey...)"
308 (let ((table (copy-syntax-table (syntax-table))))
309 (when (or (not arg
) (= (prefix-numeric-value arg
) 1))
310 (modify-syntax-entry ?
\' "." table
))
311 (when (or (not arg
) (= (prefix-numeric-value arg
) 2))
312 (modify-syntax-entry ?
\" "." table
))
313 (set-syntax-table table
)
315 (font-lock-fontify-buffer))))
318 (defun conf-outline-level ()
322 (while (setq pt
(scan-lists pt -
1 1)
324 (scan-error depth
))))
330 "Mode for Unix and Windows Conf files and Java properties.
331 Most conf files know only three kinds of constructs: parameter
332 assignments optionally grouped into sections and comments. Yet
333 there is a great range of variation in the exact syntax of conf
334 files. See below for various wrapper commands that set up the
335 details for some of the most widespread variants.
337 This mode sets up font locking, outline, imenu and it provides
338 alignment support through `conf-align-assignments'. If strings
339 come out wrong, try `conf-quote-normal'.
341 Some files allow continuation lines, either with a backslash at
342 the end of line, or by indenting the next line (further). These
343 constructs cannot currently be recognized.
345 Because of this great variety of nuances, which are often not
346 even clearly specified, please don't expect it to get every file
347 quite right. Patches that clearly identify some special case,
348 without breaking the general ones, are welcome.
350 If instead you start this mode with the generic `conf-mode'
351 command, it will parse the buffer. It will generally well
352 identify the first four cases listed below. If the buffer
353 doesn't have enough contents to decide, this is identical to
354 `conf-windows-mode' on Windows, elsewhere to `conf-unix-mode'.
355 See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
356 `conf-ppd-mode' and `conf-xdefaults-mode'.
361 ;; `conf-mode' plays two roles: it's the parent of several sub-modes
362 ;; but it's also the function that chooses between those submodes.
363 ;; To tell the difference between those two cases where the function
364 ;; might be called, we check `delay-mode-hooks'.
365 ;; (adopted from tex-mode.el)
366 (if (not delay-mode-hooks
)
367 ;; try to guess sub-mode of conf-mode based on buffer content
368 (let ((unix 0) (win 0) (equal 0) (colon 0) (space 0) (jp 0))
370 (goto-char (point-min))
372 (skip-chars-forward " \t\f")
373 (cond ((eq (char-after) ?\
#) (setq unix
(1+ unix
)))
374 ((eq (char-after) ?\
;) (setq win (1+ win)))
375 ((eq (char-after) ?\
[)) ; nop
377 ((eq (char-after) ?
})) ; nop
378 ;; recognize at most double spaces within names
379 ((looking-at "[^ \t\n=:]+\\(?: ?[^ \t\n=:]+\\)*[ \t]*[=:]")
380 (if (eq (char-before (match-end 0)) ?
=)
381 (setq equal
(1+ equal
))
382 (setq colon
(1+ colon
))))
383 ((looking-at "/[/*]") (setq jp
(1+ jp
)))
384 ((looking-at ".*{")) ; nop
385 ((setq space
(1+ space
))))
388 ((> jp
(max unix win
3)) (conf-javaprop-mode))
389 ((> colon
(max equal space
)) (conf-colon-mode))
390 ((> space
(max equal colon
)) (conf-space-mode))
391 ((or (> win unix
) (and (= win unix
) (eq system-type
'windows-nt
)))
393 (t (conf-unix-mode))))
395 (kill-all-local-variables)
396 (use-local-map conf-mode-map
)
397 (setq major-mode
'conf-mode
399 (set (make-local-variable 'font-lock-defaults
)
400 '(conf-font-lock-keywords nil t nil nil
))
401 ;; Let newcomment.el decide this for itself.
402 ;; (set (make-local-variable 'comment-use-syntax) t)
403 (set (make-local-variable 'parse-sexp-ignore-comments
) t
)
404 (set (make-local-variable 'outline-regexp
)
405 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)")
406 (set (make-local-variable 'outline-heading-end-regexp
)
408 (set (make-local-variable 'outline-level
)
410 (set-syntax-table conf-mode-syntax-table
)
411 (setq imenu-generic-expression
412 '(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*=" 1)
414 (nil "^[ \t]*\\[[ \t]*\\(.+\\)[ \t]*\\]" 1)
416 (nil "^[ \t]*\\([^=:{} \t\n][^=:{}\n]+\\)[ \t\n]*{" 1)))
417 (run-mode-hooks 'conf-mode-hook
)))
419 (defun conf-mode-initialize (comment &optional font-lock
)
420 "Initializations for sub-modes of conf-mode.
421 COMMENT initializes `comment-start' and `comment-start-skip'.
422 The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS."
423 (set (make-local-variable 'comment-start
) comment
)
424 (set (make-local-variable 'comment-start-skip
)
425 (concat (regexp-quote comment-start
) "+\\s *"))
427 (set (make-local-variable 'font-lock-defaults
)
428 `(,font-lock nil t nil nil
))))
431 (define-derived-mode conf-unix-mode conf-mode
"Conf[Unix]"
432 "Conf Mode starter for Unix style Conf files.
433 Comments start with `#'.
434 For details see `conf-mode'. Example:
436 # Conf mode font-locks this right on Unix and with \\[conf-unix-mode]
443 (conf-mode-initialize "#"))
446 (define-derived-mode conf-windows-mode conf-mode
"Conf[WinIni]"
447 "Conf Mode starter for Windows style Conf files.
448 Comments start with `;'.
449 For details see `conf-mode'. Example:
451 ; Conf mode font-locks this right on Windows and with \\[conf-windows-mode]
453 \[ExtShellFolderViews]
454 Default={5984FFE0-28D4-11CF-AE66-08002B2E1262}
455 {5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}
457 \[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]
458 PersistMoniker=file://Folder.htt"
459 (conf-mode-initialize ";"))
461 ;; Here are a few more or less widespread styles. There are others, so
462 ;; obscure, they are not covered. E.g. RFC 2614 allows both Unix and Windows
463 ;; comments. Or the donkey has (* Pascal comments *) -- roll your own starter
467 (define-derived-mode conf-javaprop-mode conf-mode
"Conf[JavaProp]"
468 "Conf Mode starter for Java properties files.
469 Comments start with `#' but are also recognized with `//' or
470 between `/*' and `*/'.
471 For details see `conf-mode'. Example:
473 # Conf mode font-locks this right with \\[conf-javaprop-mode] (Java properties)
474 // another kind of comment
483 (conf-mode-initialize "#" 'conf-javaprop-font-lock-keywords
)
484 (set (make-local-variable 'conf-assignment-column
)
485 conf-javaprop-assignment-column
)
486 (set (make-local-variable 'conf-assignment-regexp
)
487 ".+?\\([ \t]*[=: \t][ \t]*\\|$\\)")
488 (setq comment-start-skip
"\\(?:#+\\|/[/*]+\\)\\s *")
489 (setq imenu-generic-expression
490 '(("Parameters" "^[ \t]*\\(.+?\\)[=: \t]" 1))))
493 (define-derived-mode conf-space-mode conf-unix-mode
"Conf[Space]"
494 "Conf Mode starter for space separated conf files.
495 \"Assignments\" are with ` '. Keywords before the parameters are
496 recognized according to the variable `conf-space-keywords-alist'.
497 Alternatively, you can specify a value for the file local variable
498 `conf-space-keywords'.
499 Use the function `conf-space-keywords' if you want to specify keywords
500 in an interactive fashion instead.
502 For details see `conf-mode'. Example:
504 # Conf mode font-locks this right with \\[conf-space-mode] (space separated)
506 image/jpeg jpeg jpg jpe
510 # Or with keywords (from a recognized file name):
512 # Standard multimedia devices
513 add /dev/audio desktop
514 add /dev/mixer desktop"
515 (conf-mode-initialize "#" 'conf-space-font-lock-keywords
)
516 (make-local-variable 'conf-assignment-sign
)
517 (setq conf-assignment-sign nil
)
518 (make-local-variable 'conf-space-keywords
)
519 (cond (buffer-file-name
520 ;; We set conf-space-keywords directly, but a value which is
521 ;; in the local variables list or interactively specified
522 ;; (see the function conf-space-keywords) takes precedence.
523 (setq conf-space-keywords
524 (assoc-default buffer-file-name conf-space-keywords-alist
526 (conf-space-mode-internal)
527 ;; In case the local variables list specifies conf-space-keywords,
528 ;; recompute other things from that afterward.
529 (add-hook 'hack-local-variables-hook
'conf-space-mode-internal nil t
))
532 (defun conf-space-keywords (keywords)
533 "Enter Conf Space mode using regexp KEYWORDS to match the keywords.
534 See `conf-space-mode'."
535 (interactive "sConf Space keyword regexp: ")
538 (if (string-equal keywords
"")
540 (setq conf-space-keywords keywords
)
541 (conf-space-mode-internal)
544 (defun conf-space-mode-internal ()
545 (make-local-variable 'conf-assignment-regexp
)
546 (setq conf-assignment-regexp
547 (if conf-space-keywords
548 (concat "\\(?:" conf-space-keywords
"\\)[ \t]+.+?\\([ \t]+\\|$\\)")
549 ".+?\\([ \t]+\\|$\\)"))
550 ;; If Font Lock is already enabled, reenable it with new
551 ;; conf-assignment-regexp.
552 (when (and font-lock-mode
553 (boundp 'font-lock-keywords
)) ;see `normal-mode'
554 (font-lock-add-keywords nil nil
)
556 ;; Copy so that we don't destroy shared structure.
557 (setq imenu-generic-expression
(copy-sequence imenu-generic-expression
))
558 ;; Get rid of any existing Parameters element.
559 (setq imenu-generic-expression
560 (delq (assoc "Parameters" imenu-generic-expression
)
561 imenu-generic-expression
))
562 ;; Add a new one based on conf-space-keywords.
563 (setq imenu-generic-expression
565 ,(if conf-space-keywords
566 (concat "^[ \t]*\\(?:" conf-space-keywords
567 "\\)[ \t]+\\([^ \t\n]+\\)\\(?:[ \t]\\|$\\)")
568 "^[ \t]*\\([^ \t\n[]+\\)\\(?:[ \t]\\|$\\)")
570 imenu-generic-expression
)))
573 (define-derived-mode conf-colon-mode conf-unix-mode
"Conf[Colon]"
574 "Conf Mode starter for Colon files.
575 \"Assignments\" are with `:'.
576 For details see `conf-mode'. Example:
578 # Conf mode font-locks this right with \\[conf-colon-mode] (colon)
580 <Multi_key> <exclam> <exclam> : \"\\241\" exclamdown
581 <Multi_key> <c> <slash> : \"\\242\" cent"
582 (conf-mode-initialize "#" 'conf-colon-font-lock-keywords
)
583 (set (make-local-variable 'conf-assignment-space
)
584 conf-colon-assignment-space
)
585 (set (make-local-variable 'conf-assignment-column
)
586 conf-colon-assignment-column
)
587 (set (make-local-variable 'conf-assignment-sign
)
589 (set (make-local-variable 'conf-assignment-regexp
)
590 ".+?\\([ \t]*:[ \t]*\\)")
591 (setq imenu-generic-expression
592 `(("Parameters" "^[ \t]*\\(.+?\\)[ \t]*:" 1)
593 ,@(cdr imenu-generic-expression
))))
596 (define-derived-mode conf-ppd-mode conf-colon-mode
"Conf[PPD]"
597 "Conf Mode starter for Adobe/CUPS PPD files.
598 Comments start with `*%' and \"assignments\" are with `:'.
599 For details see `conf-mode'. Example:
601 *% Conf mode font-locks this right with \\[conf-ppd-mode] (PPD)
603 *DefaultTransfer: Null
604 *Transfer Null.Inverse: \"{ 1 exch sub }\""
605 (conf-mode-initialize "*%")
606 ;; no sections, they match within PostScript code
607 (setq imenu-generic-expression
(list (car imenu-generic-expression
))))
610 (define-derived-mode conf-xdefaults-mode conf-colon-mode
"Conf[Xdefaults]"
611 "Conf Mode starter for Xdefaults files.
612 Comments start with `!' and \"assignments\" are with `:'.
613 For details see `conf-mode'. Example:
615 ! Conf mode font-locks this right with \\[conf-xdefaults-mode] (.Xdefaults)
619 (conf-mode-initialize "!"))
623 ;;; conf-mode.el ends here