Re: [emacs-wiki-discuss] planner diary / Error when trying to add to day page.

[Paul D. Kraus]

Paul D. Kraus wrote:

> I have added these lines to my config file...
> (require 'planner-diary)
> (add-hook 'diary-display-hook 'fancy-diary-display)
>
> I then added this line below my Notes page for today(2005.06.15)
> <lisp>(planner-diary-entries-here)</lisp>
>
> as soon as I hit enter at the end of the line it says ...
> Preparing diary... ( in the minibuffer)
>
> I then get this in the *Warnings* buffer...
> (warning/warning) Error caught in `font-lock-pre-idle-hook': 
> (wrong-type-argument warning-level-p :warning)

Ok I have fixed the error. But lisp is no being evaluated in my day pages.

<lisp>(+ 2 2)</lisp>
does nothing it is just displayed as it is.

Ideas?


Paul

config file
----------
;; Add the directories to your load path
(add-to-list 'load-path "C:\Program 
Files\XEmacs\xemacs-packages\lisp\emacs-wiki")
(add-to-list 'load-path "C:\Program 
Files\XEmacs\xemacs-packages\lisp\planner")
(add-to-list 'load-path "C:\Program 
Files\XEmacs\xemacs-packages\lisp\remember")
(add-to-list 'load-path "C:\Program 
Files\XEmacs\xemacs-packages\lisp\mmm-mode-0.4.8")


;; Load MMM-Mode
(require 'mmm-auto)
(setq mmm-submode-decoration-level 0)

;; Load planner
(require 'planner)
(require 'remember-planner)
(setq remember-handler-functions '(remember-planner-append))
(setq remember-annotation-functions planner-annotation-functions)

(require 'planner-cyclic)
(setq planner-cyclic-diary-nag nil)

;; Planner Diary
(require 'planner-diary)
(add-hook 'diary-display-hook 'fancy-diary-display)
(setq planner-day-page-template
 "* Tasks\n\n\n* 
Diary\n\n<lisp>(planner-diary-entries-here)</lisp>\n\n* Notes")


;; Custome Variables
(custom-set-variables
'(paren-mode (quote paren) nil (paren))
'(ps-print-color-p nil)
'(scrollbars-visible-p t)
'(default-gutter-position (quote top))
'(modeline-3d-p nil)
'(font-lock-mode t nil (font-lock)))

;; Color Themes
(require 'color-theme)
(custom-set-faces)
(color-theme-arjen)



;; Key Mappings
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'comment-region)
(global-set-key [f3] 'uncomment-region)

(setq buffers-tab-filter-functions nil)
(setq inhibit-startup-message t)
(fset 'yes-or-no-p 'y-or-n-p)

(line-number-mode 1)
(setq column-number-mode t)
(set-default 'truncate-lines t)

(setq make-backup-files nil)
(setq display-time-day-and-date t )
(display-time)

(plan)