init.el

; 対応する括弧を表示する
(show-paren-mode t)

; デフォルトパスを~/にする
(cd "~/")

;起動するときに起動画面を表示しない
(setq inhibit-startup-message t) 

; *.~ とかのバックアップファイルを作らない
(setq make-backup-files nil)

; .#* とかのバックアップファイルを作らない 
(setq auto-save-default nil)
 
; ^H を バックスペースへ
(global-set-key "\C-h" 'delete-backward-char)

; tool-bar off
(tool-bar-mode nil)

;;カーソル行ハイライト
(defface hlline-face
  '((((class color)
      (background dark))
     (:background "dark slate gray"))
    (((class color)
      (background light))
     (:background "OliveDrab1"))
    (t
     ()))
  "*Face used by hl-line.")
(setq hl-line-face 'hlline-face)
;; (setq hl-line-face 'underline) ; 下線
(global-hl-line-mode)

;;alpha
(add-to-list 'default-frame-alist '(alpha . 90))

;;Window
(if window-system
    (progn
      ;; 文字の色を設定します。
      (add-to-list 'default-frame-alist '(foreground-color . "VioletRed1"))
      ;; 背景色を設定します。
      (add-to-list 'default-frame-alist '(background-color . "black"))
      ;; カーソルの色を設定します。
      (add-to-list 'default-frame-alist '(cursor-color . "snow"))
       ))

; auto-install
(add-to-list 'load-path "~/.emacs.d/auto-install/")
(require 'auto-install)
(auto-install-update-emacswiki-package-name t)
(setq ediff-window-setup-function 'ediff-setup-windows-plain)

; e2wm
(require 'e2wm)
(global-set-key (kbd "M-+") 'e2wm:start-management)

; deferred
(require 'inertial-scroll)
(setq inertias-global-minor-mode-map
      (inertias-define-keymap
       '(
	 ("<next>" . inertias-up)
	 ("<prior>" . inertias-down)
	 ("C-v" . inertias-up)
	 ("M-v" . inertias-down)
	 ) inertias-prefix-key))
(inertias-global-minor-mode 1)

; gauche
(setq scheme-program-name "gosh -i")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

(defun scheme-other-window ()
  "Run Gauche on other window"
  (interactive)
  (setq scheme-program-name scheme-program-name)
  (split-window-horizontally 120)
  (let ((buf-name (buffer-name (current-buffer))))
    (scheme-mode)
    (switch-to-buffer-other-window
     (get-buffer-create "*scheme*"))
    (run-scheme scheme-program-name)
    (switch-to-buffer-other-window
     (get-buffer-create buf-name))))

(define-key global-map
  "\C-cs" 'scheme-other-window)
(put 'downcase-region 'disabled nil)

; gauche info
(defvar anything-c-source-info-gauche-refj
  '((info-index . "c:/Installed/Gauche/share/info/gauche-refj.info")))
(defun anything-info-ja-at-point ()
  "Preconfigured `anything' for searching info at point."
  (interactive)
  (anything '(anything-c-source-info-gauche-refj)
            (thing-at-point 'symbol) nil nil nil "*anything info*"))
(define-key global-map (kbd "C-M-;") 'anything-info-ja-at-point)

(auto-compression-mode)

; anything
(require 'anything-startup)

; skk
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(global-set-key "\C-xt" 'skk-tutorial)