help-emacs-windows
[Top][All Lists]
Advanced

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

[h-e-w] Splitting fancy diary entries with horizontal line


From: Graham Smith
Subject: [h-e-w] Splitting fancy diary entries with horizontal line
Date: Sat, 20 Jan 2007 22:51:35 +0000

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]