 (add-to-list 'package-archives
              '("marmalade" . "http://marmalade-repo.org/packages/"))
 (package-initialize)
+
+
+;; 言語設定は環境変数に依存
+(set-language-environment nil)
+
+;; meadow 向けの設定
+; (if (string-equal system-type "windows-nt") (let () ))
+
+;; 自動保存機能
+(setq auto-save-default t
+      auto-save-list-file-name "~/.emacs-auto-save-list" ;; 自動保存に関する情報
+      auto-save-intrval 50  ;; 自動保存する打鍵回数
+      auto-save-timeout 10)  ;; 自動保存する時間
+
+;; フォントロックモード (強調表示等) を有効にする
+;; (global-font-lock-mode t)
+
+;; 対応する括弧をハイライト
+(show-paren-mode 1)
+(setq show-paren-style 'mixed)
+
+;; バッファ末尾に余計な改行コードを防ぐための設定
+(setq next-line-add-newlines nil)
+
+;; 縦分割の時、一行で表示しきれない時の挙動
+;; nil: 改行、t: オーバーフロー
+(setq truncate-partial-width-windows nil)
+
+;; インデントの際にタブを用いるか否か
+(setq-default indent-tabs-mode nil)
+
+;; メニューバーの表示
+(menu-bar-mode (if window-system 1 0))
+
+;; シンボリックリンク先がバージョンコントロール化にある時の
+;; プロンプトを表示しない
+(setq vc-follow-symlinks t)
+
+;; "The local variables list in .emacs" と言われるのを抑止
+(add-to-list 'ignored-local-variables 'syntax)
+
+;; 列数表示
+(column-number-mode 1)
+
+;; スプラッシュ画面を表示しない
+(setq inhibit-splash-screen t)
+
+;; ウィンドウシステムを使っているとき
+(if window-system
+    (let ()
+
+      ;; ツールバーの表示
+      (tool-bar-mode -1)
+
+      ;; スクロールバーを消す(nil:消える,right:右側)
+      (set-scroll-bar-mode "right")
+
+      ;; ウィンドウサイズを画面に揃える（精度は微妙）
+      (add-to-list 'default-frame-alist
+                   (cons 'height (/ (- (x-display-pixel-height) 50)
+                                    (frame-char-height))))
+
+      ;; フォントの指定
+      (set-default-font "Inconsolata")
+      ))
+
+;; BS でマーク範囲を消す
+(delete-selection-mode 1)
+
+(when (require 'markdown-mode nil t)
+  ;; *scratch* のときの major-mode
+  (setq initial-major-mode 'markdown-mode)
+
+  ;; *scratch* のときのメッセージ
+  (setq initial-scratch-message "Scratch\n========\n\n"))
+
+
+;; マーク範囲をハイライト
+(setq-default transient-mark-mode t)
+
+;; 現在の行をハイライト
+(global-hl-line-mode)
+
+;; 保存前に末尾空白の削除
+(add-hook 'before-save-hook 'delete-trailing-whitespace)
 
 ;; -------------------------------------------------------------------------
 ;; グローバルキーバインド変更

;; -*- mode: lisp-interaction; syntax: elisp; coding: utf-8-unix -*-

(set-language-environment nil)

;; meadow 向けの設定
; (if (string-equal system-type "windows-nt") (let () ))

;; 自動保存機能
(setq auto-save-default t
      auto-save-list-file-name "~/.emacs-auto-save-list" ;; 自動保存に関する情報
      auto-save-intrval 50  ;; 自動保存する打鍵回数
      auto-save-timeout 10)  ;; 自動保存する時間

;; フォントロックモード (強調表示等) を有効にする
;; (global-font-lock-mode t)

;; 対応する括弧をハイライト
(show-paren-mode 1)
(setq show-paren-style 'mixed)

;; バッファ末尾に余計な改行コードを防ぐための設定
(setq next-line-add-newlines nil)

;; 縦分割の時、一行で表示しきれない時の挙動
;; nil: 改行、t: オーバーフロー
(setq truncate-partial-width-windows nil)

;; インデントの際にタブを用いるか否か
(setq-default indent-tabs-mode nil)

;; メニューバーの表示
(menu-bar-mode (if window-system 1 0))

;; シンボリックリンク先がバージョンコントロール化にある時の
;; プロンプトを表示しない
(setq vc-follow-symlinks t)

;; "The local variables list in .emacs" と言われるのを抑止
(add-to-list 'ignored-local-variables 'syntax)

;; 列数表示
(column-number-mode 1)

;; スプラッシュ画面を表示しない
(setq inhibit-splash-screen t)

;; ウィンドウシステムを使っているとき
(if window-system
    (let ()

      ;; ツールバーの表示
      (tool-bar-mode -1)

      ;; スクロールバーを消す(nil:消える,right:右側)
      (set-scroll-bar-mode "right")

      ;; ウィンドウサイズを画面に揃える（精度は微妙）
      (add-to-list 'default-frame-alist
                   (cons 'height (/ (- (x-display-pixel-height) 50)
                                    (frame-char-height))))

      ;; フォントの指定
      (set-default-font "Inconsolata")
      ))

;; BS でマーク範囲を消す
(delete-selection-mode 1)

;; マーク範囲をハイライト
(setq-default transient-mark-mode t)

;; 現在の行をハイライト
(global-hl-line-mode)

;; 保存前に末尾空白の削除
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; パッケージ管理
(require 'package)

                        :foreground "#cd6600")
    (set-face-attribute 'font-lock-keyword-face nil
                        :foreground "#ff6eb4")
    (set-face-attribute 'markdown-header-face nil
                        :height 1.1
                        :foreground "#87ceff"
                        :bold t)
    (set-face-attribute 'markdown-header-rule-face nil
                        :inherit 'markdown-header-face)
    (set-face-attribute 'markdown-header-delimiter-face nil
                        :inherit 'markdown-header-face)
    (set-face-attribute 'whitespace-tab nil
                        :background "#1f1f1f"))
  )
