From 4afd29cef37d6db97a5368321a535c881b62fad6 Mon Sep 17 00:00:00 2001 From: PHO Date: Fri, 25 Sep 2009 11:08:12 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 9 ++++++--- dot-files/_navi2ch/init | 7 +++++++ 2 files changed, 13 insertions(+), 3 deletions(-) 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 () -- 2.40.0