Created
May 3, 2010 08:24
-
-
Save ybenjo/387872 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;デフォ | |
(set-language-environment "Japanese") | |
(set-default-coding-systems 'utf-8) | |
(set-terminal-coding-system 'utf-8) | |
(set-keyboard-coding-system 'utf-8) | |
(set-buffer-file-coding-system 'utf-8) | |
(set-locale-environment "utf-8") | |
(setenv "LANG" "ja_JP.UTF-8") | |
;;;みみっちい設定 | |
(tool-bar-mode -1) | |
(menu-bar-mode -1) | |
(toggle-scroll-bar nil) | |
(setq transient-mark-mode t) | |
(setq w32-hide-mouse-on-key t) | |
(setq make-backup-files nil) | |
(setq w32-hide-mouse-timeout 5000) | |
(global-font-lock-mode t) | |
(setq inhibit-startup-message t) | |
(fset 'yes-or-no-p 'y-or-n-p) | |
;;;対応する括弧に色付け | |
(show-paren-mode t) | |
(setq show-paren-style 'mixed) | |
(set-face-background 'show-paren-match-face "red") | |
(set-face-foreground 'show-paren-match-face "SkyBlue") | |
;;;C-hでbackspace、C-oで補間 | |
(define-key global-map "\C-H" 'backward-delete-char) | |
(define-key global-map "\C-o" 'dabbrev-expand) | |
(mac-add-ignore-shortcut '(ctl ? )) | |
;;;ウィンドウサイズ関連 | |
(setq default-frame-alist | |
(append (list '(foreground-color . "azure3") | |
'(background-color . "black") | |
'(border-color . "black") | |
'(mouse-color . "white") | |
'(cursor-color . "white") | |
'(width . 155) | |
'(height . 59) | |
; '(width . 90) | |
; '(height . 50) | |
'(top . 0) | |
'(left . 0) | |
'(alpha . (80 100 100 100)) | |
) | |
default-frame-alist)) | |
;;;carbon emacsでフルスクリーン | |
(when (eq window-system 'mac) | |
(add-hook 'window-setup-hook | |
(lambda () | |
(set-frame-parameter nil 'fullscreen 'fullboth)))) | |
;;;突っ込んだelisp関連 | |
;;;ruby-mode | |
(add-to-list 'load-path "~/emacs-lisp/ruby") | |
(add-to-list 'load-path "~/emacs-lisp") | |
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t) | |
(setq auto-mode-alist (cons '("\\.rb$" . ruby-mode) auto-mode-alist)) | |
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode)) interpreter-mode-alist)) | |
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process") | |
(autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby in ruby-mode") | |
(add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys))) | |
;;;ruby-electric.el --- electric editing commands for ruby files | |
(require 'ruby-electric) | |
(add-hook 'ruby-mode-hook '(lambda () (ruby-electric-mode t))) | |
;;;C-c C-c で選択範囲をコメントアウト | |
(define-key ruby-mode-map "\C-c\C-c" 'comment-region) | |
;;;C-c C-u で選択範囲のコメントを解除 | |
(define-key ruby-mode-map "\C-c\C-u" 'uncomment-region) | |
;;;elscreen | |
(load "elscreen" "ElScreen" t) | |
;;;yatex | |
(setq auto-mode-alist(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist)) | |
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) | |
(setq load-path (cons "~/site-lisp/yatex" load-path)) | |
(setq tex-command "/usr/local/bin/platex") | |
(setq dviprint-command-format "/usr/local/bin/dvipdfmx %s") | |
;;;ess | |
(require 'ess-site) | |
(setq ess-ask-for-ess-directory nil) | |
(setq ess-pre-run-hook | |
'((lambda () | |
(setq default-process-coding-system '(utf-8 . utf-8)) | |
))) | |
(defun ess:format-window-1 () | |
(split-window-horizontally) | |
(other-window 1) | |
(split-window) | |
(other-window 1)) | |
(add-hook 'ess-pre-run-hook 'ess:format-window-1) | |
(when (eq system-type 'darwin) | |
(setq my-font "-*-*-medium-r-normal--12-*-*-*-*-*-fontset-osaka") | |
;; (setq fixed-width-use-QuickDraw-for-ascii t) | |
(setq mac-allow-anti-aliasing t) | |
(if (= emacs-major-version 22) | |
(require 'carbon-font)) | |
(set-default-font my-font) | |
(add-to-list 'default-frame-alist `(font . ,my-font)) | |
(when (= emacs-major-version 23) | |
(set-fontset-font | |
(frame-parameter nil 'font) | |
'japanese-jisx0208 | |
'("osaka" . "iso10646-1")) | |
(setq face-font-rescale-alist | |
'(("^-apple-hiragino.*" . 1.2) | |
(".*osaka-bold.*" . 1.2) | |
(".*osaka-medium.*" . 1.2) | |
(".*courier-bold-.*-mac-roman" . 1.0) | |
(".*monaco cy-bold-.*-mac-cyrillic" . 0.9) | |
(".*monaco-bold-.*-mac-roman" . 0.9) | |
("-cdac$" . 1.3))))) | |
;;;tramp | |
(require 'tramp) | |
(setq tramp-default-method "ssh") | |
;;;haml-mode | |
(require 'haml-mode) | |
(add-to-list 'auto-mode-alist '("\\.haml$" . haml-mode)) | |
;;;sass-mode | |
(require 'sass-mode) | |
(add-to-list 'auto-mode-alist '("\\.sass$" . sass-mode)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment