Re: emacs diary/calendar insert day (i-d)

[Alan Shutko]

Matthias Meulien <meulien@club.lemonde.fr> writes:

> Note that it sometime places an empty line at the top of the file, so
> it is impossible to specify local variables in the diary file...

Until that gets fixed (on my list), you can use this:

(defvar ats-diary-file-list 
  `(,(expand-file-name diary-file)
    ,(expand-file-name "~/Library/diary-historical")
    ,(expand-file-name "~/Library/diary-anniversaries"))
  "List of diary files.")

(defun ats-fix-diary-top ()
  "Remove newlines at the top of the diary file when saving."
  (save-excursion
    (if (member buffer-file-name ats-diary-file-list)          
        (progn
          (goto-char (point-min))
          (if (re-search-forward "\\`\n+" nil t)
              (replace-match ""))))
    nil))

(add-hook 'write-file-hooks 'ats-fix-diary-top)


-- 
Alan Shutko <ats@acm.org> - In a variety of flavors!
Moron President Found. (A)bort (R)etry (S)hoot