;;======================================================================
;; 言語・文字コード関連の設定
;;======================================================================
(when (equal emacs-major-version 21)
  (require 'un-define))
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(setq file-name-coding-system 'utf-8)
;;
;;======================================================================
;; Anthy
;;    CTRL-\で入力モード切替え
;;======================================================================
;; (load-library "anthy")
;; (setq default-input-method "japanese-anthy")
;;
;;=======================================================================
;; フォント
;;=======================================================================

;; ;; ipamona
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-r-normal--12-*-*-*-*-*-fontset-ipamona12")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-r-normal--14-*-*-*-*-*-fontset-ipamona14")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-r-normal--16-*-*-*-*-*-fontset-ipamona16")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-r-normal--18-*-*-*-*-*-fontset-ipamona18")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-r-normal--12-*-*-*-*-*-fontset-ipamona12")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-r-normal--14-*-*-*-*-*-fontset-ipamona14")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-r-normal--16-*-*-*-*-*-fontset-ipamona16")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-r-normal--18-*-*-*-*-*-fontset-ipamona18")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-i-normal--12-*-*-*-*-*-fontset-ipamona12")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-i-normal--14-*-*-*-*-*-fontset-ipamona14")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-i-normal--16-*-*-*-*-*-fontset-ipamona16")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-medium-i-normal--18-*-*-*-*-*-fontset-ipamona18")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-i-normal--12-*-*-*-*-*-fontset-ipamona12")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-i-normal--14-*-*-*-*-*-fontset-ipamona14")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-i-normal--16-*-*-*-*-*-fontset-ipamona16")
;; (create-fontset-from-fontset-spec
;;  "-ipamona-uigothic-bold-i-normal--18-*-*-*-*-*-fontset-ipamona18")

;; shinonome
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-r-normal--12-*-*-*-*-*-fontset-shinonome12")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-r-normal--14-*-*-*-*-*-fontset-shinonome14")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-fontset-shinonome16")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-r-normal--18-*-*-*-*-*-fontset-shinonome18")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-r-normal--12-*-*-*-*-*-fontset-shinonome12")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-r-normal--14-*-*-*-*-*-fontset-shinonome14")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-r-normal--16-*-*-*-*-*-fontset-shinonome16")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-r-normal--18-*-*-*-*-*-fontset-shinonome18")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-i-normal--12-*-*-*-*-*-fontset-shinonome12")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-i-normal--14-*-*-*-*-*-fontset-shinonome14")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-i-normal--16-*-*-*-*-*-fontset-shinonome16")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-medium-i-normal--18-*-*-*-*-*-fontset-shinonome18")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-i-normal--12-*-*-*-*-*-fontset-shinonome12")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-i-normal--14-*-*-*-*-*-fontset-shinonome14")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-i-normal--16-*-*-*-*-*-fontset-shinonome16")
;; (create-fontset-from-fontset-spec
;;  "-shinonome-gothic-bold-i-normal--18-*-*-*-*-*-fontset-shinonome18")

;; ;; vlgothic
;; (create-fontset-from-fontset-spec
;;  "-vlgothic-gothic-medium-r-normal--12-*-*-*-*-*-fontset-vlgothic12")
;; (create-fontset-from-fontset-spec
;;  "-vlgothic-gothic-medium-r-normal--14-*-*-*-*-*-fontset-vlgothic14")
;; (create-fontset-from-fontset-spec
;;  "-vlgothic-gothic-medium-r-normal--16-*-*-*-*-*-fontset-vlgothic16")
;; (create-fontset-from-fontset-spec
;;  "-vlgothic-gothic-medium-r-normal--18-*-*-*-*-*-fontset-vlgothic18")

;; (cond (window-system
;;        (set-default-font "-*-fixed-medium-r-normal--16-*-*-*-*-*-*-*")
;;        (progn
;; 	 (set-face-font 'default
;; 			"-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-*-*")
;; 	 (set-face-font 'bold
;; 			"-shinonome-gothic-bold-r-normal--16-*-*-*-*-*-*-*")
;; 	 (set-face-font 'italic
;; 			"-shinonome-gothic-medium-i-normal--16-*-*-*-*-*-*-*")
;; 	 (set-face-font 'bold-italic
;; 			"-shinonome-gothic-bold-i-normal--16-*-*-*-*-*-*-*")
;; 	 )))
;;
;;=======================================================================
;; フレームサイズ・位置・色など
;;=======================================================================
(setq initial-frame-alist
      (append (list
	       ;; '(foreground-color . "black")	    ; 文字色
	       ;; '(background-color . "AntiqueWhite") ; 背景色
	       ;; '(background-color . "DarkGreen")
	       ;; '(border-color . "gray")
	       ;; '(mouse-color . "white")
	       ;; '(cursor-color . "black")
	       '(width . 100)                        ; フレームの幅
	       '(height .100)                       ; フレームの高さ
	       '(top . 0)                           ; Y 表示位置
	       '(left .	340)                        ;; X 表示位置
	       ;; '(alpha . (nil 70 50 30))
	       )
	      initial-frame-alist))
(setq default-frame-alist initial-frame-alist)

;; Emacs23 用フォント設定
(cond (window-system
       (set-default-font "VL Gothic:style=regular")
       (set-fontset-font (frame-parameter nil 'font)
                         'japanese-jisx0208
                         '("IPA モナー P明朝" . "unicode-bmp"))
       ))
;;
;;=======================================================================
;; Misc
;;=======================================================================
(mouse-wheel-mode t)			; ホイールマウス
(global-font-lock-mode t)		; 文字の色つけ
(setq line-number-mode t)		; カーソルのある行番号を表示
(auto-compression-mode t)		; 日本語infoの文字化け防止
(set-scroll-bar-mode 'right)		; スクロールバーを右に表示
(global-set-key "\C-z" 'undo)		; UNDO
(setq frame-title-format		; フレームのタイトル指定
      (concat "%b - emacs@" system-name))

(display-time) ;;時計を表示
(show-paren-mode t)
;;(global-set-key "\C-h" 'backward-delete-char)            ; Ctrl-Hでバックスペース
;;(setq make-backup-files nil)                    ; バックアップファイルを作成しない
;;(setq visible-bell t)                        ; 警告音を消す
;;(setq kill-whole-line t)                    ; カーソルが行頭にある場合も行全体を削除
;; (when (boundp 'show-trailing-whitespace)
;;       (setq-default show-trailing-whitespace t))         ; 行末のスペースを強調表示
;;
;;======================================================================
;; C-c c で compile コマンドを呼び出す
;;======================================================================
(define-key mode-specific-map "c" 'compile)
;;
;;======================================================================
;; スクリプトを保存する時，自動的に chmod +x を行なうようにする
;;======================================================================
(defun make-file-executable ()
  "Make the file of this buffer executable, when it is a script source."
  (save-restriction
    (widen)
    (if (string= "#!"
		 (buffer-substring-no-properties 1
						 (min 3 (point-max))))
        (let ((name (buffer-file-name)))
          (or (equal ?. (string-to-char
			 (file-name-nondirectory name)))
              (let ((mode (file-modes name)))
                (set-file-modes name (logior mode (logand
						   (/ mode 4) 73)))
                (message (concat "Wrote " name " (+x)"))))))))
(add-hook 'after-save-hook 'make-file-executable)
;;
;;=======================================================================
;; add-to-load-path-recompile の定義
;;=======================================================================
(defun add-to-load-path-recompile (dir)
  (add-to-list 'load-path dir)
  (let (save-abbrevs) (byte-recompile-directory dir)))
;;
;;=======================================================================
;; /usr/share/emacs/site-lisp にパスを通す
;; ~/.emacs.d/elisp/ にパスを通す
;; ~/.emacs.d/auto-install/ にパスを通す
;;=======================================================================
(add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp"))
;; これは$HOME以下に隠しフォルダ作成してください
(add-to-load-path-recompile (expand-file-name "~/.emacs.d/elisp/"))
(add-to-load-path-recompile (expand-file-name "~/.emacs.d/auto-install/"))
;;
;;======================================================================
;; wget
;;======================================================================
;; emacs-wgetを入手。synapticで入手できます。
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/emacs-wget"))

(autoload 'wget "wget" "wget interface for Emacs." t)
(autoload 'wget-web-page "wget" "wget interface to download whole web page." t)

(load "w3m-wget")
(autoload 'w3-wget "w3-wget" "wget interface for Emacs/W3." t)
;;
;;======================================================================
;; Twittering-Mode
;;======================================================================
(add-to-load-path-recompile
 (expand-file-name "~/.emacs.d/elisp/twittering-mode-0.9.0"))
(require 'twittering-mode)
(setq twittering-username "ユーザー名"
      twittering-password "パスワード") ; This is optional

(add-hook 'twittering-mode-hook
	  (lambda ()
	    (local-set-key "f" 'twittering-friends-timeline)
	    (local-set-key "r" 'twittering-replies-timeline)
	    (local-set-key "u" 'twittering-user-timeline)
	    (local-set-key "w" 'twittering-update-status-interactive)))

(twittering-icon-mode)                       ; Show icons (requires wget)
(setq twittering-timer-interval 300)         ; Update your timeline each 300 seconds (5 minutes)
(setq twittering-tmp-dir "~/ピクチャ/twitter") ; Directory to store buddy icons

(add-hook 'twittering-new-tweets-hook
	  (lambda ()
	    (let ((n twittering-new-tweets-count))
	      (start-process "twittering-notify" nil "notify-send"
			     "-i" "/usr/share/pixmaps/gnome-emacs.png"
			     "New tweets"
			     (format "You have %d new tweet%s"
				     n (if (> n 1) "s" ""))))))
;;
;;======================================================================
;; End of the File
;;======================================================================