From b77698ed85ac7f5351e9c3b5ecaa3fc444b6bf90 Mon Sep 17 00:00:00 2001 From: PHO Date: Tue, 27 Jan 2015 23:25:53 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 27 +++++++++------------------ 1 file changed, 9 insertions(+), 18 deletions(-) diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index 26ee810..ea2605a 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -66,24 +66,15 @@ ;; 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 "さざなみゴシック")))))) ;; Hooks for newline-and-indent ------------------------------------------------ ;(mapcar (lambda (hook) -- 2.40.0