[emacs-wiki-discuss] Patch to planner.el: Publish dates at top of index

[Chris Parsons]

Hi all

The following tiny patch introduces a new variable (defaulting to nil),
which when set to non-nil publishes the day page table at the top of the
planner index.

Perhaps this should be generalised further in the future, but at the
moment this was all I needed.

Chris

diff -c "c:/Program Files/emacs/site-lisp/planner/planner.el.orig" "c:/Program 
Files/emacs/site-lisp/planner/planner.el"
*** c:/Program Files/emacs/site-lisp/planner/planner.el.orig    Thu Feb 17 
10:39:42 2005
--- c:/Program Files/emacs/site-lisp/planner/planner.el Mon Mar  7 09:00:26 2005
***************
*** 417,422 ****
--- 417,427 ----
    :set 'planner-option-customized
    :group 'planner)
  
+ (defcustom planner-publish-dates-first nil
+   "Non-nil means put day pages at the top of the index."
+   :type 'boolean
+   :group 'planner)
+ 
  (defcustom planner-use-day-pages t
    "If non-nil, allow the use of day pages.
  You can set this to nil if you use plan pages exclusively and
***************
*** 2757,2762 ****
--- 2762,2768 ----
               "\n")))
          (setq files (cdr files)))
        (when dates
+                               (when planner-publish-dates-first (goto-char 
(point-min)))
          (insert "\n")
  ;;        (setq dates (nreverse dates))
          (while dates

Diff finished.  Mon Mar 07 09:00:48 2005

-- 
Chris Parsons
address@hidden