有人用emacs写jsp吗？

graydream

emacs好像没有标准的jsp模式，我在国外的网站上找到这么一个东东，但是java语法还是没有对齐，不知道怎么回事？

1. 
   
2. ; functions to perform correct indentation of java code within a
   
3. ; JSP page. I can live without syntax coloring - I can't live
   
4. ; without proper indentation
   
5. ;
   
6. (setq auto-mode-alist
   
7.      (cons '("\\.jsp\\'" . html-mode) auto-mode-alist))
   
8. 
   
9. (defun jsp-java-sob ()
   
10. "Return the point for the enclosing <% or nil if not present"
    
11. (save-excursion
    
12.    (search-backward "<%")))
    
13. 
    
14. (defun jsp-java-eob ()
    
15. "Return the point for the enclosing %> or nil if not present"
    
16. (save-excursion
    
17.    (search-forward "%>")))
    
18. 
    
19. (defun jsp-in-java-debug ()
    
20. (interactive)
    
21. (if (jsp-in-java)
    
22.      (message "debug: in java code")
    
23.    (message "debug: not in java code")))
    
24. 
    
25. (defun jsp-in-java ()
    
26. (save-excursion
    
27.    (let* ((current-point (point))
    
28.           (start-java-tag (jsp-java-sob))
    
29.           (end-java-tag (jsp-java-eob)))
    
30.      (and (> current-point start-java-tag)
    
31. (< current-point end-java-tag)))))
    
32. 
    
33. 
    
34. (defun jsp-indent-java ()
    
35. (interactive)
    
36. "Indent a java block within a JSP page "
    
37. (save-excursion
    
38.    (let ((start (+ 2 (jsp-java-sob)))
    
39.          (end (jsp-java-eob) ))
    
40.      (if (string= "!" (char-to-string (char-after start)))
    
41.          (setq start (+ start 1))
    
42.        nil)
    
43.      (if (jsp-in-java)
    
44.          (progn
    
45.            (java-mode)
    
46.            (goto-char start)
    
47.            ;; needed for proper indentation - removed later
    
48.            (newline)   
    
49.            (insert "{")
    
50.            (newline)
    
51.            
    
52.            (goto-char end)
    
53.            ;; needed for proper indentation - removed later
    
54.            (newline)
    
55.            (insert "}")
    
56.            (newline)
    
57.            ;;
    
58.            ;; perform the indentation
    
59.            ;;
    
60.            (indent-region (+ start 2) (- end 0) nil)
    
61.            ;;
    
62.            ;; now remove the text we termporarily added for indentation
    
63.            ;;
    
64.            (delete-region (- (point) 3) (point))
    
65.            (delete-region start (+ start 3))
    
66.            (html-mode))
    
67.        ()))))
    
68. 
    
69. (setq html-mode-hook
    
70.      '(lambda ()
    
71.         (define-key sgml-mode-map "\C-c\C-q"  'jsp-indent-java)
    
72.         ))

复制代码

tong0711

你好我用emacs写jsp 并且也进行了配置 我qq是179699468要的话我发给你

tong0711

噢可以发附件的这就发上去 我也是从国外找的 这个里边有需要的模式文件和配置文件