From: PHO <pho@cielonegro.org>
Date: Fri, 25 Sep 2009 02:08:12 +0000 (+0900)
Subject: Auto commit by The Sugar System.
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=sugar.git;a=commitdiff_plain;h=4afd29cef37d6db97a5368321a535c881b62fad6

Auto commit by The Sugar System.
---

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 72426b0..8ea6989 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -32,6 +32,8 @@
 (setq ring-bell-function (lambda ()))
 (windmove-default-keybindings)
 
+(server-start)
+
 ;; Settings for Browser --------------------------------------------------------
 (setq browse-url-browser-function 'w3m-browse-url)
 (global-set-key "\C-xm" 'browse-url-at-point)
@@ -43,8 +45,9 @@
 
 ;; Setting for Frames ----------------------------------------------------------
 (when window-system
-  (set-default-font "Bitstream Vera Sans Mono 11")
-  (set-fontset-font (frame-parameter nil 'font)
+  (add-to-list 'default-frame-alist
+               '(font . "Bitstream Vera Sans Mono 11"))
+  (set-fontset-font nil;(frame-parameter nil 'font)
                     'japanese-jisx0208
                     '("Hiragino Kaku Gothic Pro W3" . "unicode-bmp")))
 
@@ -400,7 +403,7 @@
  '(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/"))))
- '(navi2ch-mona-face-variable (quote navi2ch-mona16-face))
+ '(navi2ch-mona-face-variable (quote navi2ch-mona12-face))
  '(navi2ch-mona-on-message-mode t)
  '(newsticker-html-renderer (quote w3m-region))
  '(newsticker-url-list nil)
diff --git a/dot-files/_navi2ch/init b/dot-files/_navi2ch/init
index b348439..5edb63f 100644
--- a/dot-files/_navi2ch/init
+++ b/dot-files/_navi2ch/init
@@ -20,6 +20,13 @@
 (setq navi2ch-oyster-id "pho@cielonegro.org")
 (setq navi2ch-oyster-password "gestalt")
 
+;; Emacs23 mona fonts
+(add-hook 'navi2ch-mona-setup-hook
+          (lambda ()
+            (set-face-attribute 'navi2ch-mona12-face nil :fontset "fontset-default" :font "Mona 12")
+            (set-face-attribute 'navi2ch-mona14-face nil :fontset "fontset-default" :font "Mona 14")
+            (set-face-attribute 'navi2ch-mona16-face nil :fontset "fontset-default" :font "Mona 16")))
+
 ;; others
 (add-hook 'navi2ch-before-startup-hook
 	  (lambda ()