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"))
_______________________________________________
emacs-wiki-discuss mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
