guehara

;;; mysql
(setq sql-mysql-program "/usr/local/bin/mysql")

(add-hook 'sql-interactive-mode-hook
          '(lambda()
             (setq truncate-lines t
                   truncate-partial-width-windows t)))

guehara

(defvar refe-program-name "/usr/local/bin/refe")
(defvar refe-buffer-name "*Refe*")
(defvar refe-completion-table nil)

(defun refe-call-process (buf &rest args)
  (let ((coding-system-for-read 'utf-8))
    (apply 'call-process refe-program-name nil buf nil args
		   )))

(defun refe-make-completion-table ()

guehara

=== modified file 'src/nsfont.m'
--- src/nsfont.m	2012-01-19 07:21:25 +0000
+++ src/nsfont.m	2012-04-17 01:35:44 +0000
@@ -891,7 +891,7 @@
     font->descent = -lrint(floor(adjusted_descender));
     font->min_width = ns_char_width(sfont, '|');
     font->space_width = lrint (ns_char_width (sfont, ' '));
-    font->average_width = lrint (font_info->width);
+    font->average_width = lrint (ns_char_width (sfont, '0'));
     font->max_width = lrint (font_info->max_bounds.width);

guehara

参考【EmacsWiki: Search At Point】 http://emacswiki.org/emacs/SearchAtPoint

guehara

--- current-string-to.el.orig	2015-01-14 15:01:56.000000000 +0900
+++ current-string-to.el	2015-01-14 15:04:33.000000000 +0900
@@ -65,11 +65,11 @@
 
 
 (defvar current-string-to-delimiter-regexp-ascii
-	"[\][\t\(\)\"\|\\ /`',;:<>{}｢｣=]"
+	"[\][\t\(\)\"\|\\ /`'\.,;:<>{}｢｣=]"
 	"A regular expressions to search ascii delimiters.")
 

guehara

ruby-mode-hook にいちいち追加すんのが面倒なので本体側を修正。

original -> 【EmacsWiki: Ruby Block Mode】 http://www.emacswiki.org/emacs/RubyBlockMode

guehara

(setq vc-handled-backends ())

guehara

#!/bin/sh
find . -name "*.rb" | xargs etags --language=none --regex='/[ \t]*\(def\|class\|module\)[ \t]\([^ \t]+\)/\2/'
find ~/.rvm/rubies/default/lib/ruby -name "*.rb" | xargs etags -a --language=none --regex='/[ \t]*\(def\|class\|module\)[ \t]\([^ \t]+\)/\2/'

guehara

;;; anything-rurima
(require 'anything-rurima)
(setq anything-rurima-index-file "~/dev/ruby/svn/rubydoc/rurima.e")
(modify-coding-system-alist 'file "\\/dev\\/ruby\\/svn\\/rubydoc*" 'euc-jp)

guehara

;; linum
(require 'linum)
(setq linum-format
      (lambda (line) (propertize (format (let ((w (length (number-to-string (count-lines (point-min) (point-max)))))) (concat "%" (number-to-string w) "d")) line) 'face 'linum)))
(global-linum-mode t)