From owner-ntemacs-users@cs.washington.edu  Mon Jun 15 06:38:23 1998
X-VM-v5-Data: ([nil nil nil nil nil nil t nil nil]
	[nil "Mon" "15" "June" "1998" "08:50:55" "-0400" "Mike Reiss" "103311.463@compuserve.com" nil "383" "cold fusion mode" "^From:" nil nil "6" nil nil nil nil]
	nil)
Received: from joker.cs.washington.edu (joker.cs.washington.edu [128.95.1.42]) by june.cs.washington.edu (8.8.7+CS/7.2ju) with SMTP id GAA04945 for <voelker@june.cs.washington.edu>; Mon, 15 Jun 1998 06:38:22 -0700
Received: from trout.cs.washington.edu (trout.cs.washington.edu [128.95.1.178]) by joker.cs.washington.edu (8.6.12/7.2ws+) with ESMTP id GAA44845 for <voelker@joker.cs.washington.edu>; Mon, 15 Jun 1998 06:38:23 -0700
Received: (majordom@localhost) by trout.cs.washington.edu (8.8.5+CS/7.2ws+) id FAA29773 for ntemacs-users-outgoing; Mon, 15 Jun 1998 05:52:55 -0700 (PDT)
Received: from june.cs.washington.edu (june.cs.washington.edu [128.95.1.4]) by trout.cs.washington.edu (8.8.5+CS/7.2ws+) with ESMTP id FAA29769 for <ntemacs-users@trout.cs.washington.edu>; Mon, 15 Jun 1998 05:52:52 -0700 (PDT)
Received: from hil-img-2.compuserve.com (hil-img-2.compuserve.com [149.174.177.132]) by june.cs.washington.edu (8.8.7+CS/7.2ju) with ESMTP id FAA02375 for <ntemacs-users@cs.washington.edu>; Mon, 15 Jun 1998 05:52:51 -0700
Received: (from root@localhost) 	by hil-img-2.compuserve.com (8.8.6/8.8.6/2.12) id IAA21590 	for ntemacs-users@cs.washington.edu; Mon, 15 Jun 1998 08:52:49 -0400 (EDT)
Message-ID: <199806150852_MC2-403C-9463@compuserve.com>
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Precedence: bulk
X-FAQ: http://www.cs.washington.edu/homes/voelker/ntemacs.html
From: Mike Reiss <103311.463@compuserve.com>
Sender: owner-ntemacs-users@cs.washington.edu
To: z-ntemacs <ntemacs-users@cs.washington.edu>
Subject: cold fusion mode
Date: Mon, 15 Jun 1998 08:50:55 -0400

> Galen asked me if I knew of a Cold Fusion mode, which I don't.  does
> anyone else, or has anyone found an existing mode works well with it?

> -geoff

I took html-helper-mode and added some commands in for Cold Fusion.  It
does what I want it too but I make no other claims for it.  I also added in
Cold Fusion comments.  Here is what I use.  If you like it let me know.  If
not, I hope it gives you a starting point.  I added in some menus when I
started this but I never use them so I make no promises ...

There are a couple of files, at least as I use them.  Good luck.


==================================
;; Cold Fusion elements and attributes
;; An html-helper-mode module

;; Mike Reiss     <103311.463@compuserve.com>
;; version 1.0

;; based on the table additions done by
;; Joe Hildebrand <hildjj@fuentez.com> - 23 May 1995

;; This code is distributed under the same terms as html-helper-mode
;; itself.  html-helper-mode for Emacs is written and maintained by
;; Nelson Minar <nelson@santafe.edu>, and is available from
;; <URL:http://www.santafe.edu/~nelson/tools/>.  Nelson takes no
;; responsibility for what I have done with his software!

;; The extensions to HTML supported by this module are documented
;; and copyrighted by
;; Allaire Corporation, One Alewife Center, Cambridge, MA  02140
;; http://www.allaire.com

;; This code must be called *after* html-helper-mode loads.  It can be
;; run nicely from the html-helper-load-hook.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (html-helper-add-tag
;;  '(cf "t" "<table>" "table, no border"
;;          ("<table>" (r "Table: ") "\n</table>")))
;; (html-helper-add-tag
;;  '(cf "b" "<table border=\"1\">" "table, w/border"
;;          ("<table border=\"1\">" (r "Table: ") "\n</table>")))
;; (html-helper-add-tag
;;  '(cf "d" "<td>" "table data" ("<td>" (r "Table Data: ") "</td>")))
;; (html-helper-add-tag
;;  '(cf "h" "<th>" "table heading" ("<th>" (r "Table Heading: ")
"</th>")))
;; (html-helper-add-tag
;;  '(cf "r" "<tr>" "table row" ("<tr>" (r "Table Row: ") "</tr>\n")))
;; (html-helper-add-tag
;;  '(cf "c" "<tc>" "table caption"
;;          ("<caption>" (r "Table Caption: ") "</caption>\n")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(html-helper-add-type-to-alist
 '(cf . (cf-html-map "\C-c\C-c" cf-html-menu
                           "Insert Cold Fusion Elements")))
(html-helper-install-type 'cf)

(html-helper-add-tag
 '(cf "u" "<cfupdate>" "cf update" ("<cfupdate datasource = \"" (p
"Datasource: ") "\" tablename = \"" (p "Table name: ") "\">\n")))

(html-helper-add-tag
 '(cf "t" "<cftable>" "cf table" ("<cftable query = \"" (p "Table query: ")
"\">" (p "Table definition: ") "\n</cftable>\n")))

(html-helper-add-tag
 '(cf "s" "<cfset>" "cf set" ("<cfset " (p "Equation: ") ">\n")))

(html-helper-add-tag
 '(cf "r" "<cfreport>" "cf report" ("<cfreport report = \"" (p "Report
path: ") "\">" (p "Body: ") "\n</cfreport>\n")))

(html-helper-add-tag
 '(cf "q" "<cfquery>" "cf query" ("<cfquery name = \"" (p "Query name: ")
"\" datasource = \"" (p "Datasource: ") "\">" (p "Body: ")
"\n</cfquery>\n")))

(html-helper-add-tag
 '(cf "p" "<cfparam>" "cf param" ("<cfparam name = \"" (p "Parameter name:
") "\"default = \"" (p "Default value: ") "\">\n")))

(html-helper-add-tag
 '(cf "o" "<cfoutput>" "cf output" ("<cfoutput>" (p "Text: ")
"\n</cfoutput>\n")))

(html-helper-add-tag
 '(cf "m" "<cfmail>" "cf mail" ("<cfmail to = \"" (p "To: ") "\" from = \""
(p "From: ") "\" subject = \"" (p "Subject: ") "\">" (p "Body: ")
"\n</cfmail>\n")))

(html-helper-add-tag
 '(cf "Q" "<cfloop>" "cf loop, query" ("<cfloop query = \"" (p "Query to
index: ") ">" (p "Body: ") "\n</cfloop>\n")))

(html-helper-add-tag
 '(cf "L" "<cfloop>" "cf loop, list" ("<cfloop index = \"" (p "List index:
") ">" (p "Body: ") "\n</cfloop>\n")))

(html-helper-add-tag
 '(cf "I" "<cfloop>" "cf loop, index" ("<cfloop index = \"" (p "Loop index:
") "\"from = \"" (p "From: ") "\"to = \"" (p "To: ") "\">" (p "Body: ")
"\n</cfloop>\n")))

(html-helper-add-tag
 '(cf "C" "<cfloop>" "cf loop, conditional" ("<cfloop conditional = \"" (p
"Expression: ") ">" (p "Body: ") "\n</cfloop>\n")))

(html-helper-add-tag
 '(cf "w" "<cflocation>" "cf location" ("<cflocation url = \"" (p "URL: ")
"\">\n")))

(html-helper-add-tag
 '(cf "d" "<cfinsert>" "cf insert" ("<cfinsert datasource = \"" (p
"Datasource: ") "\" tablename = \"" (p "Database table name: ") "\">\n")))

(html-helper-add-tag
 '(cf "n" "<cfinclude>" "cf include" ("<cfinclude template = \"" (p
"Template filename: ") "\">\n")))

(html-helper-add-tag
 '(cf "i" "<cfif>" "cf if" ("<cfif " (p "Expression: ") ">" (p "Body: ")
"\n</cfif>\n")))

(html-helper-add-tag
 '(cf "h" "<cfheader>" "cf header" ("<cfheader name = \"" (p "Header name:
") "\" value = "\" (p "Header value: ") "\">\n")))

(html-helper-add-tag
 '(cf "f" "<cffile>" "cf file" ("<cffile action = \"" (p "File action: ")
"\">\n")))

(html-helper-add-tag
 '(cf "e" "<cferror>" "cf error" ("<cferror type = \"" (p "Error type: ")
"\" template = \"" (p "Error template file: ") "\">\n")))

(html-helper-add-tag
 '(cf "k" "<cfcookie>" "cf cookie" ("<cfcookie name = \"" (p ": ") "\"name
= \"" (p "Cookie name: ") "\" value = \"" (p "Cookie value: ") "\">\n")))

(html-helper-add-tag
 '(cf "k" "<cfcontent>" "cf content" ("<cfcontent type = \"" (p "Content
type: ") "\" deletefile = \"" (p "Delete File (yes/no): ") "\" file = \""
(p "Filename: ") "\">\n")))

(html-helper-add-tag
 '(cf "c" "<cfcol>" "cf col" ("<cfcol header = \"" (p "Column Header: "\")
" width = " (p "Column width: ") " align = " (p "Column Alignment: ") "
text = " (p "Text: "\") "\">\n")))

(html-helper-add-tag
 '(cf "a" "<cfbreak>" "cf abort" ("<cfbreak>\n")))

(html-helper-add-tag
 '(cf "t" "<cfapplication>" "cf application" ("<cfapplication name = \"" (p
"Application name: ") "\" ClientManagement = \"" (p "Store client
variables?: ") "\">\n")))

(html-helper-add-tag
 '(cf "a" "<cfabort>" "cf abort" ("<cfabort>\n")))


(html-helper-rebuild-menu)

(provide 'hhm-cf)
============================================
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;    SETUP FOR USE OF HTML-HELPER-MODE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;    Variables to control html-helper
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq html-helper-do-write-file-hooks t
      html-helper-build-new-buffer t
      html-helper-use-expert-menu t
      html-helper-timestamp-start "<!-- hhmts start -->"
      html-helper-basic-offset 4
      comment-start "<!--- "
      comment-end " --->"
      html-helper-any-list-item-start "<li>\\|<dt>\\|<dd>\\|<th>"
      html-helper-any-list-item-end "</li>\\|</dt>\\|</dd>\\|</th>"
      html-helper-any-list-start
"<dl>\\|<ul>\\|<ol>\\|<menu>\\|<dir>\\|<select\\|<head>\\|<title>\\|<cfinse
rt>\\|<table\\|<tr>\\|<td\\|<input\\|<cfoutput\\|<option\\|<h1>\\|<h2>\\|<h
3>\\|<h4>\\|<h5>\\|<h6>\\|<center>\\|<frameset\\|<cfquery\\|<cfif\\|<cfloop
\\|<cftransaction>"
      html-helper-any-list-end
"</dl>\\|</ul>\\|</ol>\\|</menu>\\|</dir>\\|</select>\\|</head>\\|</title>\
\|</table>\\|</tr>\\|</td>\\|</cfoutput>\\|</h1>\\|</h2>\\|</h3>\\|</h4>\\|
</h5>\\|</h6>\\|</center>\\|</frameset\\|</cfquery>\\|</cfif>\\|</cfloop>\\
|</cftransaction>"
      
      html-helper-new-buffer-template
      '("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">\n"
        "<html> <head>\n"
        "<title>\n"
        p
        "</title>\n"
        "</head>\n\n"
        "<body>\n"
        "<h1>\n"
        p
        "</h1>\n\n"
        p
        "\n\n<hr>\n"
        html-helper-address-string "\n"
        html-helper-timestamp-start
        html-helper-timestamp-end
        "\n</body>\n"
        "</html>\n")

      html-helper-address-string 
      "<A HREF=\"http://add in yours"><B>Your Name</B></A>
<A HREF=\"mailto:Mail address\">
&lt;mail address&gt;</A><BR>")

(defun mouse-html-helper-menu (e)
  (interactive "e")
  (set-buffer (window-buffer (posn-window (event-start e))))
  (let ((map (lookup-key html-helper-mode-map [menu-bar HTML]))
        key command func)
    (setq key (popup-menu e map)
          key (apply 'vector key)
          command (lookup-key map key)
          func (and (symbolp command) (symbol-function command)))
    (cond ((null func) (setq this-command last-command))
          ((symbolp func)
           (setq this-command func)
           (call-interactively this-command))
          (t
           (call-interactively command)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;    Electric indentation routines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun html-helper-electric-newline ()
  (interactive)
  (indent-according-to-mode)
  (newline-and-indent))

(defun html-helper-electric-insert (arg)
  (interactive "P")
  (self-insert-command (prefix-numeric-value arg))
  (html-helper-indent-command))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;    Key definitions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eval-after-load "html-helper-mode"
    '(progn
       (define-key html-helper-mode-map [M-right] 
         'tempo-forward-mark)
       (define-key html-helper-mode-map [M-left]
         'tempo-backward-mark)
       (define-key html-helper-mode-map [C-down-mouse-2] 
         'mouse-html-helper-menu)
       (define-key html-helper-mode-map [s-down-mouse-1] 
         'mouse-html-helper-menu)
       (define-key html-helper-mode-map [return]
         'html-helper-electric-newline)
;       (define-key html-helper-mode-map ">"
;        'html-helper-electric-insert)
       ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;     html-helper-load used to add tables and Cold Fusion to menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook
 'html-helper-load-hook 
 '(lambda()
    (load "html-tab")
    (load "html-cf")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;     html-helper-mode used to change comments for Cold Fusion
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook
 'html-helper-mode-hook 
 '(lambda()
    (setq comment-start "<!--- "
        comment-end "--->"
        comment-start-skip "//[ \t]*"
        comment-column 0)
    (local-set-key "\C-I" 'tab-to-tab-stop)
    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;}}}
;;{{{ patterns for hilit19  (PART OF THE html-helper-mode-hook)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Define some useful highlighting patterns for the hilit19 package.
;; These will activate only if hilit19 has already been loaded.
;; Thanks to <dickow@nbi.dk> for some pattern suggestions

(if (featurep 'hilit19)
    (hilit-set-mode-patterns
     'html-helper-mode
     '(("<!--" "-->" comment)
       ("/\\*" "*/" comment)
       ("//" "\n" comment)
       ("<![a-z]+\\>[^<>]*\\(<[^>]*>[^<>]*\\)*>" nil comment) ;<!DOCTYPE
...>
;       ("<title>" "</title>" error-face)
;       ("<h[1-6]>" "</h[1-6]>" tag-face) ;only colour inside tag
       ("<a\\b" ">" define)
       ("</a>" nil define)
       ("<img\\b" ">" include)
       ("<option\\|</?select\\|<input\\|</?form\\|</?textarea" ">" include)
       ;; First <i> highlighting just handles unnested tags, then do
nesting
       ("<i>[^<]*</i>" nil italic)
       ("<b>" "</b>" bold)
       ("<i>" "</i>" italic)
       ("<u>" "</u>" underline)
       ("&[^;\n]*;" nil string)
       ("<\\w+" nil keyword)
       ("</\\w+" nil keyword)
       (">" nil keyword)
       ("\"[^\n\"]*\"" nil string)
       ("#[^#\n]*#" nil define)
       )
     nil 'case-insensitive)
  nil)

;;}}}
))
========================================================
;; Netscape elements and attributes
;; An html-helper-mode module

;; Joe Hildebrand <hildjj@fuentez.com> - 23 May 1995
;; version: 1.2

;; This code is distributed under the same terms as html-helper-mode
;; itself.  html-helper-mode for Emacs is written and maintained by
;; Nelson Minar <nelson@santafe.edu>, and is available from
;; <URL:http://www.santafe.edu/~nelson/tools/>.  Nelson takes no
;; responsibility for what I have done with his software!

;; The extensions to HTML supported by this module are documented at
;; <URL:http://home.netscape.com/assist/net_sites/html_extensions.html>.

;; This code must be called *after* html-helper-mode loads.  It can be
;; run nicely from the html-helper-load-hook.

(html-helper-add-type-to-alist
 '(table . (table-html-map "\C-c\C-t" table-html-menu
                           "Insert Table Elements")))
(html-helper-install-type 'table)

(html-helper-add-tag
 '(table "d" "<td>" "table data, right" ("<td align=right>" (r "Table Data:
") "\n</td>\n")))
(html-helper-add-tag
 '(table "d" "<td>" "table data" ("<td>" (r "Table Data: ") "\n</td>\n")))
(html-helper-add-tag
 '(table "r" "<tr>" "table row" ("<tr>" (r "Table Row: ") "\n</tr>\n")))
(html-helper-add-tag
 '(table "c" "<tc>" "table caption"
         ("<caption>" (r "Table Caption: ") "\n</caption>\n")))
(html-helper-add-tag
 '(table "h" "<th>" "table heading" ("<th>" (r "Table Heading: ")
"</th>\n")))
(html-helper-add-tag
 '(table "t" "<table>" "table, no spacing"
         ("<table cellspacing=0 cellpadding=0>" (r "Table: ")
"\n</table>\n")))
(html-helper-add-tag
 '(table "t" "<table>" "table, no border"
         ("<table>" (r "Table: ") "\n</table>\n")))
(html-helper-add-tag
 '(table "b" "<table border=\"1\">" "table, w/border"
         ("<table border=\"1\">" (r "Table: ") "\n</table>\n")))

(html-helper-rebuild-menu)

(provide 'hhm-table)