.emacs.el

;; default encodingをutf-8に変更
(set-default-coding-systems 'utf-8)

;; status-barにカーソルのcolumn表示(4,29とか)
(column-number-mode t)

;; ファイル名補完で大文字小文字を区別しない
(setq completion-ignore-case t)

;; バックアップファイルを作らない
(setq make-backup-files nil)

;; ソースコードに色を付ける
(global-font-lock-mode t)

;; 起動時のメッセージを表示しない
(setq inhibit-startup-message t)

;; C-hでBSする
(global-set-key "\C-h" 'delete-backward-char)

;; M-xでコマンドを入力するときに候補を表示する
(icomplete-mode 1)

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

;; C-x C-bでelectric-buffer-list
(define-key global-map "\C-x\C-b" 'electric-buffer-list)
(eval-after-load "ebuff-menu"
  '(progn
     (define-key
       electric-buffer-menu-mode-map
       "x" 'Buffer-menu-execute)))

;; 対応する括弧を光らせる
(show-paren-mode 1)

;; 画面チカチカさせない
(setq visible-bell nil)
(setq ring-bell-function 'ignore)

;;; status-barに時間表示
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-string-forms
      '(month "/" day " " 24-hours ":" minutes " "))
(display-time)

;;; カーソルがある行にアンダーラインを表示
(global-hl-line-mode)
(setq hl-line-face 'underline)
(hl-line-mode 1)

;;; yes-noをy-nに置き換え
(fset 'yes-or-no-p 'y-or-n-p) 

;; 画面外の文字は折り返しして表示
(setq truncate-lines t)
(setq truncate-partial-width-windows nil)

;; emacs-serverを起動
(server-start)

;; Shebangがあるとき自動的にchmod +xする
(add-hook 'after-save-hook
          'executable-make-buffer-file-executable-if-script-p)

;; スクロールバーを隠す
(scroll-bar-mode)
;; ツールバーを隠す
(tool-bar-mode)

;; ~/.elisp以下をロードして設定などするときt
(setq load-my-extend t)

;; ~/.elisp以下を読むとき
(when load-my-extend
  ;; ~/.elisp/をload-pathに追加
  (setq load-path
	(append load-path
		'("~/.elisp/")))

  ;; yaml-mode
  ;; http://yaml-mode.clouder.jp/
  (autoload 'yaml-mode "yaml-mode"
    "Mode for editing ruby source files" t)
  (setq auto-mode-alist
	(append '(("\\.yaml$" . yaml-mode)) auto-mode-alist))
  
  ;; ruby-mode
  ;; http://www.ruby-lang.org/ja/
  (autoload 'ruby-mode "ruby-mode"
    "Mode for editing ruby source files" t)
  (setq auto-mode-alist
	(append '(("\\.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)
	       ))

  (add-hook 'ruby-mode-hook
	    (lambda()
	      (require 'ruby-electric)
	      (ruby-electric-mode t)
	      ))
  
  (autoload 'rubydb "rubydb3x"
    "run rubydb on program file in buffer *gud-file*.
the directory containing file becomes the initial working directory
and source-file directory for your debugger." t)
  

  ;; auto-complete-mode
  ;; http://dev.ariel-networks.com/Members/matsuyama/auto-complete
  (require 'auto-complete)
  (global-auto-complete-mode t)

  )

;; Carbon Emacs用の設定
(when  (featurep 'carbon-emacs-package)
  ;; フルスクリーン化
  (mac-toggle-max-window)
  ;; フルスクリーン時にメニューバーを表示する
  ;;(setq mac-autohide-menubar-on-maximize nil)
  ;; OSXの日本語入力メソッドを有効にする
  (setq default-input-method "MacOSX")
  ;; optionキーをMetaキーとして利用
  (setq mac-option-modifier 'meta)
  ;; C-c mでフルスクリーンのトグルを行う
  (add-hook 'window-setup-hook
	    (lambda ()
 	      (progn
		(set-frame-parameter nil 'alpha 70)
		(setq mac-autohide-menubar-on-maximize t)
 		(set-frame-parameter nil 'fullscreen 'fullboth)
 		)
	      ))
  (global-set-key "\C-cm" 'mac-toggle-max-window)
  ;; Carbon Emacs用の設定終了
  )