.emacs

.emacs

(define-key global-map "\C-a" 'start-kbd-macro)
(define-key global-map "\C-q" 'end-kbd-macro)
(define-key global-map "\C-z" 'call-last-kbd-macro)
(define-key global-map "\C-o" 'beginning-of-buffer)
(define-key global-map "\C-l" 'end-of-buffer)
(put 'upcase-region 'disabled nil)

(cond
 ( (or (eq window-system 'ns) (eq window-system 'mac) )
   ; for cocoa emacs

   ; ツールバーを消す
   (tool-bar-mode 0)

   ; 背景色設定
   (custom-set-faces
    '(default ((t (:background "#222222" :foreground "#FFFFFF"))))
    '(cursor (
   	   (((class color) (background dark )) (:background "#00AA00"))
   	   (((class color) (background light)) (:background "#999999"))
   	   (t ())
   	   )))

   ; フレーム透過設定
   (add-to-list 'default-frame-alist '(alpha . (0.9 0.9)))
   
   ;起動時のディスプレイサイズ変更
   (set-frame-height (next-frame) 50)
   (set-frame-width (next-frame) 160)

   ;;複数ウィンドウを開かないようにする
   (setq ns-pop-up-frames nil)
   )
 )