;;; fsc-edit-tools.el --- Some tools for using Emacs with FSC
;;
;; Copyright by Thomas Bleier (thomas@bleier.at)
;;
;; 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 of the License, 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 this program.  If not, see <http://www.gnu.org/licenses/>.

(require 'mmm-auto)
(require 'mmm-vars)

;; MMM-Mode group for FSC Active Reports
(mmm-add-group
 'fsc-asp-reports
 '((active-report-code
    :submode javascript-mode
    :face mmm-code-submode-face
    :front "<%"
    :back"%>"
    :insert ((?a active-report-code nil @ "<%"
                 @ "\n" _ "\n" @ "%>" @))
    )))
(push '("\\.asp\\'" . html-mode) auto-mode-alist)
(mmm-add-mode-ext-class 'html-mode "\\.asp" 'fsc-asp-reports)


;; Function to set correct mode for FSC Active Reports opened as .txt
(defun tb-fsc-active-report ()
  (interactive "")
  (html-mode)
  (mmm-ify-by-class 'fsc-asp-reports))
(define-key-after (lookup-key global-map [menu-bar tools])
  [tb-fsc-active-report-menu] (cons "FSC Active Report Mode" 'tb-fsc-active-report) t)

(provide 'fsc-edit-tools)

;; end of fsc-edit-tools.el