[emacs-wiki-discuss] [PATCH] remember-planner.el variables

[Hoan Ton-That]

Hello,

I have changed the defvars in remember-planner.el to defcustoms.
`remember-planner-timestamp', `remember-planner-append-hook' and
`remember-planner-page' are now customisable.  I hope this is useful.

--- remember-planner.el~        2004-06-30 15:46:55.000000000 -0500
+++ remember-planner.el 2004-06-30 21:14:50.000000000 -0500
@@ -52,9 +52,11 @@
   :type 'boolean
   :group 'remember)
 
-(defvar remember-planner-timestamp-format " %H:%M"
+(defcustom remember-planner-timestamp-format "%H:%M"
   "*Format of timestamp for remember entries.
-If you don't want timestamps, just set this to \"\".")
+If you don't want timestamps, just set this to \"\"."
+  :type 'string
+  :group 'remember)
 
 (defun remember-planner-append (&optional page)
   "Remember this text to PAGE or today's page.
@@ -80,21 +82,25 @@
         (save-buffer)))
     t))
 
-(defvar remember-planner-append-hook '(remember-planner-add-timestamp
-                                       remember-planner-add-xref)
+(defcustom remember-planner-append-hook '(remember-planner-add-timestamp
+                                         remember-planner-add-xref)
   "Functions to run after something has been appended to the planner day page.
-Buffer will be narrowed to the current note.")
+Buffer will be narrowed to the current note."
+  :type 'hook
+  :group 'remember)
 
 (defun remember-planner-add-timestamp ()
   "Add a timestamp to the current entry.
 This function can be added to `remember-planner-append-hook'."
   (goto-char (point-min))
   (goto-char (line-end-position))
-  (insert (format-time-string remember-planner-timestamp-format
+  (insert (format-time-string (concat " " remember-planner-timestamp-format)
                               (current-time))))
 
-(defvar remember-planner-page nil
-  "Planner page to save to by default.")
+(defcustom remember-planner-page nil
+  "Planner page to save to by default."
+  :type 'string
+  :group 'remember)
 
 (defun remember-planner-add-xref ()
   "Move the main text into a plan page.
@@ -121,8 +127,6 @@
           (goto-char (point-max)))
         (insert " ([[" plan-page "#" plan-number "]])")))))
 
-(defvar remember-planner-page nil "Default planner page.")
-
 (defun remember-planner-set-default-page ()
   "Set `remember-planner-page' if called from a plan page."
   (setq remember-planner-page