"Fossies" - the Fresh Open Source Software Archive

Member "websec-1.9.0/websec.el" (14 Mar 2005, 1795 Bytes) of package /linux/www/old/websec-1.9.0.tar.gz:

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