From mboxrd@z Thu Jan 1 00:00:00 1970 From: Richard Riley Subject: Re: Using org-learn and babel to learn foreign words Date: Tue, 27 Oct 2009 13:58:36 +0100 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N2ldy-00041y-7Y for emacs-orgmode@gnu.org; Tue, 27 Oct 2009 08:59:22 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N2lds-0003yQ-Ck for emacs-orgmode@gnu.org; Tue, 27 Oct 2009 08:59:20 -0400 Received: from [199.232.76.173] (port=46035 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N2lds-0003yF-3h for emacs-orgmode@gnu.org; Tue, 27 Oct 2009 08:59:16 -0400 Received: from lo.gmane.org ([80.91.229.12]:60176) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N2ldr-0000rg-0k for emacs-orgmode@gnu.org; Tue, 27 Oct 2009 08:59:15 -0400 Received: from list by lo.gmane.org with local (Exim 4.50) id 1N2lde-0007zx-Hd for emacs-orgmode@gnu.org; Tue, 27 Oct 2009 13:59:02 +0100 Received: from 85.183.18.158 ([85.183.18.158]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Oct 2009 13:59:02 +0100 Received: from rileyrgdev by 85.183.18.158 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Oct 2009 13:59:02 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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.