レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 5)

63 ：mami ：02/02/18 00:00

>>62
単に順番を変えるだけだと、
特定の板だけモナーフォントを使いたいときは
navi2ch-mona-enable は nil なんで困りますね。
現状だとフォントまわりの設定が済んだら
(require 'navi2ch-mona) してね、
になっちゃうのかな。
; うちの init.el で先に require してて、
; さっきまで2時間くらい悩んだです。

フォントサイズの指定ですが、
(setq navi2ch-mona-face-variable 'navi2ch-mona16-face)
よりも、下のパッチをあてて
(setq navi2ch-mona-font-height 16)
てな感じの方がわかりやすいんじゃないでしょうか。
どうでしょ? >users & developers

--- navi2ch-mona.el.orig Sun Feb 17 22:44:17 2002
+++ navi2ch-mona.el Sun Feb 17 23:40:53 2002
@@ -191,6 +191,14 @@
:initialize 'custom-initialize-default
:group 'navi2ch-mona)

+(defcustom navi2ch-mona-font-height nil
+ "*モナーフォントのサイズ数。
+nil だとデフォルトのフォントと同じサイズの face を自動選択。"
+ :type '(choice (const :tag "12 ドット" 12)
+ (const :tag "14 ドット" 14)
+ (const :tag "16 ドット" 16))
+ :group 'navi2ch-mona)
+
;; defun find-face for GNU Emacs
;; the code is originated from apel.
(if (and (not (featurep 'poe)) (not navi2ch-on-xemacs))
@@ -205,7 +213,9 @@
(defun navi2ch-mona-set-mona-face ()
(let ((parent navi2ch-mona-face-variable))
(when (eq t parent)
- (let* ((height (cond (navi2ch-on-xemacs
+ (let* ((height (cond (navi2ch-mona-font-height
+ navi2ch-mona-font-height)
+ (navi2ch-on-xemacs
(font-height (face-font 'default)))
(navi2ch-on-emacs21
(frame-char-height))))

read.cgi ver5.26+ (01/10/21-)