;; Setting for Frames ----------------------------------------------------------
(when window-system
- (if (equal (system-name) "seras")
- (set-default-font "Dejavu Sans Mono 11")
- (set-default-font "Dejavu Sans Mono 13")))
-
-;(when window-system
-; (set-default-font "Inconsolata-14")
-; (set-face-font 'variable-pitch "Inconsolata-14")
-; (set-fontset-font (frame-parameter nil 'font)
-; 'japanese-jisx0208
-; '("Takaoゴシック" . "unicode-bmp")))
-
-;(when window-system
-; (add-to-list 'default-frame-alist
-; '(font . "Bitstream Vera Sans Mono 12"))
-; (set-frame-font "Bitstream Vera Sans Mono 12")
-; (set-fontset-font nil;(frame-parameter nil 'font)
-; 'japanese-jisx0208
-; '("Hiragino Kaku Gothic Pro W3" . "unicode-bmp")))
+ (let ((host (system-name)))
+ (cond ((equal host "seras")
+ (set-frame-font "Dejavu Sans Mono 11" t))
+
+ ((equal host "aria.cielonegro.org")
+ (progn
+ (set-frame-font "Dejavu Sans Mono 13" t)
+ (set-fontset-font nil 'japanese-jisx0208 "さざなみゴシック")
+ (set-fontset-font nil 'japanese-jisx0212 "さざなみゴシック")
+ (set-fontset-font nil 'katakana-jisx0201 "さざなみゴシック"))))))
;; Hooks for newline-and-indent ------------------------------------------------
;(mapcar (lambda (hook)
(autoload 'tsv-normal-mode "tsv-mode" "A minor mode to edit table like file" t)
(setq tsv-write-annotation nil)
(setq tsv-separator-list '("\t"))
-(add-to-list 'auto-mode-alist '("\\.[Tt][Ss][Vv]\\'" . tsv-mode))
+;(add-to-list 'auto-mode-alist '("\\.[Tt][Ss][Vv]\\'" . tsv-mode))
;; yaml-mode
(autoload 'yaml-mode "yaml-mode"
'(mew-summary-form (quote (type (5 date) " " (14 from) " " t (14 x-classification) " " (30 subj) "|" (0 body))))
'(mouse-wheel-progessive-speed nil)
'(mouse-wheel-scroll-amount (quote (1 ((shift) . 5) ((control)))))
+ '(mpc-browser-tags (quote (Directory Genre Artist|Composer|Performer Album|Playlist)))
'(navi2ch-browse-url-browser-function (quote browse-url-firefox))
'(navi2ch-display-splash-screen nil)
'(navi2ch-list-moved-board-alist (quote (("http://mamono.2ch.net/ihou/" . "http://hideyoshi.2ch.net/ihou/"))))
'(tramp-default-method "sshx")
'(uniquify-buffer-name-style (quote forward) nil (uniquify))
'(uniquify-trailing-separator-p t)
+ '(vc-cvs-stay-local nil)
'(w3m-bookmark-file-coding-system (quote utf-8))
'(w3m-coding-system (quote utf-8))
'(w3m-coding-system-priority-list (quote (utf-8)))