*** c:/Documents and Settings/jonathana/Local Settings/Temporary Internet Files/Content.Outlook/TP585W2O/org-learn (2).el	Sun Oct 25 15:51:03 2009
--- c:/Emacs/my-site-lisp/org-learn.el	Tue Oct 27 09:34:26 2009
***************
*** 157,163 ****
--- 175,196 ----
  	      ef of-matrix)))))

  

  (defun org-smart-reschedule (quality)

+   "Reschedule the item based on how well the user remembered it.

+ 

+ The QUALITY Scale works like this:
+ 
+ 0-2 Means you have forgotten the item.
+ 3-5 Means you have remembered the item.
+ 
+ 0 - Completely forgot. 
+ 1 - Even after seeing the answer, it still took a bit to sink in. 
+ 2 - After seeing the answer, you remembered it. 
+ 3 - It took you awhile, but you finally remembered.
+ 4 - After a little bit of thought you remembered.
+ 5 - You remembered the item really easily."
    (interactive "nHow well did you remember the information (on a scale of 0-5)? ")
+   (when (not (eq major-mode 'org-mode))
+ 	(error "You must be in org-mode to use this!"))
    (let* ((learn-str (org-entry-get (point) "LEARN_DATA"))
  	 (learn-data (or (and learn-str
  			      (read learn-str))
***************
*** 171,178 ****
      (org-entry-put (point) "LEARN_DATA" (prin1-to-string learn-data))
      (if (= 0 (nth 0 learn-data))
  	(org-schedule t)
!       (org-schedule nil (time-add (current-time)
! 				  (days-to-time (nth 0 learn-data)))))))
  
  (provide 'org-learn)
  
--- 204,213 ----
      (org-entry-put (point) "LEARN_DATA" (prin1-to-string learn-data))
      (if (= 0 (nth 0 learn-data))
  	(org-schedule t)
! 	(org-schedule nil (time-add (current-time)
! 				    (days-to-time (nth 0 learn-data)))))))
! 
! (defalias 'org-learn-reschedule 'org-smart-reschedule)
  
  (provide 'org-learn)