From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Re: What sport should I practice today, random TODO generator: bugfixing help requested Date: Wed, 28 Dec 2011 07:56:56 +0100 Message-ID: <80obuttc93.fsf@somewhere.org> References: <819AF3F5-81D1-45C8-AD5D-3E2E995E1E85@franz.sommerp.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hi Franz, Franz Sommer wrote: > I have a small lisp code block evaluation problem generating org-mode style output. > Motivation and so on, see below. > > Would appreciate the communities help. > Gladly will return feedback once my setup has advanced and you are interested. > > Tks in advance, Franz > > > ======= > = Goal:= > ======= > Hava a random (weekly) generator of activities and / or todo items. Think of > everyday question like sports (shall I go cycling , swimming or running) May > also be used for creativity teasers and any other kind of randomizable > decission making. > > > (see why here: > http://books.google.de/books?id=m5vQHbj2Vi0C&pg=PA71&dq=o+reilly+mind+hack+random&hl=de&sa=X&ei=4TH5Tv3lOcStsgaZ3dzgDw&ved=0CEMQ6AEwAg#v=onepage&q=o%20reilly%20mind%20hack%20random&f=false > ) > > ================================= > = Current Stage / Actual Debug Problem = > ================================= > I like to get > ** TODO running > and not > | ** TODO running :random: | > > What is wrong with my approach ? > (Yes I am new to lisp, but I hope that does not matter here to much. ) > > ======= > =Code:= > ======= > > #+headers: :results value varbatim replace ^ verbatim or scalar > #+begin_src emacs-lisp > (defun table '()) > (add-to-list 'table "** TODO running :random:") ;; later on some scheduling and tracking properties will be added > (add-to-list 'table "** TODO cycling :random:") > > (setq returnlist '() ) > > ;;later a loop shall be here to say make list of 5 items ) > > (add-to-list 'returnlist (nth (random (length table)) table))) > > (returnlist) > #+end_src > > #+results: > | ** TODO Cereals :random: | Also, please note that, in order to be effectively replaced, your results should maybe be wrapped in a =begin_result= block. See `:results wrap' for this. Best regards, Seb -- Sebastien Vauban