[emacs-wiki-discuss] [patch #4603] Create variable to hold the name of the 'WelcomePage' instead of hardcoding that string.

[anonymous]

URL:
  <http://savannah.nongnu.org/patch/?func=detailitem&item_id=4603>

                 Summary: Create variable to hold the name of the
'WelcomePage' instead of hardcoding that string.
                 Project: emacs-wiki, planner, and related modules
            Submitted by: None
            Submitted on: Tue 11/08/05 at 00:14
                Category: None
                Priority: 5 - Normal
                  Status: None
                 Privacy: Public
             Assigned to: None
        Originator Email: address@hidden
             Open/Closed: Open

    _______________________________________________________

Details:

--- old/planner.el      2005-11-07 19:13:49.190359012 -0500
+++ new/planner.el      2005-11-07 19:14:00.788991059 -0500
@@ -437,6 +437,11 @@
   :type 'boolean
   :group 'planner)
 
+(defcustom planner-welcome-page-name "WelcomePage"
+  "The name of the default page when day pages are not used."
+  :type 'string
+  :group 'planner)
+
 (defcustom planner-mode-hook nil
   "A hook for Planner mode."
   :type 'hook
@@ -1230,7 +1235,7 @@
   "Return the filename of the current date."
   (if planner-use-day-pages
       (or planner-timewarp-date (planner-date-to-filename (decode-time
(current-time))))
-    "WelcomePage"))
+    planner-welcome-page-name))
 
 (defun planner-date-to-filename (date)
   "Return the planner filename corresponding to DATE.
@@ -3105,7 +3110,7 @@
             ;; Save/kill files if configured to do so
             (when planner-tasks-file-behavior
               (planner-save-buffers live-buffers))))
-    (planner-find-file "WelcomePage")))
+    (planner-find-file planner-welcome-page-name)))
 
 (defvar planner-goto-hook '(planner-seek-to-first)
   "Functions called after a planner page is opened.")





    _______________________________________________________

Carbon-Copy List:

CC Address                          | Comment
------------------------------------+-----------------------------
damned --AT-- theworld --DOT-- com  | Originator Email




    _______________________________________________________

Reply to this item at:

  <http://savannah.nongnu.org/patch/?func=detailitem&item_id=4603>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.nongnu.org/