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)


画像の確認


1 comment:

  1. Do not buy Christian Shoes for the Middle East and a feast in Egypt on a lean 130 mm or 5 shuffle heeled Christian Louboutin Pumps with lively pompoms where a curtain bejeweled with arabesques and flourishes with decorative frames and balanced in Luxor. Many people believe that buy Christian Louboutin Boots for sale can be a wise decision for you and the have proper reason behind that as well. Christian Louboutin Sandals for sale have created a good image in the market today and most of the people want to have one of these in the collection today.
    LONGSTREET THE COMPLETE have also have special features are excellent; like commentaries, interviews, and behind the scenes information. Another LONGSTREET THE COMPLETE DVD this year is the complete Exorcist series. The set features 6 LONGSTREET THE COMPLETE DVD COLLECTION .
    Hogan scarpe features an extra-padded puffy tongue and Hogan scarpe donna patented insole. The hogan donna has been offered nearly in every colorway on the planet. From graffiti artists to the skateboarding and basketball spectrums-many have created customized Hogan scarpe uomo tailored to appeal to their individual sub-cultures.

    ReplyDelete