To reply to myself, while not really the answer, assuming you are using
Firefox then Firebug allows editing the HTML in Firefox before printing. Not
sure I want to manually edit the diary every time I print it out, but it is
a sort of solution and possibly saves some steps if you are printing via
HTML.
Graham
On 20/01/07, Graham Smith <[EMAIL PROTECTED]> wrote:
I am using the fancy diary script from the Diary wiki to create a diary
page that I send to Firefox for printing.
I have changed the script to print out 90 days, and wondered if it would
be possible to add to this script some code to draw a horizontal line to
separate the months, and if anyone could tell me what this script should be.
eg desired output
------------------------------------------------------------------------------------------------------------------------------
Monday, 22 January 2007
0900 Invigilation NE.101 (GE2001)
Tuesday, 23 January 2007
0900 Invigilation UT.112 (FS2006)
Friday, 26 January 2007
1100h Doug Fletcher Ecological assessment resit
----------------------------------------------------------------------------------------------------------------------------------
Tuesday, 3rd February 2007
A test entry
--------------------------------------------------------------------------------------------------------------------------------------
Thursday, 1 March 2007
1400h Dentist
Thursday, 15 March 2007
1030h Dentist
------------------------------------------------------------------------------------------------------------------------------------------
The current .emacs file has the following
;;;;;;Diary Setup;;;;
(setq european-calendar-style 't) ;;use European date format
(setq view-diary-entries-initially t
mark-diary-entries-in-calendar t
number-of-diary-entries 90)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)
(add-hook 'fancy-diary-display-mode-hook
'(lambda ()
(alt-clean-equal-signs)))
(defun alt-clean-equal-signs ()
"This function makes lines of = signs invisible."
(goto-char (point-min))
(let ((state buffer-read-only))
(when state (setq buffer-read-only nil))
(while (not (eobp))
(search-forward-regexp "^=+$" nil 'move)
(add-text-properties (match-beginning 0)
(match-end 0)
'(invisible t)))
(when state (setq buffer-read-only t))))
(add-hook 'list-diary-entries-hook 'sort-diary-entries t) ;;sort diary
entries
Many thanks,
Graham
