[mhc:01743] Re: mhc-calendar がはみだす

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From:  Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx> 曰く
Subject: [mhc:01742] Re: mhc-calendar がはみだす
Message-ID: <20030120.180439.32231487.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Mon, 20 Jan 2003 18:04:39 +0900 (JST)

白井> 1 にする => 惜しい、ちょっと入らない。
白井> 0 にする => いろいろと破綻する ^^;

白井> となります。なにをどうやっているのかすっかり忘れているので、気長
白井> にお待ち下さいませ。

なにか見落としているかもしれないので commit はしていませんが、こ
んなものでどうでしょうか。しかし、力ずくだ。。。

鯉江さんの環境でも
(setq mhc-calendar-start-column 0)
でジャスト 80桁に収まると思います。

# ついでにバグも見つけてしまった。

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

Index: mhc-calendar.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-calendar.el,v
retrieving revision 1.36
diff -c -r1.36 mhc-calendar.el
*** mhc-calendar.el	2002/12/01 03:55:06	1.36
--- mhc-calendar.el	2003/01/20 10:22:00
***************
*** 616,622 ****
      (goto-char (point-max))
      (insert "\n")
      (mhc-summary/insert-separator nil nil
! 				  (* mhc-calendar-next-offset 3))
      (mhc-summary-make-contents date date 'mhc-calendar)
      (delete-char -1)
      (set-buffer-modified-p nil)))
--- 616,623 ----
      (goto-char (point-max))
      (insert "\n")
      (mhc-summary/insert-separator nil nil
! 				  (min (1- (window-width))
! 				       (* mhc-calendar-next-offset 3)))
      (mhc-summary-make-contents date date 'mhc-calendar)
      (delete-char -1)
      (set-buffer-modified-p nil)))
***************
*** 668,676 ****
      (while (> i 0)
        (goto-char (point-min))
        (mhc-misc-move-to-column col)
!       (mhc-misc-insert-rectangle (mhc-calendar/make-rectangle caldate "|"))
        (setq caldate (mhc-date-mm+ caldate 1))
!       (setq col (+ col mhc-calendar-next-offset))
        (setq i (1- i)))
      (goto-char (point-min))
      (while (re-search-forward prefix nil t)
--- 669,678 ----
      (while (> i 0)
        (goto-char (point-min))
        (mhc-misc-move-to-column col)
!       (mhc-misc-insert-rectangle
!        (mhc-calendar/make-rectangle caldate (if (= i 3) "" "|")))
        (setq caldate (mhc-date-mm+ caldate 1))
!       (setq col (- (+ col mhc-calendar-next-offset) (if (= i 3) 1 0)))
        (setq i (1- i)))
      (goto-char (point-min))
      (while (re-search-forward prefix nil t)
***************
*** 688,694 ****
        (let ((cdate (mhc-date-let mhc-calendar-date (mhc-date-new yy mm 1)))
  	    beg end yymm dd)
  	(goto-char (point-min))
! 	(while (re-search-forward "\\([ 123][0-9]\\)[ \n]" nil 'end)
  	  (setq beg (match-beginning 1) end (match-end 1))
  	  (setq dd (1- (string-to-number (buffer-substring beg end))))
  	  (goto-char end)
--- 690,696 ----
        (let ((cdate (mhc-date-let mhc-calendar-date (mhc-date-new yy mm 1)))
  	    beg end yymm dd)
  	(goto-char (point-min))
! 	(while (re-search-forward " \\([ 123][0-9]\\)[ \n]" nil 'end)
  	  (setq beg (match-beginning 1) end (match-end 1))
  	  (setq dd (1- (string-to-number (buffer-substring beg end))))
  	  (goto-char end)