[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:01642] Re: カレンダのフォーマット



From: KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx> さん曰く
Subject: [mhc:01641] Re: カレンダのフォーマット
Message-ID: <20020919.190845.74742503.hide@xxxxxxxx>
Date: Thu, 19 Sep 2002 19:08:45 +0900 (JST)

鯉江>   | mhc-calendar の方は
鯉江>   | mhc-calendar-language => 'english or 'japanese
鯉江>   | で表示を切り変えます。

鯉江> ぜひmhc-summary-languageもおねがいします。

完全にぼくの趣味でいいならやりますけども。
以下を英語/ASCII にすると何になるでしょうか?

(defcustom mhc-todo-string-remaining-day "(あと %d 日)"
(defcustom mhc-todo-string-deadline-day "(〆切日)"
(defcustom mhc-todo-string-excess-day "(%d 日超過)"
(defcustom mhc-todo-string-done "■"
(defcustom mhc-todo-string-not-done "□"


P.S.
なんでわざわざ全角スペースを作っているのだろうか?私。

    (setq mhc-tmp-zenkazu-spc (char-to-string 53409))

    (defun mhc-summary/line-day-of-week-ja-string ()
      (if mhc-tmp-first
	  (aref ["日" "月" "火" "水" "木" "金" "土"]
		(mhc-day-day-of-week mhc-tmp-dayinfo))
	mhc-tmp-zenkazu-spc))

    (eval-after-load "mhc-summary"
      '(setq mhc-summary-line-format-alist
	     (append
	      '((?W (mhc-summary/line-day-of-week-ja-string)
                <<....>
		(?年 (if mhc-tmp-first "年" mhc-tmp-zenkazu-spc)
		     'face mhc-tmp-day-face)


-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)