[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] [PATCH] remember-planner.el variables
From: |
Hoan Ton-That |
Subject: |
[emacs-wiki-discuss] [PATCH] remember-planner.el variables |
Date: |
Wed, 30 Jun 2004 21:22:50 -0500 |
User-agent: |
Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [emacs-wiki-discuss] [PATCH] remember-planner.el variables,
Hoan Ton-That <=