[emacs-wiki-discuss] Day Page Layout

[Paul D. Kraus]

For some reason my diary entries are getting stuck at the top of the 
screen even though I have the template set to have them after the tasks.

(setq planner-day-page-template
     "* Tasks\n\n\n* Schedule\n\n\n* Diary\n\n\n* Notes")

Is there a way to have schedule removed from my day page and replaced 
with diary or better yet have the diary heading removed and have my 
diary/cyclic diary entries listed under the schedule heading?

Paul

Sample of incorrectly formatted page. This is from a page that was not 
previously created.
M-x planner-goto-tomorrow was used and generated. I then killed buffer 
so it would not be saved.
-------------------------------------------
* Diary

Friday, July 8, 2005
--------------------
08:30 - 09:30 Collections Meeting AP Replacement, Bev

* Tasks

#A   _ Fix AP Terms Code Listing (TaskPool)
#A   _ [272] Month End - Vendor Purchases Report - See example in month 
end folder (TaskPool)
#A   _ Enter 401K Contributions from 2005.07.07
#A   _ Send Sales Report from 2005.07.07

* Schedule


* Notes
---------


Entire Emacs Config
----------------------
;; Add the directories to your load path
(add-to-list 'load-path "C:/emacs-21.3/lisp/emacs-wiki")
(add-to-list 'load-path "C:/emacs-21.3/lisp/planner")
(add-to-list 'load-path "C:/emacs-21.3/lisp/remember")

;; Load planner
(require 'planner)
(require 'remember-planner)
(require 'planner-cyclic)
(require 'planner-diary)
(require 'planner-deadline)
(setq planner-day-page-template
     "* Tasks\n\n\n* Schedule\n\n\n* Diary\n\n\n* Notes")

(add-hook 'diary-display-hook 'fancy-diary-display)
(setq planner-diary-use-diary t)
(planner-diary-insinuate)
(setq remember-handler-functions '(remember-planner-append))
(setq remember-annotation-functions planner-annotation-functions)
(setq planner-cyclic-diary-nag nil)
(setq mark-diary-entries-in-calendar t)
(setq mark-holidays-in-calendar t)
(setq planner-diary-number-of-days 5)
(setq printer-name "//smartconnect/hp9000")
;(custom-set-faces)
(require 'color-theme)
(color-theme-comidia)

(define-key planner-mode-map (kbd "C-c C-n") 'planner-create-note-from-task)
(define-key planner-mode-map (kbd "C-c C-e") 'planner-edit-task-description)
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'comment-region)
(global-set-key [f3] 'uncomment-region)
(global-set-key [f9] 'planner-goto-today)
(global-set-key [f10] 'pkraus-planner-save)

(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 )
(setq-default ispell-program-name "aspell")
(display-time)

;; Use cperl-mode instead of the default perl-mode
(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))

;; Custom Settings for cperl-mode
(add-hook 'cperl-mode-hook 'n-cperl-mode-hook t)
(defun n-cperl-mode-hook ()
 (setq cperl-indent-level 4)
 (setq cperl-extra-newline-before-brace t)
 )

(plan)
(calendar)
(custom-set-variables
 ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
 ;; Your init file should contain only one such instance.
'(case-fold-search t)
'(current-language-environment "Latin-1")
'(default-input-method "latin-1-prefix")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(truncate-lines t))
(custom-set-faces
 ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
 ;; Your init file should contain only one such instance.
'(cperl-array-face ((t (:foreground "yellow" :weight bold))))
'(cperl-hash-face ((t (:foreground "Red" :weight bold))))
'(planner-delegated-task-face ((t (:background "red4" :foreground 
"gray" :inverse-video nil :underline nil)))))

(fset 'pkraus-planner-save
  [?\M-x ?p ?l ?a ?n ?n ?e ?r ?- ?s ?o ?r ?t ?- ?t ?a ?s ?k ?s ?\C-m 
?\M-x ?p ?l ?a ?n ?n ?e ?r ?- ?d ?e ?a ?d ?l ?i ?n ?e ?- ?u ?p ?d ?a ?t 
?e ?\C-m])