ivaneeo's blog

自由的力量,自由的生活。

  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks
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 "// ")
  (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)
       ("//" "$" 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:

posted on 2006-03-24 14:59 ivaneeo 阅读(1163) 评论(0)  编辑  收藏 所属分类: emacs-牛露锋芒

只有注册用户登录后才能发表评论。


网站导航: