.emacs

gistfile1.el

; 言語を日本語にする
(set-language-environment 'Japanese)
; UTF-8とする
(prefer-coding-system 'utf-8)

; 起動時の画面はいらない
(setq inhibit-startup-message t)

(setq-default ispell-program-name "aspell") 

(set-default-font
"-*-Osaka-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")

(set-frame-height (next-frame) 50)
(set-frame-width (next-frame) 80)

;; メニューバーを隠す
(tool-bar-mode -1)

(set-face-attribute 'default nil :family "monaco" :height 150)
(set-fontset-font
  (frame-parameter nil 'font)
    'japanese-jisx0208
    '("Hiragino Kaku Gothic ProN" . "iso10646-1"))
(set-fontset-font
  (frame-parameter nil 'font)
    'japanese-jisx0212
    '("Hiragino Kaku Gothic ProN" . "iso10646-1")) 
(set-fontset-font
  (frame-parameter nil 'font)
    'mule-unicode-0100-24ff
    '("monaco" . "iso10646-1"))
(setq face-font-rescale-alist
    '(("^-apple-hiragino.*" . 1.2)
      (".*osaka-bold.*" . 1.2)
      (".*osaka-medium.*" . 1.2)
      (".*courier-bold-.*-mac-roman" . 1.0)
      (".*monaco cy-bold-.*-mac-cyrillic" . 0.9) (".*monaco-bold-.*-mac-roman" . 0.9)
      ("-cdac$" . 1.3)))
(global-set-key "¥C-h" 'delete-backward-char)


;

(setq load-path (append (list
  (expand-file-name "/usr/local/share/gtags")
  )
load-path))


(autoload 'gtags-mode "gtags" "" t)
(add-hook 'c-mode-hook
	  '(lambda ()
	     (gtags-mode 1)))
(setq gtags-suggested-key-mapping 5)

;(setq gtags-mode-hook
;      '(lambda ()
;         (local-set-key "¥M-t" 'gtags-find-tag)
;         (local-set-key "¥M-r" 'gtags-find-rtag)
;         (local-set-key "¥M-s" 'gtags-find-symbol)
;         (local-set-key "¥C-t" 'gtags-pop-stack)
;         ))

;
; org-mode
;
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/org/lisp")

(add-to-list 'load-path "/usr/local/share/emacs/site-lisp")

(require 'succor)

;; ノートを保存するディレクトリ
(setq *succor-directory* "~/.succor/")
  
;; gtagsのジャンプと連携する
(setq succor-gtags-enable t)
  
;; imenuのジャンプと連携する
(setq succor-imenu-enable t)



;ノートを保存するディレクトリ
(setq *succor-directory* (expand-file-name "~/.succor/"))

(setq *succor-file-extension* ".og")

;(setq gtags-mode-hook '(succor))

;(setq eshell-path-env (getenv "PATH"))
(setenv "PATH" (concat (expand-file-name "/usr/local/bin:") (getenv "PATH")))