annotate lisp/progmodes/cfengine.el @ 70131:12bbeecf7714

*** empty log message ***
author Lars Hansen <larsh@soem.dk>
date Thu, 20 Apr 2006 11:37:44 +0000
parents dc49655f57ae
children ff69721bef4a 4b3d39451150
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
1 ;;; cfengine.el --- mode for editing Cfengine files
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
2
68773
dc49655f57ae Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents: 64699
diff changeset
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
dc49655f57ae Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents: 64699
diff changeset
4 ;; Free Software Foundation, Inc.
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
5
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
6 ;; Author: Dave Love <fx@gnu.org>
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
7 ;; Keywords: languages
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
8
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
10
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; any later version.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
15
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
20
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59996
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59996
diff changeset
24 ;; Boston, MA 02110-1301, USA.
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
25
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
27
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
28 ;; Provides support for editing GNU Cfengine files, including
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
29 ;; font-locking, Imenu and indention, but with no special keybindings.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
30
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
31 ;; Possible customization for auto-mode selection:
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;; (push '(("^cfagent.conf\\'" . cfengine-mode)) auto-mode-alist)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
33 ;; (push '(("^cf\\." . cfengine-mode)) auto-mode-alist)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
34
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ;; This is not the same as the mode written by Rolf Ebert
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
36 ;; <ebert@waporo.muc.de>, distributed with cfengine-2.0.5. It does
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
37 ;; better fontification and indentation, inter alia.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
38
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
39 ;;; Code:
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
40
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
41 (defgroup cfengine ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
42 "Editing Cfengine files."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
43 :group 'languages)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
45 (defcustom cfengine-indent 2
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
46 "*Size of a Cfengine indentation step in columns."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
47 :group 'cfengine
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
48 :type 'integer)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (defcustom cfengine-mode-abbrevs nil
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
51 "Abbrevs for Cfengine mode."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
52 :group 'cfengine
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
53 :type '(repeat (list (string :tag "Name")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (string :tag "Expansion")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
55 (choice :tag "Hook" (const nil) function))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
56
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
57 ;; Taken from the doc for pre-release 2.1.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
58 (eval-and-compile
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (defconst cfengine-actions
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
60 '("acl" "alerts" "binservers" "broadcast" "control" "classes" "copy"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
61 "defaultroute" "disks" "directories" "disable" "editfiles" "files"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
62 "filters" "groups" "homeservers" "ignore" "import" "interfaces"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
63 "links" "mailserver" "methods" "miscmounts" "mountables"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
64 "processes" "packages" "rename" "required" "resolve"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
65 "shellcommands" "tidy" "unmount"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
66 ;; cfservd
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
67 "admit" "grant" "deny")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
68 "List of the action keywords supported by Cfengine.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
69 This includes those for cfservd as well as cfagent."))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
70
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
71 (defvar cfengine-font-lock-keywords
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
72 `(;; Actions.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
73 ;; List the allowed actions explicitly, so that errors are more obvious.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
74 (,(concat "^[ \t]*" (eval-when-compile
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
75 (regexp-opt cfengine-actions t))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
76 ":")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
77 1 font-lock-keyword-face)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
78 ;; Classes.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
79 ("^[ \t]*\\([[:alnum:]_().|!]+\\)::" 1 font-lock-function-name-face)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
80 ;; Variables.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
81 ("$(\\([[:alnum:]_]+\\))" 1 font-lock-variable-name-face)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
82 ("${\\([[:alnum:]_]+\\)}" 1 font-lock-variable-name-face)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
83 ;; Variable definitions.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
84 ("\\<\\([[:alnum:]_]+\\)[ \t]*=[ \t]*(" 1 font-lock-variable-name-face)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
85 ;; File, acl &c in group: { token ... }
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
86 ("{[ \t]*\\([^ \t\n]+\\)" 1 font-lock-constant-face)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
87
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
88 (defvar cfengine-imenu-expression
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
89 `((nil ,(concat "^[ \t]*" (eval-when-compile
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
90 (regexp-opt cfengine-actions t))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
91 ":[^:]")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
92 1)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
93 ("Variables/classes" "\\<\\([[:alnum:]_]+\\)[ \t]*=[ \t]*(" 1)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
94 ("Variables/classes" "\\<define=\\([[:alnum:]_]+\\)" 1)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
95 ("Variables/classes" "\\<DefineClass\\>[ \t]+\\([[:alnum:]_]+\\)" 1))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
96 "`imenu-generic-expression' for Cfengine mode.")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
97
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
98 (defun cfengine-outline-level ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
99 "`outline-level' function for Cfengine mode."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
100 (if (looking-at "[^:]+\\(?:[:]+\\)$")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
101 (length (match-string 1))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
102
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
103 (defun cfengine-beginning-of-defun ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
104 "`beginning-of-defun' function for Cfengine mode.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
105 Treats actions as defuns."
55239
1af59a842b93 (cfengine-beginning-of-defun, cfengine-end-of-defun):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54460
diff changeset
106 (unless (<= (current-column) (current-indentation))
1af59a842b93 (cfengine-beginning-of-defun, cfengine-end-of-defun):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54460
diff changeset
107 (end-of-line))
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
108 (if (re-search-backward "^[[:alpha:]]+: *$" nil t)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
109 (beginning-of-line)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
110 (goto-char (point-min)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
111 t)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
112
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
113 (defun cfengine-end-of-defun ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
114 "`end-of-defun' function for Cfengine mode.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
115 Treats actions as defuns."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
116 (end-of-line)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
117 (if (re-search-forward "^[[:alpha:]]+: *$" nil t)
55239
1af59a842b93 (cfengine-beginning-of-defun, cfengine-end-of-defun):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54460
diff changeset
118 (beginning-of-line)
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
119 (goto-char (point-max)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
120 t)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
121
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
122 ;; Fixme: Should get an extra indent step in editfiles BeginGroup...s.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
123
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
124 (defun cfengine-indent-line ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
125 "Indent a line in Cfengine mode.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
126 Intended as the value of `indent-line-function'."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
127 (let ((pos (- (point-max) (point))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
128 (save-restriction
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
129 (narrow-to-defun)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
130 (back-to-indentation)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
131 (cond
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
132 ;; Action selectors aren't indented; class selectors are
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
133 ;; indented one step.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
134 ((looking-at "[[:alnum:]_().|!]+:\\(:\\)?")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
135 (if (match-string 1)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
136 (indent-line-to cfengine-indent)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
137 (indent-line-to 0)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
138 ;; Outdent leading close brackets one step.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
139 ((or (eq ?\} (char-after))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
140 (eq ?\) (char-after)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
141 (condition-case ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
142 (indent-line-to (save-excursion
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
143 (forward-char)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
144 (backward-sexp)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
145 (current-column)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
146 (error nil)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
147 ;; Inside brackets/parens: indent to start column of non-comment
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
148 ;; token on line following open bracket or by one step from open
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
149 ;; bracket's column.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
150 ((condition-case ()
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
151 (progn (indent-line-to (save-excursion
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
152 (backward-up-list)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
153 (forward-char)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
154 (skip-chars-forward " \t")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
155 (if (looking-at "[^\n#]")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
156 (current-column)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
157 (skip-chars-backward " \t")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
158 (+ (current-column) -1
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
159 cfengine-indent))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
160 t)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
161 (error nil)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
162 ;; Indent by two steps after a class selector.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
163 ((save-excursion
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
164 (re-search-backward "^[ \t]*[[:alnum:]_().|!]+::" nil t))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
165 (indent-line-to (* 2 cfengine-indent)))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
166 ;; Indent by one step if we're after an action header.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
167 ((save-excursion
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
168 (goto-char (point-min))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
169 (looking-at "[[:alpha:]]+:[ \t]*$"))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
170 (indent-line-to cfengine-indent))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
171 ;; Else don't indent.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
172 (t
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
173 (indent-line-to 0))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
174 ;; If initial point was within line's indentation,
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
175 ;; position after the indentation. Else stay at same point in text.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
176 (if (> (- (point-max) pos) (point))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
177 (goto-char (- (point-max) pos)))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
178
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 59241
diff changeset
179 ;; This doesn't work too well in Emacs 21.2. See 22.1 development
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
180 ;; code.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
181 (defun cfengine-fill-paragraph (&optional justify)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
182 "Fill `paragraphs' in Cfengine code."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
183 (interactive "P")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
184 (or (if (fboundp 'fill-comment-paragraph)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
185 (fill-comment-paragraph justify) ; post Emacs 21.3
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
186 ;; else do nothing in a comment
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
187 (nth 4 (parse-partial-sexp (save-excursion
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
188 (beginning-of-defun)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
189 (point))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
190 (point))))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
191 (let ((paragraph-start
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
192 ;; Include start of parenthesized block.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
193 "\f\\|[ \t]*$\\|.*\(")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
194 (paragraph-separate
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
195 ;; Include action and class lines, start and end of
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
196 ;; bracketed blocks and end of parenthesized blocks to
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
197 ;; avoid including these in fill. This isn't ideal.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
198 "[ \t\f]*$\\|.*#\\|.*[\){}]\\|\\s-*[[:alpha:]_().|!]+:")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
199 fill-paragraph-function)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
200 (fill-paragraph justify))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
201 t))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
202
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
203 ;;;###autoload
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
204 (define-derived-mode cfengine-mode fundamental-mode "Cfengine"
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
205 "Major mode for editing cfengine input.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
206 There are no special keybindings by default.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
207
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
208 Action blocks are treated as defuns, i.e. \\[beginning-of-defun] moves
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
209 to the action header."
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
210 (modify-syntax-entry ?# "<" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
211 (modify-syntax-entry ?\n ">#" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
212 ;; Shell commands can be quoted by single, double or back quotes.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
213 ;; It's debatable whether we should define string syntax, but it
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
214 ;; should avoid potential confusion in some cases.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
215 (modify-syntax-entry ?\" "\"" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
216 (modify-syntax-entry ?\' "\"" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
217 (modify-syntax-entry ?\` "\"" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
218 ;; variable substitution:
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
219 (modify-syntax-entry ?$ "." cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
220 ;; Doze path separators:
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
221 (modify-syntax-entry ?\\ "_" cfengine-mode-syntax-table)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
222 ;; Otherwise, syntax defaults seem OK to give reasonable word
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
223 ;; movement.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
224
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
225 (set (make-local-variable 'parens-require-spaces) nil)
59241
685fd8697e78 (cfengine-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 55239
diff changeset
226 (set (make-local-variable 'require-final-newline) mode-require-final-newline)
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
227 (set (make-local-variable 'comment-start) "# ")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
228 (set (make-local-variable 'comment-start-skip)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
229 "\\(\\(?:^\\|[^\\\\\n]\\)\\(?:\\\\\\\\\\)*\\)#+[ \t]*")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
230 (set (make-local-variable 'indent-line-function) #'cfengine-indent-line)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
231 (set (make-local-variable 'outline-regexp) "[ \t]*\\(\\sw\\|\\s_\\)+:+")
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
232 (set (make-local-variable 'outline-level) #'cfengine-outline-level)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
233 (set (make-local-variable 'fill-paragraph-function)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
234 #'cfengine-fill-paragraph)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
235 (define-abbrev-table 'cfengine-mode-abbrev-table cfengine-mode-abbrevs)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
236 ;; Fixme: Use `font-lock-syntactic-keywords' to set the args of
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
237 ;; functions in evaluated classes to string syntax, and then obey
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
238 ;; syntax properties.
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
239 (setq font-lock-defaults
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
240 '(cfengine-font-lock-keywords nil nil nil beginning-of-line))
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
241 (setq imenu-generic-expression cfengine-imenu-expression)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
242 (set (make-local-variable 'beginning-of-defun-function)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
243 #'cfengine-beginning-of-defun)
54460
82f7cd1ab4eb (cfengine-mode): Set parse-sexp-ignore-comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 52910
diff changeset
244 (set (make-local-variable 'end-of-defun-function) #'cfengine-end-of-defun)
82f7cd1ab4eb (cfengine-mode): Set parse-sexp-ignore-comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 52910
diff changeset
245 ;; Like Lisp mode. Without this, we lose with, say,
82f7cd1ab4eb (cfengine-mode): Set parse-sexp-ignore-comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 52910
diff changeset
246 ;; `backward-up-list' when there's an unbalanced quote in a
82f7cd1ab4eb (cfengine-mode): Set parse-sexp-ignore-comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 52910
diff changeset
247 ;; preceding comment.
82f7cd1ab4eb (cfengine-mode): Set parse-sexp-ignore-comments.
Juanma Barranquero <lekktu@gmail.com>
parents: 52910
diff changeset
248 (set (make-local-variable 'parse-sexp-ignore-comments) t))
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
249
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
250 (provide 'cfengine)
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
251
52910
0746b84b7c15 Resolve CVS conflicts
Miles Bader <miles@gnu.org>
parents: 52888
diff changeset
252 ;;; arch-tag: 6b931be2-1505-4124-afa6-9675971e26d4
52888
bc07c51257ae *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
253 ;;; cfengine.el ends here