1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
;;; url-list-mode.el --- simple mode for Web Secretary url files ("url.list")
;; Copyright (C) 2002 Christoph Conrad
;; Author: Christoph Conrad <christoph.conrad@gmx.de>
;; Created: 11 Feb 2002
;; Version: 0.5
;; Keywords: fontlock web secretary
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Not available in XEmacs
(require 'generic)
(require 'font-lock)
;; Keywords embedded anywhere (except [normally] in quoted strings)
(defvar url-list-font-lock-list
'(("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
(2 font-lock-variable-name-face))))
(defvar url-list-keywords
'( "AsciiMarker" "Auth" "DateFMT" "Diff" "Digest" "Email" "EmailError"
"EmailLink" "Hicolor" "Ignore" "IgnoreURL" "MailFrom" "Name" "Prefix"
"Program" "ProgramDigest" "Proxy" "ProxyAuth" "RandomWait" "Tmax" "Tmin"
"URL" "UserAgent" ))
(define-generic-mode 'url-list-mode
;; comment-list
'("#")
;; keyword-list
url-list-keywords
;; font-lock-list
url-list-font-lock-list
;; auto-mode-list
'("/url\.list$")
;; function-list for setup
nil
"Mode for highlighting Web Secretary URL files.")
(provide 'url-list-mode)
|
