kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* misc/rdoc-mode.el: added.

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24991 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2009-09-18 01:11:30 +00:00
parent 2f2d213f7e
commit 96ac194811
2 changed files with 86 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
Fri Sep 18 10:11:27 2009 Nobuyoshi Nakada <nobu@ruby-lang.org>
* misc/rdoc-mode.el: added.
Fri Sep 18 09:02:49 2009 Nobuyoshi Nakada <nobu@ruby-lang.org>
* lib/rdoc/rdoc.rb (RDoc::RDoc#parse_files): don't branch by

82
misc/rdoc-mode.el Normal file
View file

@ -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)
))