.emacs_shell

;; -*- mode: emacs-lisp; coding: utf-8 -*-

;;; font-lockの設定
(global-font-lock-mode t)

(setq default-frame-alist
      (append
       '((foreground-color . "white")  ; 前景色
         (background-color . "black") ; 背景色
;;	 (font . "fontset-meirio") ; フォント
;;	 (font . "default") ; フォント
         (cursor-color     . "green") ; カーソル色
         (width            . 114)     ; フレーム幅(文字数)
         (height           . 44)      ; フレーム高(文字数)
         (top              . 50)      ; フレームの Y 位置(ピクセル数)
         (left             . 10)      ; フレームの X 位置(ピクセル数)
        )
 default-frame-alist))

(set-face-foreground 'font-lock-comment-face "Color-80")
(set-face-foreground 'font-lock-comment-delimiter-face "Color-80")
(set-face-foreground 'font-lock-string-face "Color-80")
(set-face-foreground 'font-lock-variable-name-face "brightyellow")
(set-face-foreground 'font-lock-type-face "brightyellow")

(set-face-foreground 'font-lock-function-name-face "Color-111")
;;(set-face-foreground 'font-lock-builtin-face "brightblue")
;;(set-face-foreground 'font-lock-constant-face "brightblue")
(set-face-foreground 'font-lock-builtin-face "color-120")
(set-face-foreground 'font-lock-constant-face "color-120")
(set-face-foreground 'font-lock-keyword-face "color-123")
(set-face-foreground 'minibuffer-prompt "color-123")


;; 選択領域の色
(set-face-background 'region "Color-70")

(setq font-lock-support-mode 'jit-lock-mode)
(defface my-face-b-1 '((t (:background "brightwhite"))) nil)
(defface my-face-b-2 '((t (:background "white"))) nil)
(defface my-face-u-1 '((t (:foreground "Color-43" :underline t))) nil)
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)

(setq auto-mode-alist
      (append '(("\\.c$"    . c-mode)
  ("\\.py$"   . python-mode)
  ("\\.pyx$"  . python-mode)
  ("\\.cc$"   . c++-mode)
  ("\\.h$"    . c++-mode)
  ("\\.java$" . c++-mode)
  ("\\.smp$"  . c++-mode)
  ("\\.dat$"  . c++-mode)
  ("\\.vc$"   . makefile-mode)
  ("\\.misc$"   . makefile-mode)
  ("\\.bc$"   . makefile-mode)
  ("\\.el$"   . emacs-lisp-mode)
  ("\\.f$"    . fortran-mode)
  ("\\.F$"    . fortran-mode)
  ("\\.mss$"  . scribe-mode)
  ("\\.pl$"   . perl-mode)) auto-mode-alist))

;; リージョンに色を入れる
(setq transient-mark-mode t)

;; メニューバーを非表示
(menu-bar-mode -1)

;; ssh
(require 'tramp)
(setq tramp-default-method "ssh")