Saturday, January 20, 2007

emacs.el公開

まだ基本的な設定しかできていません。これからです。


;;;
;;; emacs settings by Noir
;;;

;;; MacOS only settings
(setq mac-option-modifier 'meta)
;(setq mac-allow-anti-aliasing nil)
(mac-key-mode 1)

;;; shell settings
(setq shell-file-name "bash")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
(setq explicit-sh-args '("-login" "-i"))
(setq shell-command-switch "-c")
(setq win32-quote-process-args t)

;;; clean shell-mode
(autoload 'ansi-color-for-comint-mode-on "ansi-color"
"Set `ansi-color-for-comint-mode' to t." t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
;;; hitory compensention shell-mode
(add-hook 'shell-mode-hook
(function (lambda ()
(define-key shell-mode-map "\C-p" 'comint-previous-input)
(define-key shell-mode-map "\C-n" 'comint-next-input))))

;;; character encoding settings
(set-language-environment 'Japanese)
(set-default-coding-systems 'utf-8-unix)
(set-buffer-file-coding-system 'utf-8-unix)
(set-clipboard-coding-system 'sjis-mac)
(utf-translate-cjk-mode 1)
(set-file-name-coding-system 'utf-8)
(if window-system
(set-keyboard-coding-system 'sjis-mac)
(progn
(set-keyboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)))

;;; PATH settings
(setq exec-path (cons "/usr/local/bin" exec-path))
(setenv "PATH"
(concat '"/usr/local/bin:" (getenv "PATH")))

;;; Color settings
(if window-system (progn
(setq initial-frame-alist '(
(vertcal-scroll-bar . nil)
(active-alpha . 0.80)
(active-inalpha . 0.80)
(width . 80)
(height . 47)
(top . 0)
; (left . 1000)
))
(setq default-frame-alist initial-frame-alist)
(set-foreground-color "white")
(set-background-color "black")
(set-cursor-color "Gray")
(set-face-foreground 'modeline "white")
(set-face-background 'modeline "black")
))

;;; global key bind settings
(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\C-cc" 'comment-region)
(global-set-key "\C-cu" 'uncomment-region)
(global-set-key "\C-x\C-i" 'indent-region)
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key "\C-j" 'newline)
(global-set-key "\C-z" 'undo)


;;; don't make backup file
(setq make-backup-files nil)
(setq inhibit-startup-message t)
(if window-system (progn
(tool-bar-mode nil)))

;;; input settings
(setq c-tab-always-indent t)
(setq default-tab-width 4)
(setq indent-line-function 'indent-relative-maybe)

;;; completion settings
(setq completion-ignore-case t)
(setq partial-completion-mode 1)

;;; image settings
(auto-image-file-mode)

;;; global settings
(setq ring-bell-function (lambda ()))
(line-number-mode 1)
(column-number-mode 1)
(display-time-mode 1)
(display-battery-mode 1)

;;; edit settings
(add-hook 'after-save-hook
'executable-make-buffer-file-executable-if-script-p)
(line-number-mode t)
(column-number-mode t)
(add-hook 'text-mode-hook
'(lambda () (auto-fill-mode 1)))
(setq-default fill-column 70)


画像の確認