Skip to content

Instantly share code, notes, and snippets.

@guehara
guehara / gist:2692718
Created May 14, 2012 08:31
vc-mode を完全にOFFる
(setq vc-handled-backends ())
@guehara
guehara / gist:2692710
Created May 14, 2012 08:30
anything-rurima ドキュメントのバッファが文字化けする対策
;;; 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
guehara / ruby-block.diff
Created May 7, 2012 03:31
ruby-block-mode diff
ruby-mode-hook にいちいち追加すんのが面倒なので本体側を修正。
original -> 【EmacsWiki: Ruby Block Mode】 http://www.emacswiki.org/emacs/RubyBlockMode
@guehara
guehara / current-string-to.el.diff
Last active October 3, 2015 08:28
current-string-to.el でドットも delimiter に追加
--- 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
guehara / isearch-forward-at-point.el
Created April 20, 2012 05:07
isearch-forward-word が気に入らないので改良版
参考【EmacsWiki: Search At Point】 http://emacswiki.org/emacs/SearchAtPoint
@guehara
guehara / emacs-24-ns-font.diff
Created April 17, 2012 01:52
fix-width for Emacs 24.x
=== 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
guehara / refe.el
Created April 12, 2012 03:02
refe.el customize ver.
(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
guehara / gist:2288951
Created April 3, 2012 02:55
sql-mode for brew MySQL
;;; 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
guehara / yasnippet-config.diff
Created March 30, 2012 08:41
yasnippet-config.el diff
--- yasnippet-config.el.orig 2010-04-09 13:56:14.000000000 +0900
+++ yasnippet-config.el 2012-03-30 17:36:31.000000000 +0900
@@ -109,14 +109,14 @@
;;; With `skk-mode'
(defadvice skk-j-mode-on (after yasnippet activate)
- (yas/minor-mode-off))
+ (yas/minor-mode 0))
(defadvice skk-mode-exit (after yasnippet activate)
(yas/minor-mode-on))
@guehara
guehara / gist:1313373
Created October 25, 2011 16:37
Makefile for flymake
CLANG = /usr/bin/clang
ARCH = -arch armv7
SDK = -isysroot /Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS5.0.sdk
OS_VER_MIN = -miphoneos-version-min=4.3
OPTIONS = -fsyntax-only -x objective-c -std=c99 -fblocks
WARNINGS = -Wreturn-type -Wparentheses -Wswitch -Wno-unused-parameter -Wunused-variable -Wunused-value
INCLUDES = -I. --include ../*.pch
FRAMEWORKS = -F/Developer/Platforms/iPhoneSimulator.platform/Developer/SDKs/iPhoneSimulator5.0.sdk/System/Library/Frameworks/
check-syntax: