Skip to content

Instantly share code, notes, and snippets.

@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:
@guehara
guehara / gist:1313365
Created October 25, 2011 16:33
flymake for objc-mode
;;; flymake
(require 'flymake)
(set-face-attribute 'flymake-errline nil
:background "slateblue4"
:foreground "aliceblue"
:weight 'normal)
(set-face-attribute 'flymake-warnline nil
:background "yellow"
:foreground "black"
@guehara
guehara / gist:1313359
Created October 25, 2011 16:32
auto-complete-clang settings
(require 'auto-complete-clang)
(setq ac-clang-flags '("-Wall" "-Wextra" "-std=c99" "-fblocks" "-isysroot" "/Developer/Platforms/iPhoneSimulator.platform/Developer/SDKs/iPhoneSimulator5.0.sdk" "-I." "-include ../*.pch" "-F/Developer/Platforms/iPhoneSimulator.platform/Developer/SDKs/iPhoneSimulator5.0.sdk/System/Library/Frameworks/" "-D__IPHONE_OS_VERSION_MIN_REQUIRED=40300"))
;; flymake
(add-hook 'objc-mode-hook
(lambda ()
(push 'ac-source-clang ac-sources)
(auto-complete-mode t)
))
@guehara
guehara / gist:1301654
Created October 20, 2011 16:58
zsh prompt with vcs_info
autoload -Uz vcs_info
zstyle ':vcs_info:*' formats '(%s)[%b] '
zstyle ':vcs_info:*' actionformats '(%s)[%b|%a] '
precmd () {
psvar=()
LANG=en_US.UTF-8 vcs_info
[[ -n "$vcs_info_msg_0_" ]] && psvar[1]="$vcs_info_msg_0_"
}
# prompt
@guehara
guehara / gist:1301656
Created October 20, 2011 16:59
zsh auto-fu settings
# auto-fu
function () { # precompile
local A
A=~/zsh/auto-fu.zsh/auto-fu.zsh
[[ -e "${A:r}.zwc" ]] && [[ "$A" -ot "${A:r}.zwc" ]] ||
zsh -c "source $A; auto-fu-zcompile $A ${A:h}" >/dev/null 2>&1
}
source ~/zsh/auto-fu.zsh/auto-fu; auto-fu-install
# initialization and options