[emacs-wiki-discuss] planner-report fixes/improvements (two patches)

[Seth Falcon]

Two patches for planner-report.  The first is a fix for using the
.muse extension if appropriate (I thought this was already applied,
but it seems not).  The second adds a feature to optionally not pretty
print the plan headers.

--- a/planner-report.el Fri Nov 25 12:53:34 2005 -0800
+++ b/planner-report.el Fri Nov 25 13:33:02 2005 -0800
@@ -132,7 +132,10 @@
            (planner-read-date "End date"))))
   (save-some-buffers nil (lambda () (planner-derived-mode-p 'planner-mode)))
   (cd (planner-directory))
-  (let ((filename (concat "StatusReport" end)))
+  (let* ((filename (concat "StatusReport" end))
+         (filename (if muse-file-extension
+                       (concat filename "." muse-file-extension)
+                     filename)))
     (with-temp-buffer
       (when planner-report-authz
         (require 'planner-authz)                


The following is an enhancement, I think.  Feel free to take it or
not.

--- a/planner-report.el Fri Nov 25 13:33:02 2005 -0800
+++ b/planner-report.el Fri Nov 25 13:39:14 2005 -0800
@@ -97,6 +97,12 @@
 will be similarly restricted."
   :group 'planner-report
   :type '(repeat string))
+
+(defcustom planner-report-pretty-print-plan-pages t
+  "Pretty print plan pages using muse-wiki-publish-pretty-title.
+If nil, leave page names as-is."
+  :group 'planner-report
+  :type 'boolean)
 
 (defcustom planner-report-remove-task-numbers t
   "Remove task numbers when generating status reports."
@@ -161,7 +167,8 @@
             ;; Insert a linked heading if we found anything
             (if (or notes tasks)
                 (insert "\n* [[" (caar pages) "]["
-                        (if (fboundp 'muse-wiki-publish-pretty-title)
+                        (if (and planner-report-pretty-print-plan-pages
+                                 (fboundp 'muse-wiki-publish-pretty-title))
                             (muse-wiki-publish-pretty-title (caar pages))
                           (caar pages))
                         "]]\n\n"))