[前][次][番号順一覧][スレッド一覧]

ruby-changes:13233

From: nobu <ko1@a...>
Date: Fri, 18 Sep 2009 10:12:59 +0900 (JST)
Subject: [ruby-changes:13233] Ruby:r24991 (trunk): * misc/rdoc-mode.el: added.

nobu	2009-09-18 10:11:30 +0900 (Fri, 18 Sep 2009)

  New Revision: 24991

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=24991

  Log:
    * misc/rdoc-mode.el: added.

  Added files:
    trunk/misc/rdoc-mode.el
  Modified files:
    trunk/ChangeLog

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 24990)
+++ ChangeLog	(revision 24991)
@@ -1,3 +1,7 @@
+Fri Sep 18 10:11:27 2009  Nobuyoshi Nakada  <nobu@r...>
+
+	* misc/rdoc-mode.el: added.
+
 Fri Sep 18 09:02:49 2009  Nobuyoshi Nakada  <nobu@r...>
 
 	* lib/rdoc/rdoc.rb (RDoc::RDoc#parse_files): don't branch by
Index: misc/rdoc-mode.el
===================================================================
--- misc/rdoc-mode.el	(revision 0)
+++ misc/rdoc-mode.el	(revision 24991)
@@ -0,0 +1,82 @@
+;;
+;; rdoc-mode.el
+;; Major mode for RDoc editing
+;; 
+
+;; Created: Fri Sep 18 09:04:49 JST 2009
+
+;; License: Ruby's
+
+(require 'derived)
+(define-derived-mode rdoc-mode text-mode "RDoc"
+  "Major mode for RD editing.
+\\{rdoc-mode-map}"
+  (make-local-variable 'paragraph-separate)
+  (setq paragraph-separate "^\\(=+\\|\\*+\\)\\s \\|^\\s *$")
+  (make-local-variable 'paragraph-start)
+  (setq paragraph-start paragraph-separate)
+  (make-local-variable 'require-final-newline)  
+  (setq require-final-newline t)
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults '((rdoc-font-lock-keywords) t nil))
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords rdoc-font-lock-keywords)
+  (make-local-variable 'outline-regexp)
+  (setq outline-regexp "^\\(=+\\)\\s ")
+  (outline-minor-mode t)
+  (rdoc-setup-keys)
+  (setq indent-tabs-mode nil)
+  (run-hooks 'rdoc-mode-hook)
+  )
+
+(defun rdoc-fill-paragraph (&rest args)
+  "Fills paragraph, except for cited region"
+  (interactive (progn
+		 (barf-if-buffer-read-only)
+		 (list (if current-prefix-arg 'full))))
+  (save-excursion
+    (beginning-of-line)
+    (unless (looking-at "^ +")
+      (apply 'fill-paragraph args))))
+
+(defun rdoc-setup-keys ()
+  (interactive)
+  (define-key rdoc-mode-map "\M-q" 'rdoc-fill-paragraph)
+  )
+
+(defvar rdoc-heading1-face 'font-lock-keywordoc-face)
+(defvar rdoc-heading2-face 'font-lock-type-face)
+(defvar rdoc-heading3-face 'font-lock-variable-name-face)
+(defvar rdoc-heading4-face 'font-lock-comment-face)
+(defvar rdoc-bold-face 'font-lock-function-name-face)
+(defvar rdoc-emphasis-face 'font-lock-function-name-face)
+(defvar rdoc-code-face 'font-lock-keyword-face)
+(defvar rdoc-description-face 'font-lock-constant-face)
+
+(defvar rdoc-font-lock-keywords
+  (list
+   (list "^= .*$"
+	 0 rdoc-heading1-face)
+   (list "^== .*$"
+	 0 rdoc-heading2-face)
+   (list "^=== .*$"
+	 0 rdoc-heading3-face)
+   (list "^=====* .*$"
+	 0 rdoc-heading4-face)
+   (list "\\(^\\|\\s \\)\\(\\*\\(\\sw\\|[-_:]\\)+\\*\\)\\($\\|\\s \\)"
+	 2 rdoc-bold-face)		; *bold*
+   (list "\\(^\\|\\s \\)\\(_\\(\\sw\\|[-_:]\\)+_\\)\\($\\|\\s \\)"
+	 2 rdoc-emphasis-face)		; _emphasis_
+   (list "\\(^\\|\\s \\)\\(\\+\\(\\sw\\|[-_:]\\)+\\+\\)\\($\\|\\s \\)"
+	 2 rdoc-code-face)		; +code+
+   (list "<em>[^<>]*</em>" 0 rdoc-emphasis-face)
+   (list "<i>[^<>]*</i>" 0 rdoc-emphasis-face)
+   (list "<b>[^<>]*</b>" 0 rdoc-bold-face)
+   (list "<tt>[^<>]*</tt>" 0 rdoc-code-face)
+   (list "<code>[^<>]*</code>" 0 rdoc-code-face)
+   (list "^\\([-*]\\|[0-9]+\\.\\|[A-Za-z]\\.\\)\\s "
+	 1 rdoc-description-face) ; bullet | numbered | alphabetically numbered
+   (list "^\\[[^\]]*\\]\\|\\S .*::\\)\\(\\s \\|$\\)"
+	 1 rdoc-description-face)	; labeled | node
+   ;(list "^\\s +\\(.*\\)" 1 rdoc-verbatim-face)
+   ))

Property changes on: misc/rdoc-mode.el
___________________________________________________________________
Name: svn:eol-style
   + LF
Name: svn:keywords
   + Author Id Revision


--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/

[前][次][番号順一覧][スレッド一覧]