1.在你的.emacs中添加:
??? (setq auto-mode-alist (append '(("\\.js$" . c-mode)) auto-mode-alist))
??? ??? (autoload 'javascript-mode "javascript-mode" "JavaScript mode" t)
?? (setq auto-mode-alist (append '(("\\.js$" . javascript-mode))
??? ? ??? auto-mode-alist))
; Indent c code four spaces
(setq c-basic-offset 4)
; Associate c-mode with the .js extension
(setq auto-mode-alist (append '(("\\.js$" . c-mode)) auto-mode-alist))
2.在你的site-lisp目錄下加入javascript-mode.el文件:
;; javascript-mode.el --- major mode for editing javascript (.js) files
;;
;; Copyright (C) 1997 Peter Kruse
;; Author: Peter Kruse <pete@netzblick.de>
;; Keywords: languages
;; Time-stamp: <Sun Apr 12 20:02:25 1998 pete>
;; This file is *NOT* part of GNU Emacs.
;; This file 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 of the License, or
;; (at your option) any later version.
;; javascript-mode.el 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 file; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; Get the latest version from
;; <http://www.brigadoon.de/peter/javascript-mode.el>
;; Basically this is c-mode, for indentation, that's where the line
;; (load-library "c-mode") comes from. colorization is done via hilit19.el.
;; Actually did not do much programming myself, just wanted to have
;; colorization, indentation and some functions (hm that's what major modes
;; are about?) hey, this is my first try!
;;; HOW TO INSTALL:
;; Put the following forms in your .emacs to enable autoloading of JavaScript
;; mode, and auto-recognition of ".js" files.
;;
;;?? (autoload 'javascript-mode "javascript-mode" "JavaScript mode" t)
;;?? (setq auto-mode-alist (append '(("\\.js$" . javascript-mode))
;;??? ??? ??? ??? ?? auto-mode-alist))
;;
;;?? This mode requires another lisp file, tempo.el. This can be
;;???? retrieved from ftp://ftp.lysator.liu.se/pub/emacs/tempo.el
;;
;;?? You might want to get browse-url.el, for the online help.
;;?? Get it from
;;?? http://wombat.doc.ic.ac.uk/emacs/browse-url.el
;;; Change Log:
;;
;; Sun Apr 12 19:48:48 1998
;;
;;??? included a menu
;;
;; Mon Sep 22 20:03:12 MET DST 1997
;;
;;??? improvement of Syntax-table
;;
;; Sun Sep? 7 17:57:50 MET DST 1997
;;
;;??? new variable: javascript-interactive
;;
;; Mon Sep? 1 14:52:37 MET DST 1997
;;
;;??? javascript online help - all it does, is browse-url to
;;????? javascript-base-help-href
;;
;; Fri Aug 29 21:01:22 MET DST 1997 Peter Kruse
;;??? <peter.kruse@psychologie.uni-regensburg.de>
;;
;;??? 1st release
;;; TODO
;;?
;;? - online help should work like describe-\(function\|variable\),
;;? but get the info from the web. Netscape's documention is in progress,
;;? there is no final complete docu on JavaScript1.2, so perhaps we wait.
;;
;;? - should include an interface to signing scripts, but zigbert is not
;;? available for linux
;;; Bugs
;;
;;? - strings in single-quotes do not highlight
;;; Code:
;; user-variables
(defvar javascript-indentation 4
? "The width for further indentation in JavaScript mode.")
(defvar javascript-base-help-href "http://developer.netscape.com/library/documentation/communicator/jsguide/"
? "URL where the javascript guide can be found.")
(defvar javascript-browse-url-function 'browse-url-w3
? "how to view online help.")
(defvar javascript-interactive t
? "If t user will be prompted for strings in templates.")
;;;
(defvar javascript-mode-map (make-sparse-keymap)
? "Keymap for javascript-mode")
(defvar javascript-mode-syntax-table nil
? "Syntax table for javascript-mode.")
(defvar javascript-mode-hook nil
? "*Hook run when javascript-mode is started.")
(if javascript-mode-syntax-table
??? ()
? (setq javascript-mode-syntax-table (make-syntax-table text-mode-syntax-table))
? (modify-syntax-entry ?_ "w" javascript-mode-syntax-table)
? (modify-syntax-entry ?' "\"" javascript-mode-syntax-table)
? (modify-syntax-entry ?% "_" javascript-mode-syntax-table)
? (modify-syntax-entry ?\" "\"" javascript-mode-syntax-table)
? (modify-syntax-entry ?\\ "\\" javascript-mode-syntax-table)
? (modify-syntax-entry ?. "_" javascript-mode-syntax-table))
?
(defvar javascript-mode-abbrev-table nil
? "Abbrev table used while in javascript-mode.")
(define-abbrev-table 'javascript-mode-abbrev-table ())
(require 'tempo)
(tempo-define-template
?"javascript-for"
?(list "for (" '(p "initial: ") "; " '(p "condition: ") "; " '(p "increment: ") ") {" 'n> 'p 'n "}" '>)
?nil "insert a for loop" nil)
(tempo-define-template
?"javascript-for-in"
?(list "for (" '(p "variable: ") " in " '(p "object: ") ") {" '> 'n> 'p 'n "}" '>)
?nil "insert a for loop" nil)
(tempo-define-template
?"javascript-if"
?(list "if (" '(p "condition: ") ") {" 'n> 'p 'n "}" '>)
?nil "insert an if statement" nil)
(tempo-define-template
?"javascript-while"
?(list "while (" '(p "condition: ") ") {" 'n> 'p 'n "}" '>)
?nil "insert a while statement" nil)
(tempo-define-template
?"javascript-do"
?(list "do {" '> 'n> 'p 'n "} while(" '(p "condition: ") ");" '>)
?nil "insert a do-while statement" nil)
(tempo-define-template
?"javascript-with"
?(list "with (" '(p "with what? ") ") {" 'n> 'p 'n "}" '>)
?nil "insert a with statement" nil)
(tempo-define-template
?"javascript-defun"
?(list "function " '(p "function name: ") "(" '(p "arguments: ") ") {" 'n> 'p 'n "}" '>)
?nil "insert a function definition" nil)
(tempo-define-template
?"javascript-switch"
?(list "switch (" '(p "variable: ") ") {" '> 'n> "case '" 'p "' :" '> 'n> "break;" '> 'n> "default :" '> 'n> "}" '>)
?nil "insert a switch statement" nil)
(tempo-define-template
?"javascript-case"
?(list "case '" 'p "' :" '> 'n> "break;" '>)
?nil "insert a case" nil)
;;; now for the help facility
;;; from man.el
(defun javascript-help (entry)
? "Opens a browser via browse-url with a help entry on the current word."
? (interactive
?? (list (let* ((default-entry (current-word))
??? ??? (input (read-string
??? ??? ??? (format "Help entry%s: "
??? ??? ??? ??? (if (string= default-entry "")
??? ??? ??? ??? ??? ""
??? ??? ??? ??? ? (format " (default %s)" default-entry))))))
??? ?? (if (string= input "")
??? ?????? (if (string= default-entry "")
??? ??? ?? (error "No entry given")
??? ??? ?default-entry)
??? ???? input))))
? (let ((url (concat javascript-base-help-href "contents.htm" "#" entry))
??? (browse-url-browser-function javascript-browse-url-function))
??? (if (boundp 'browse-url-browser-function)
??? (progn
??? ? (pop-to-buffer " javascript-help")
??? ? (apply browse-url-browser-function (list url)))
????? (error "browse-url not found"))))
?????
(modify-frame-parameters (selected-frame) '((menu-bar-lines . 2)))
(define-key javascript-mode-map [menu-bar javascript]
? (cons "JavaScript" javascript-mode-map))
(define-key javascript-mode-map [menu-bar javascript Help]
? '("Help" . javascript-help))
(define-key javascript-mode-map [menu-bar javascript for]
? '("for" . tempo-template-javascript-for))
(define-key javascript-mode-map [menu-bar javascript forin]
? '("for .. in" . tempo-template-javascript-for-in))
(define-key javascript-mode-map [menu-bar javascript if]
? '("if" . tempo-template-javascript-if))
(define-key javascript-mode-map [menu-bar javascript while]
? '("while" . tempo-template-javascript-while))
(define-key javascript-mode-map [menu-bar javascript with]
? '("with" . tempo-template-javascript-with))
(define-key javascript-mode-map [menu-bar javascript switch]
? '("switch" . tempo-template-javascript-switch))
(define-key javascript-mode-map [menu-bar javascript case]
? '("case" . tempo-template-javascript-case))
(define-key javascript-mode-map [menu-bar javascript do]
? '("do" . tempo-template-javascript-do))
(define-key javascript-mode-map [menu-bar javascript function]
? '("function" . tempo-template-javascript-defun))
(define-key javascript-mode-map "\C-c\C-h" 'javascript-help)
(define-key javascript-mode-map "\C-c\C-f" 'tempo-template-javascript-for)
(define-key javascript-mode-map "\C-c\C-n" 'tempo-template-javascript-for-in)
(define-key javascript-mode-map "\C-c\C-i" 'tempo-template-javascript-if)
(define-key javascript-mode-map "\C-c\C-w" 'tempo-template-javascript-while)
(define-key javascript-mode-map "\C-c\C-t" 'tempo-template-javascript-with)
(define-key javascript-mode-map "\C-c\C-s" 'tempo-template-javascript-switch)
(define-key javascript-mode-map "\C-c\C-c" 'tempo-template-javascript-case)
(define-key javascript-mode-map "\C-c\C-d" 'tempo-template-javascript-do)
(define-key javascript-mode-map "\C-c(" 'tempo-template-javascript-defun)
(define-key javascript-mode-map "{" 'electric-c-brace)
(define-key javascript-mode-map "}" 'electric-c-brace)
(defun javascript-mode ()
? "Major mode for editing javascript code. Basically this is c-mode,
because it does a nice indentation. c-mode gets called via `load-library'.
Colorization is done with hilit19. A few commands are defined through
`tempo.el'. The online help facility gets done through browse-url.el.
\\{javascript-mode-map}
You can set the indentation level by setting the variable
`javascript-indentation' to an integer-value. Default is 4.
The variable javascript-base-help-href sets the URL for the JavaScript guide."
? (interactive)
? (kill-all-local-variables)
? (load-library "c-mode")
? (require 'browse-url)
? (use-local-map javascript-mode-map)
? (setq major-mode 'javascript-mode)
? (setq mode-name "JavaScript")
? (set-syntax-table javascript-mode-syntax-table)
? (make-local-variable 'comment-start)
? (setq comment-start "http:// ")
? (make-local-variable 'comment-start-skip)
? (setq comment-start-skip "/\\*+ *\\|// *")
? (make-local-variable 'tempo-interactive)
? (setq tempo-interactive javascript-interactive)
? (make-local-variable 'indent-line-function)
? (setq indent-line-function 'c-indent-line)
? (make-local-variable 'c-indent-level)
? (setq c-indent-level javascript-indentation)
? (run-hooks 'javascript-mode-hook))
;;;
(if (featurep 'hilit19)
??? (hilit-set-mode-patterns
???? 'javascript-mode
???? '(("/\\*" "\\*/" comment)
?????? ("http://" "$" comment)
?????? ("\\<function\\>\\s +[^0-9]\\w+\\s *([^)]*)" nil defun)
?????? ("\\<\\(abstract\\|boolean\\|break\\|byte\\|case\\|catch\\|char\\|class\\|const\\|continue\\|default\\|delete\\|do\\|double\\|else\\|extends\\|false\\|final\\|finally\\|float\\|for\\|goto\\|if\\|implements\\|in\\|instanceof\\|int\\|interface\\|long\\|native\\|new\\|null\\|package\\|private\\|protected\\|public\\|return\\|short\\|static\\|super\\|switch\\|synchronized\\|this\\|throw\\|throws\\|transient\\|true\\|try\\|typeof\\|var\\|void\\|while\\)\\>" 1 keyword)
?????? ("\\<with\\>\\s *([^)]*)" nil include)
?????? ("\\<\\(import\\|export\\)\\>\\s +.*" nil include)
?????? ("\"[^\\\"]*\\(\\\\.[^\\\"]*\\)*\"" nil string)
?????? ("^\\s *\\w+\\s *:\\s *$" nil label))
???? nil nil)
? nil)
(provide 'javascript-mode)
;; javascript-mode.el ends here
;; Local Variables:
;; local-write-file-hooks:(time-stamp)
;; End: