227 lines
8 KiB
EmacsLisp
227 lines
8 KiB
EmacsLisp
;;; mumamo-aspnet.el --- Support for ASP .Net in `mumamo-mode'.
|
|
;;
|
|
;;;;; John: Please change here to what you want:
|
|
;; Author: John J Foerch (jjfoerch A earthlink O net)
|
|
;; Maintainer:
|
|
;; Created: ??
|
|
;; Version: ==
|
|
;; Last-Updated: Wed Dec 12 21:55:11 2007 (3600 +0100)
|
|
;; URL: http://OurComments.org/Emacs/Emacs.html
|
|
;; Keywords:
|
|
;; Compatibility:
|
|
;;
|
|
;; Features that might be required by this library:
|
|
;;
|
|
;; None
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;; 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 3, 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., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
;;
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; Support for ASP .Net in `mumamo-mode'. If you want to use VB then
|
|
;; you have to get the vb mode that this is written for here:
|
|
;;
|
|
;; http://www.emacswiki.org/cgi-bin/wiki/VbDotNetMode
|
|
;;
|
|
;; A C# mode is already included in nXhtml. That is the one that this
|
|
;; library has been tested with.
|
|
;;
|
|
;;
|
|
;;; Usage:
|
|
;;
|
|
;; Put this file in you Emacs `load-path' and add in your .emacs:
|
|
;;
|
|
;; (eval-after-load 'mumamo
|
|
;; (require 'mumamo-aspnet)
|
|
;; (mumamo-aspnet-add-me))
|
|
;;
|
|
;; A file with the extension .aspx will no be opened with nxhtml-mode
|
|
;; as the main major mode and with chunks in csharp-mode etc.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(eval-when-compile (require 'mumamo))
|
|
|
|
;;;
|
|
|
|
;; (defun mumamo-aspnet-add-me()
|
|
;; "Make mumamo aware of the ASP.Net extension."
|
|
;; (add-to-list 'mumamo-chunk-family-list
|
|
;; '("ASP.Net nXhtml Family" nxhtml-mode
|
|
;; (mumamo-chunk-aspnet
|
|
;; mumamo-chunk-aspnet-script
|
|
;; mumamo-chunk-inlined-style
|
|
;; mumamo-chunk-inlined-script
|
|
;; mumamo-chunk-style=
|
|
;; mumamo-chunk-onjs=
|
|
;; ))
|
|
;; t)
|
|
;; (add-to-list 'mumamo-chunk-family-list
|
|
;; '("ASP.Net XHTML Family" html-mode
|
|
;; (mumamo-chunk-aspnet
|
|
;; mumamo-chunk-aspnet-script
|
|
;; mumamo-chunk-inlined-style
|
|
;; mumamo-chunk-inlined-script
|
|
;; mumamo-chunk-style=
|
|
;; mumamo-chunk-onjs=
|
|
;; ))
|
|
;; t)
|
|
|
|
|
|
;; (add-to-list 'mumamo-filenames-list
|
|
;; '("\\.aspx\\'" "ASP.Net nXhtml Family"))
|
|
;; ;; Make it SET for current session in Custom.
|
|
;; (customize-set-variable 'mumamo-filenames-list mumamo-filenames-list)
|
|
;; (customize-set-value 'mumamo-filenames-list mumamo-filenames-list)
|
|
|
|
;; ;; this is how to set up mode aliases, should we need them.
|
|
;; (add-to-list 'mumamo-major-modes '(csharp-mode csharp-mode))
|
|
;; (add-to-list 'mumamo-major-modes '(vbnet-mode vbnet-mode))
|
|
;; ;; Make it SET for current session in Custom.
|
|
;; (customize-set-variable 'mumamo-major-modes mumamo-major-modes)
|
|
;; (customize-set-value 'mumamo-major-modes mumamo-major-modes)
|
|
;; )
|
|
|
|
|
|
;;; aspnet
|
|
|
|
(defvar mumamo-aspnet-page-language-mode-spec nil
|
|
"A mumamo mode-spec for the default language of an ASP.Net page.
|
|
This is what is set with the directive `@ Page Language' on the
|
|
page.
|
|
|
|
Internal variable.")
|
|
(make-variable-buffer-local 'mumamo-aspnet-page-language-mode-spec)
|
|
;;(add-to-list 'mumamo-survive 'mumamo-aspnet-page-language-mode-spec)
|
|
(put 'mumamo-aspnet-page-language-mode-spec 'permanent-local t)
|
|
|
|
(defconst mumamo-aspnet-language-regex
|
|
(rx (0+ (not (any ">")))
|
|
word-start "language" (0+ space) "=" (0+ space) ?\" (submatch (0+ (not (any ?\" ?>)))) ?\"
|
|
))
|
|
|
|
(defun mumamo-aspnet-get-page-language-mode-spec ()
|
|
(or mumamo-aspnet-page-language-mode-spec
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(when (search-forward "<%@ Page")
|
|
(let ((case-fold-search t))
|
|
(when (looking-at mumamo-aspnet-language-regex)
|
|
(mumamo-aspnet-mode-spec-for-language (match-string 1))))))
|
|
'fundamental-mode))
|
|
|
|
(defun mumamo-aspnet-get-mode-for-chunk (&optional chunk-type)
|
|
(cond ((eq chunk-type 'script)
|
|
(mumamo-get-major-mode-substitute
|
|
(or (if (looking-at mumamo-aspnet-language-regex)
|
|
(mumamo-aspnet-mode-spec-for-language (match-string 1))
|
|
(mumamo-aspnet-get-page-language-mode-spec))
|
|
'fundamental-mode)
|
|
'fontification))
|
|
((eq chunk-type 'directive)
|
|
'fundamental-mode)
|
|
;;(t (mumamo-mode-from-modespec
|
|
(t (mumamo-get-major-mode-substitute
|
|
(mumamo-aspnet-get-page-language-mode-spec)
|
|
'fontification
|
|
))))
|
|
|
|
|
|
(defun mumamo-chunk-aspnet(pos min max)
|
|
"Find <% ... %>."
|
|
(mumamo-find-possible-chunk pos min max
|
|
'mumamo-search-bw-exc-start-aspnet
|
|
'mumamo-search-bw-exc-end-jsp
|
|
'mumamo-search-fw-exc-start-jsp
|
|
'mumamo-search-fw-exc-end-jsp))
|
|
|
|
(defun mumamo-search-bw-exc-start-aspnet(pos min)
|
|
;;(let ((exc-start (mumamo-search-bw-exc-start-str pos min "<%")))
|
|
(let ((exc-start (mumamo-chunk-start-bw-str pos min "<%")))
|
|
(when (and exc-start
|
|
(<= exc-start pos))
|
|
(cons exc-start
|
|
(mumamo-aspnet-get-mode-for-chunk
|
|
(if (eq (char-after exc-start) ?@)
|
|
'directive))))))
|
|
|
|
(defconst mumamo-aspnet-script-tag-start-regex
|
|
(rx "<script" word-end
|
|
(0+ (not (any ">")))
|
|
word-start "runat" (0+ space) "=" (0+ space) ?\" "server" ?\"
|
|
(0+ (not (any ">")))
|
|
">"
|
|
))
|
|
|
|
(defun mumamo-aspnet-mode-spec-for-language (language)
|
|
(let ((language (downcase language)))
|
|
(cond ((equal language "c#") 'csharp-mode)
|
|
((equal language "vb") 'vbnet-mode)
|
|
(t 'fundamental-mode))))
|
|
|
|
(defun mumamo-search-bw-exc-start-aspnet-script(pos min)
|
|
(goto-char (+ pos 7))
|
|
(let ((marker-start (search-backward "<script" min t))
|
|
exc-mode
|
|
exc-start)
|
|
(when marker-start
|
|
(when (looking-at mumamo-aspnet-script-tag-start-regex)
|
|
(setq exc-start (match-end 0))
|
|
(setq exc-mode (mumamo-aspnet-get-mode-for-chunk 'script))
|
|
(goto-char exc-start)
|
|
(when (<= exc-start pos)
|
|
(cons (point) exc-mode))))))
|
|
|
|
(defun mumamo-search-fw-exc-start-aspnet-script(pos max)
|
|
(goto-char (1+ pos))
|
|
(skip-chars-backward "^<")
|
|
;; Handle <![CDATA[
|
|
(when (and
|
|
(eq ?< (char-before))
|
|
(eq ?! (char-after))
|
|
(not (bobp)))
|
|
(backward-char)
|
|
(skip-chars-backward "^<"))
|
|
(unless (bobp)
|
|
(backward-char 1))
|
|
(let ((exc-start (search-forward "<script" max t))
|
|
exc-mode)
|
|
(when exc-start
|
|
(goto-char (- exc-start 7))
|
|
(when (looking-at mumamo-aspnet-script-tag-start-regex)
|
|
(goto-char (match-end 0))
|
|
(point)
|
|
))))
|
|
|
|
(defun mumamo-chunk-aspnet-script(pos min max)
|
|
"Find inlined script, <script runat=\"server\">...</script>."
|
|
(mumamo-find-possible-chunk pos min max
|
|
'mumamo-search-bw-exc-start-aspnet-script
|
|
'mumamo-search-bw-exc-end-inlined-script
|
|
'mumamo-search-fw-exc-start-aspnet-script
|
|
'mumamo-search-fw-exc-end-inlined-script))
|
|
|
|
;; Fix-me: define a multi major mode for asp. Or maybe just drop this
|
|
;; file?
|
|
|
|
(provide 'mumamo-aspnet)
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; mumamo-aspnet.el ends here
|