dot_emacs.lisp

(setq load-path (cons (expand-file-name "~/.emacs.d/elisp/") load-path))

;; 文字コード
(set-language-environment "Japanese")
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(scroll-bar-mode (quote right)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )

;; フレームに関する設定
(if window-system (progn
  ;; 文字の色を設定します。
  (add-to-list 'default-frame-alist '(foreground-color . "white"))
  ;; 背景色を設定します。
  (add-to-list 'default-frame-alist '(background-color . "black"))
))

;; C-hでbackspace
(global-set-key "\C-h" 'delete-backward-char)
(setq inhibit-startup-message t)

;; C-x bでbufferを開く時に補完
(iswitchb-mode 1)

;; bufferを前後に移動
(global-set-key "\C-x\C-n" 'next-buffer)
(global-set-key "\C-x\C-p" 'previous-buffer)

;; region に色を付ける
(setq transient-mark-mode t)

;; 対応する括弧に色づけ
(show-paren-mode t)

;;タイトルバーにバッファ名を表示
(setq frame-title-format "%b")

;;フレームで新規バッファを開く
(defun new-frame-create-buffer ()
  (interactive)  
  (switch-to-buffer (generate-new-buffer "*blank*"))  
  (new-frame)
  (next-buffer)
)
(global-set-key "\C-xn" 'new-frame-create-buffer)