Auto commit by The Sugar System.

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 72426b0329f373cf6a8661e0010f9e0a90e71f46..8ea698980ffe17cf53849f96950df860e35c1346 100644 (file)
--- 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 b348439dcfb70392db444ad7b1aaba02aef729ba..5edb63f6d615d5e465ceaf54bd3133472cc3fd12 100644 (file)
--- 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 ()