                         :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"))
   )

  ;;       (http://www.emacswiki.org/emacs/TabBarMode)
  (setq tabbar-buffer-groups-function (lambda () (list "Buffers")))

  (when (require 'cl nil t) ;; remove-if とかに必要

    ;; 表示するタブのフィルタリング
    ;;   * で始まるバッファはタブに表示しない
    (setq tabbar-buffer-list-function
          (lambda ()
            (remove-if
             (lambda (b)
               (and (string-match "^ ?\\*" (buffer-name b))
                    (not (string-equal (buffer-name (current-buffer))
                                       (buffer-name b)))))
             (buffer-list)))))

  ;; 左に表示されるボタンを消す
  (dolist (button '(tabbar-buffer-home-button

(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)

;; -------------------------------------------------------------------------
;; グローバルキーバインド変更
