From da4ad54e47972340399756467d682174601488ec Mon Sep 17 00:00:00 2001 From: nobu Date: Thu, 26 Apr 2007 04:54:01 +0000 Subject: * misc/ruby-style.el: new file. C/C++ style for ruby source code. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12221 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- misc/ruby-style.el | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 misc/ruby-style.el (limited to 'misc') diff --git a/misc/ruby-style.el b/misc/ruby-style.el new file mode 100644 index 0000000000..1768789470 --- /dev/null +++ b/misc/ruby-style.el @@ -0,0 +1,36 @@ +;;; -*- emacs-lisp -*- +;;; C/C++ mode style for Ruby. + +(defun ruby-style-case-indent (x) + (save-excursion + (goto-char (cdr x)) + (if (looking-at "\\") + (- c-basic-offset + (% (current-column) c-basic-offset))))) + +(require 'cc-styles) +(c-add-style + "ruby" + '("bsd" + (c-basic-offset . 4) + (c-offsets-alist + (case-label . *) + (label . *) + (statement-case-intro . *) + (statement-case-open . *) + (statement-block-intro . (ruby-style-case-indent +)) + (access-label /) + ))) + +(defun ruby-style-c-mode () + (interactive) + (if (or (string-match "/ruby\\>" (buffer-file-name)) + (save-excursion + (goto-char (point-min)) + (let ((head (progn (forward-line 100) (point))) + (case-fold-search nil)) + (goto-char (point-min)) + (re-search-forward "Copyright (C) .* Yukihiro Matsumoto" head t)))) + (setq c-file-style "ruby"))) + +(provide 'ruby-style) -- cgit v1.2.3