[emacs-wiki-discuss] Fix for planner-report-generate for planner-muse

[Seth Falcon]

Hi again,

planner-report-generate currently creates a new status report file
without an extension.  With the new default settings in muse, you
don't get the highlighting you expect.

Here's a patch to planner-report-generate to add the
muse-file-extension if it is set.

--- planner-report.el.orig      2005-11-05 22:20:06.000000000 -0800
+++ planner-report.el   2005-11-05 22:20:17.000000000 -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)

OT: Style-wise how does one decide on let*, as above, vs setq in the
body of the let?

+ seth