mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Merge from emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
This commit is contained in:
Miles Bader
parent
2a223f35db
commit
23f87bede0
204 changed files with 83156 additions and 28873 deletions
205
lisp/gnus/sieve-mode.el
Normal file
205
lisp/gnus/sieve-mode.el
Normal file
|
|
@ -0,0 +1,205 @@
|
|||
;;; sieve-mode.el --- Sieve code editing commands for Emacs
|
||||
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Simon Josefsson <simon@josefsson.org>
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs 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.
|
||||
|
||||
;; GNU Emacs 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.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file contain editing mode functions and font-lock support for
|
||||
;; editing Sieve scripts. It sets up C-mode with support for
|
||||
;; sieve-style #-comments and a lightly hacked syntax table. It was
|
||||
;; strongly influenced by awk-mode.el.
|
||||
;;
|
||||
;; Put something similar to the following in your .emacs to use this file:
|
||||
;;
|
||||
;; (load "~/lisp/sieve")
|
||||
;; (setq auto-mode-alist (cons '("\\.siv\\'" . sieve-mode) auto-mode-alist))
|
||||
;;
|
||||
;; References:
|
||||
;;
|
||||
;; RFC 3028,
|
||||
;; "Sieve: A Mail Filtering Language",
|
||||
;; by Tim Showalter.
|
||||
;;
|
||||
;; Release history:
|
||||
;;
|
||||
;; 2001-03-02 version 1.0 posted to gnu.emacs.sources
|
||||
;; version 1.1 change file extension into ".siv" (official one)
|
||||
;; added keymap and menubar to hook into sieve-manage
|
||||
;; 2001-10-31 version 1.2 committed to Oort Gnus
|
||||
|
||||
;;; Code:
|
||||
|
||||
(autoload 'sieve-manage "sieve")
|
||||
(autoload 'sieve-upload "sieve")
|
||||
(autoload 'c-mode "cc-mode")
|
||||
(require 'easymenu)
|
||||
(eval-when-compile
|
||||
(require 'font-lock))
|
||||
|
||||
(defgroup sieve nil
|
||||
"Sieve."
|
||||
:group 'languages)
|
||||
|
||||
(defcustom sieve-mode-hook nil
|
||||
"Hook run in sieve mode buffers."
|
||||
:group 'sieve
|
||||
:type 'hook)
|
||||
|
||||
;; Font-lock
|
||||
|
||||
(defvar sieve-control-commands-face 'sieve-control-commands-face
|
||||
"Face name used for Sieve Control Commands.")
|
||||
|
||||
(defface sieve-control-commands-face
|
||||
'((((type tty) (class color)) (:foreground "blue" :weight light))
|
||||
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
|
||||
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
|
||||
(((class color) (background light)) (:foreground "Orchid"))
|
||||
(((class color) (background dark)) (:foreground "LightSteelBlue"))
|
||||
(t (:bold t)))
|
||||
"Face used for Sieve Control Commands.")
|
||||
|
||||
(defvar sieve-action-commands-face 'sieve-action-commands-face
|
||||
"Face name used for Sieve Action Commands.")
|
||||
|
||||
(defface sieve-action-commands-face
|
||||
'((((type tty) (class color)) (:foreground "blue" :weight bold))
|
||||
(((class color) (background light)) (:foreground "Blue"))
|
||||
(((class color) (background dark)) (:foreground "LightSkyBlue"))
|
||||
(t (:inverse-video t :bold t)))
|
||||
"Face used for Sieve Action Commands.")
|
||||
|
||||
(defvar sieve-test-commands-face 'sieve-test-commands-face
|
||||
"Face name used for Sieve Test Commands.")
|
||||
|
||||
(defface sieve-test-commands-face
|
||||
'((((type tty) (class color)) (:foreground "magenta"))
|
||||
(((class grayscale) (background light))
|
||||
(:foreground "LightGray" :bold t :underline t))
|
||||
(((class grayscale) (background dark))
|
||||
(:foreground "Gray50" :bold t :underline t))
|
||||
(((class color) (background light)) (:foreground "CadetBlue"))
|
||||
(((class color) (background dark)) (:foreground "Aquamarine"))
|
||||
(t (:bold t :underline t)))
|
||||
"Face used for Sieve Test Commands.")
|
||||
|
||||
(defvar sieve-tagged-arguments-face 'sieve-tagged-arguments-face
|
||||
"Face name used for Sieve Tagged Arguments.")
|
||||
|
||||
(defface sieve-tagged-arguments-face
|
||||
'((((type tty) (class color)) (:foreground "cyan" :weight bold))
|
||||
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
|
||||
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
|
||||
(((class color) (background light)) (:foreground "Purple"))
|
||||
(((class color) (background dark)) (:foreground "Cyan"))
|
||||
(t (:bold t)))
|
||||
"Face used for Sieve Tagged Arguments.")
|
||||
|
||||
|
||||
(defconst sieve-font-lock-keywords
|
||||
(eval-when-compile
|
||||
(list
|
||||
;; control commands
|
||||
(cons (regexp-opt '("require" "if" "else" "elsif" "stop"))
|
||||
'sieve-control-commands-face)
|
||||
;; action commands
|
||||
(cons (regexp-opt '("fileinto" "redirect" "reject" "keep" "discard"))
|
||||
'sieve-action-commands-face)
|
||||
;; test commands
|
||||
(cons (regexp-opt '("address" "allof" "anyof" "exists" "false"
|
||||
"true" "header" "not" "size" "envelope"))
|
||||
'sieve-test-commands-face)
|
||||
(cons "\\Sw+:\\sw+"
|
||||
'sieve-tagged-arguments-face))))
|
||||
|
||||
;; Syntax table
|
||||
|
||||
(defvar sieve-mode-syntax-table nil
|
||||
"Syntax table in use in sieve-mode buffers.")
|
||||
|
||||
(if sieve-mode-syntax-table
|
||||
()
|
||||
(setq sieve-mode-syntax-table (make-syntax-table))
|
||||
(modify-syntax-entry ?\\ "\\" sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?\n "> " sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?\f "> " sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?\# "< " sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?/ "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?* "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?+ "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?- "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?= "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?% "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?< "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?> "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?& "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?| "." sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?_ "_" sieve-mode-syntax-table)
|
||||
(modify-syntax-entry ?\' "\"" sieve-mode-syntax-table))
|
||||
|
||||
;; Key map definition
|
||||
|
||||
(defvar sieve-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "\C-c\C-l" 'sieve-upload)
|
||||
(define-key map "\C-c\C-c" 'sieve-upload-and-bury)
|
||||
(define-key map "\C-c\C-m" 'sieve-manage)
|
||||
map)
|
||||
"Key map used in sieve mode.")
|
||||
|
||||
;; Menu definition
|
||||
|
||||
(defvar sieve-mode-menu nil
|
||||
"Menubar used in sieve mode.")
|
||||
|
||||
;; Code for Sieve editing mode.
|
||||
|
||||
;;;###autoload
|
||||
(define-derived-mode sieve-mode c-mode "Sieve"
|
||||
"Major mode for editing Sieve code.
|
||||
This is much like C mode except for the syntax of comments. Its keymap
|
||||
inherits from C mode's and it has the same variables for customizing
|
||||
indentation. It has its own abbrev table and its own syntax table.
|
||||
|
||||
Turning on Sieve mode runs `sieve-mode-hook'."
|
||||
(set (make-local-variable 'paragraph-start) (concat "$\\|" page-delimiter))
|
||||
(set (make-local-variable 'paragraph-separate) paragraph-start)
|
||||
(set (make-local-variable 'comment-start) "#")
|
||||
(set (make-local-variable 'comment-end) "")
|
||||
;;(set (make-local-variable 'comment-start-skip) "\\(^\\|\\s-\\);?#+ *")
|
||||
(set (make-local-variable 'comment-start-skip) "#+ *")
|
||||
(unless (featurep 'xemacs)
|
||||
(set (make-local-variable 'font-lock-defaults)
|
||||
'(sieve-font-lock-keywords nil nil ((?_ . "w")))))
|
||||
(easy-menu-add-item nil nil sieve-mode-menu))
|
||||
|
||||
;; Menu
|
||||
|
||||
(easy-menu-define sieve-mode-menu sieve-mode-map
|
||||
"Sieve Menu."
|
||||
'("Sieve"
|
||||
["Upload script" sieve-upload t]
|
||||
["Manage scripts on server" sieve-manage t]))
|
||||
|
||||
(provide 'sieve-mode)
|
||||
|
||||
;;; arch-tag: 3b8ab76d-065d-4c52-b1e8-ab2ec21f2ace
|
||||
;; sieve-mode.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue