November 19, 2004


November 19, 2004 - Categories: emacs
;; Improvements:
;; - Link back to the task?
;; - Make it possible to have your note on another page?
(defun sacha/planner-create-note-from-task ()
  "Create a note based on the current task."
  (let* ((task-info (planner-current-task-info))
    (when task-info
      (setq note-num (planner-create-note (planner-page-name)))
          (when (planner-find-task task-info)
             (concat (planner-task-description task-info) " "
                      (concat (planner-page-name) "#"
                              (number-to-string note-num))
      (insert (planner-task-description task-info) "\n\n"))))

;; I use F9 p to go to today's page, anyway.
(define-key planner-mode-map (kbd "C-c C-n") 'sacha/planner-create-note-from-task)