264 |
|
|
265 |
;;; Code: |
;;; Code: |
266 |
|
|
267 |
|
(require 'time-stamp) |
268 |
|
|
269 |
|
|
270 |
;; User-configurable variables: |
;; User-configurable variables: |
271 |
|
|
272 |
(defgroup todo nil |
(defgroup todo nil |
375 |
:type 'string |
:type 'string |
376 |
:group 'todo) |
:group 'todo) |
377 |
|
|
|
(autoload 'time-stamp-string "time-stamp") |
|
|
|
|
378 |
(defun todo-entry-timestamp-initials () |
(defun todo-entry-timestamp-initials () |
379 |
"Prepend timestamp and your initials to the head of a TODO entry." |
"Prepend timestamp and your initials to the head of a TODO entry." |
380 |
(let ((time-stamp-format todo-time-string-format)) |
(let ((time-stamp-format todo-time-string-format)) |