Mercurial > emacs
annotate lisp/textmodes/dns-mode.el @ 94586:d5d0ca913104
Small refactoring step.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 03 May 2008 12:42:54 +0000 |
parents | dc100f64b2b7 |
children | f4a69fedbd46 |
rev | line source |
---|---|
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
1 ;;; dns-mode.el --- a mode for viewing/editing Domain Name System master files |
64751
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 |
79719 | 3 ;; Copyright (C) 2000, 2001, 2004, 2005, 2006, 2007, 2008 |
4 ;; Free Software Foundation, Inc. | |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
5 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
6 ;; Author: Simon Josefsson <simon@josefsson.org> |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
7 ;; Keywords: DNS master zone file SOA |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
8 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
10 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
78225
b6d25790aab2
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
14 ;; any later version. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
15 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
20 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
25 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
26 ;;; Commentary: |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
27 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
28 ;; Use M-x dns-mode RET to invoke in master files. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
29 ;; |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
30 ;; C-c C-s Increment SOA serial. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
31 ;; Understands YYYYMMDDNN, Unix time, and serial number formats, |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
32 ;; and complains if it fail to find SOA serial. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
33 ;; |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
34 ;; Put something similar to the following in your ~/.emacs to use this file: |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
35 ;; |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
36 ;; (load "~/path/to/dns-mode.el") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
37 ;; (setq auto-mode-alist (cons '("\\.soa\\'" . dns-mode) auto-mode-alist)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
38 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
39 ;;; References: |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
40 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
41 ;; RFC 1034, "DOMAIN NAMES - CONCEPTS AND FACILITIES", P. Mockapetris. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
42 ;; RFC 1035, "DOMAIN NAMES - IMPLEMENTATION AND SPECIFICATION", P. Mockapetris. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
43 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
44 ;;; Release history: |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
45 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
46 ;; 2004-09-11 Posted on gnu.emacs.sources. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
47 ;; 2004-09-13 Ported to XEmacs. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
48 ;; 2004-09-14 Installed in Emacs CVS. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
49 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
50 ;;; Code: |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
51 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
52 (defgroup dns-mode nil |
62807
9c7d08864aa8
(dns-mode): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
57100
diff
changeset
|
53 "DNS master file mode configuration." |
9c7d08864aa8
(dns-mode): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
57100
diff
changeset
|
54 :group 'data) |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
55 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
56 (defconst dns-mode-classes '("IN" "CS" "CH" "HS") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
57 "List of strings with known DNS classes.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
58 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
59 (defconst dns-mode-types '("A" "NS" "MD" "MF" "CNAME" "SOA" "MB" "MG" "MR" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
60 "NULL" "WKS" "PTR" "HINFO" "MINFO" "MX" "TXT" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
61 "RP" "AFSDB" "X25" "ISDN" "RT" "NSAP" "NSAP" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
62 "SIG" "KEY" "PX" "GPOS" "AAAA" "LOC" "NXT" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
63 "EID" "NIMLOC" "SRV" "ATMA" "NAPTR" "KX" "CERT" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
64 "A6" "DNAME" "SINK" "OPT" "APL" "DS" "SSHFP" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
65 "RRSIG" "NSEC" "DNSKEY" "UINFO" "UID" "GID" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
66 "UNSPEC" "TKEY" "TSIG" "IXFR" "AXFR" "MAILB" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
67 "MAILA") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
68 "List of strings with known DNS types.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
69 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
70 ;; Font lock. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
71 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
72 (defvar dns-mode-control-entity-face 'font-lock-keyword-face |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
73 "Name of face used for control entities, e.g. $ORIGIN.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
74 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
75 (defvar dns-mode-bad-control-entity-face 'font-lock-warning-face |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
76 "Name of face used for non-standard control entities, e.g. $FOO.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
77 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
78 (defvar dns-mode-type-face 'font-lock-type-face |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
79 "Name of face used for DNS types, e.g., SOA.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
80 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
81 (defvar dns-mode-class-face 'font-lock-constant-face |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
82 "Name of face used for DNS classes, e.g., IN.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
83 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
84 (defcustom dns-mode-font-lock-keywords |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
85 `(("^$ORIGIN" 0 ,dns-mode-control-entity-face) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
86 ("^$INCLUDE" 0 ,dns-mode-control-entity-face) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
87 ("^$[a-z0-9A-Z]+" 0 ,dns-mode-bad-control-entity-face) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
88 (,(regexp-opt dns-mode-classes) 0 ,dns-mode-class-face) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
89 (,(regexp-opt dns-mode-types) 0 ,dns-mode-type-face)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
90 "Font lock keywords used to highlight text in DNS master file mode." |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
91 :type 'sexp |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
92 :group 'dns-mode) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
93 |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
94 (defcustom dns-mode-soa-auto-increment-serial t |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
95 "Whether to increment the SOA serial number automatically. |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
96 |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
97 If this variable is t, the serial number is incremented upon each save of |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
98 the file. If it is `ask', Emacs asks for confirmation whether it should |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
99 increment the serial upon saving. If nil, serials must be incremented |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
100 manually with \\[dns-mode-soa-increment-serial]." |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
101 :type '(choice (const :tag "Always" t) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
102 (const :tag "Ask" ask) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
103 (const :tag "Never" nil)) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
104 :group 'dns-mode) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
105 |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
106 ;; Syntax table. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
107 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
108 (defvar dns-mode-syntax-table |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
109 (let ((table (make-syntax-table))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
110 (modify-syntax-entry ?\; "< " table) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
111 (modify-syntax-entry ?\n "> " table) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
112 table) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
113 "Syntax table in use in DNS master file buffers.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
114 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
115 ;; Keymap. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
116 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
117 (defvar dns-mode-map |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
118 (let ((map (make-sparse-keymap))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
119 (define-key map "\C-c\C-s" 'dns-mode-soa-increment-serial) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
120 map) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
121 "Keymap for DNS master file mode.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
122 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
123 ;; Menu. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
124 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
125 (defvar dns-mode-menu nil |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
126 "Menubar used in DNS master file mode.") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
127 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
128 (easy-menu-define dns-mode-menu dns-mode-map |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
129 "DNS Menu." |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
130 '("DNS" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
131 ["Increment SOA serial" dns-mode-soa-increment-serial t])) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
132 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
133 ;; Mode. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
134 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
135 ;;;###autoload |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
136 (define-derived-mode dns-mode text-mode "DNS" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
137 "Major mode for viewing and editing DNS master files. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
138 This mode is inherited from text mode. It add syntax |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
139 highlighting, and some commands for handling DNS master files. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
140 Its keymap inherits from `text-mode' and it has the same |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
141 variables for customizing indentation. It has its own abbrev |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
142 table and its own syntax table. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
143 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
144 Turning on DNS mode runs `dns-mode-hook'." |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
145 (set (make-local-variable 'comment-start) ";") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
146 (set (make-local-variable 'comment-end) "") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
147 (set (make-local-variable 'comment-start-skip) ";+ *") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
148 (unless (featurep 'xemacs) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
149 (set (make-local-variable 'font-lock-defaults) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
150 '(dns-mode-font-lock-keywords nil nil ((?_ . "w"))))) |
72359
2b576e9ebfa4
(dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72350
diff
changeset
|
151 (add-hook 'before-save-hook 'dns-mode-soa-maybe-increment-serial |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
152 nil t) |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
153 (easy-menu-add dns-mode-menu dns-mode-map)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
154 |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
155 ;;;###autoload (defalias 'zone-mode 'dns-mode) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
156 |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
157 ;; Tools. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
158 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
159 ;;;###autoload |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
160 (defun dns-mode-soa-increment-serial () |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
161 "Locate SOA record and increment the serial field." |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
162 (interactive) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
163 (save-excursion |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
164 (goto-char (point-min)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
165 (unless (re-search-forward |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
166 (concat "^\\(\\(\\([^ \t]+[ \t]+\\)?[^ \t]+" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
167 "[ \t]+\\)?[^ \t]+[ \t]+\\)?SOA") nil t) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
168 (error "Cannot locate SOA record")) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
169 (if (re-search-forward (concat "\\<\\(" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
170 ;; year |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
171 "\\(198\\|199\\|20[0-9]\\)[0-9]" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
172 ;; month |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
173 "\\(0[0-9]\\|10\\|11\\|12\\)" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
174 ;; day |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
175 "\\([012][0-9]\\|30\\|31\\)" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
176 ;; counter |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
177 "\\([0-9]\\{1,3\\}\\)" |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
178 "\\)\\>") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
179 nil t) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
180 ;; YYYYMMDDIII format, one to three I's. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
181 (let* ((serial (match-string 1)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
182 (counterstr (match-string 5)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
183 (counter (string-to-number counterstr)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
184 (now (format-time-string "%Y%m%d")) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
185 (nowandoldserial (concat now counterstr))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
186 (if (string< serial nowandoldserial) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
187 (let ((new (format "%s00" now))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
188 (replace-match new nil nil nil 1) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
189 (message "Replaced old serial %s with %s" serial new)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
190 (if (string= serial nowandoldserial) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
191 (let ((new (format (format "%%s%%0%dd" (length counterstr)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
192 now (1+ counter)))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
193 (replace-match new nil nil nil 1) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
194 (message "Replaced old serial %s with %s" serial new)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
195 (error "Current SOA serial is in the future")))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
196 (if (re-search-forward "\\<\\([0-9]\\{9,10\\}\\)\\>" nil t) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
197 ;; Unix time |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
198 (let* ((serial (match-string 1)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
199 (new (format-time-string "%s"))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
200 (if (not (string< serial new)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
201 (error "Current SOA serial is in the future") |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
202 (replace-match new nil nil nil 1) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
203 (message "Replaced old serial %s with %s" serial new))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
204 (if (re-search-forward "\\<\\([0-9]+\\)\\>" nil t) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
205 ;; Just any serial number. |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
206 (let* ((serial (match-string 1)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
207 (new (format "%d" (1+ (string-to-number serial))))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
208 (replace-match new nil nil nil 1) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
209 (message "Replaced old serial %s with %s" serial new)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
210 (error "Cannot locate serial number in SOA record")))))) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
211 |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
212 (defun dns-mode-soa-maybe-increment-serial () |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
213 "Increment SOA serial if needed. |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
214 |
72359
2b576e9ebfa4
(dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72350
diff
changeset
|
215 This function is run from `before-save-hook'." |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
216 (when (and (buffer-modified-p) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
217 dns-mode-soa-auto-increment-serial |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
218 (or (eq dns-mode-soa-auto-increment-serial t) |
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
219 (y-or-n-p "Increment SOA serial? "))) |
72361
3b5cb5e41d55
Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents:
72359
diff
changeset
|
220 ;; If `dns-mode-soa-increment-serial' signals an error saving will |
3b5cb5e41d55
Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents:
72359
diff
changeset
|
221 ;; fail but that probably means that the serial should be fixed to |
3b5cb5e41d55
Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents:
72359
diff
changeset
|
222 ;; comply with the RFC anyway! -rfr |
72359
2b576e9ebfa4
(dns-mode): Use before-save-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72350
diff
changeset
|
223 (progn (dns-mode-soa-increment-serial) |
72361
3b5cb5e41d55
Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents:
72359
diff
changeset
|
224 ;; We return nil in case this is used in write-contents-functions. |
3b5cb5e41d55
Fix formatting/indentation.
Romain Francoise <romain@orebokech.com>
parents:
72359
diff
changeset
|
225 nil))) |
72350
45347140c0d0
* textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
Romain Francoise <romain@orebokech.com>
parents:
68648
diff
changeset
|
226 |
57100
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
227 ;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode)) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
228 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
229 (provide 'dns-mode) |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
230 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
231 ;; arch-tag: 6a179f0a-072f-49db-8b01-37b8f23998c0 |
3eab555cf92b
files.el (auto-mode-alist): Map .soa and .zone to dns-mode.
Simon Josefsson <jas@extundo.com>
parents:
diff
changeset
|
232 ;;; dns-mode.el ends here |