A small follow up which includes the auto schedule of the new org item:-

,----
| (defvar rgr/learn-first-lesson 1) ; when to schedule first reminder
| 
| (defun rgr/context-babel( &optional usedef )
|   (interactive)
|   (let* ((default (region-or-word-at-point)))
|     (setq default (read-string (format "Translate \"%s\" :" default) nil nil 
default))
|     (when (length default)
|       (setq rgr/trans-word (babel default nil usedef))
|       (setq rgr/orig-word default)
|       (if current-prefix-arg 
|         (progn
|           (org-remember nil ?v)
|           (org-schedule nil (time-add (current-time) (days-to-time 
rgr/learn-first-lesson)))))
|       (rgr/notify rgr/trans-word)
|       (message "%s" rgr/trans-word))))
`----

Any other updates will just silently make their way into my published
files.





_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to