Re: [O] Functions in SBE blocks

[Viktor Rosenfeld]

Hi Nick,

Nick Dokos wrote:

> Viktor Rosenfeld <address@hidden> wrote:
> 
> > Hi,
> > 
> > I can't get SBE blocks called from a table to work, if they use
> > functions like org-parse-time-string.
> > 
> > Suppose I have the following table:
> > 
> > | Start            | Ende             | |
> > |------------------+------------------+-|
> > | [2011-06-29 Wed] | [2012-02-29 Wed] | |
> > #+TBLFM: $3='(sbe "billable-month" (start $1) (end $2))
> > 
> > and the following source block:
> > 
> > #+NAME: billable-month(start="[2011-06-29 Wed]", end="[2012-02-29 Wed]")
> > #+BEGIN_SRC emacs-lisp
> > (let* ((start-date start))
> >    (message "%s" start-date))
> > #+END_SRC
> > 
> > If I evaluate the table, the start date is put into the last column.
> > However, if I change the code to the following:
> > 
> > #+NAME: billable-month(start="[2011-06-29 Wed]", end="[2012-02-29 Wed]")
> > #+BEGIN_SRC emacs-lisp
> > (let* ((start-date (org-parse-time-string start)))
> >    (message "%s" (nth 4 start-date)))
> > #+END_SRC
> > 
> > then the string #ERROR is inserted into the table. Evaluating the source
> > block directly yields the correct result.
> > 
> > What's going on here?
> > 
> 
> Finicky type matching: if you evaluate the second code block in the buffer 
> with
> 
>    ESC ESC : (sbe "billable-month" (start "[2011-06-29 Wed]") (end  
> "[2012-02-29 Wed]")) RET
> 
> you get a backtrace similar to this:
> 
> ,----
> | Debugger entered--Lisp error: (wrong-type-argument stringp [2011-06-29 Wed])
> |   
> string-match("\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\( 
> +[^]+0-9>
> \n -]+\\)?\\( +\\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)" [2011-06-29 
> Wed])
> |   (if (string-match org-ts-regexp0 s) (list 0 (if (or (match-beginning 8) 
> (not nodefault)) (string-to-number (or (match-string 8 s) "0"))) (if (or 
> (match-beginning 7) (not nodefault)) (string-to-number (or (match-string 7 s) 
> "0"))) (string-to-number (match-string 4 s)) (string-to-number (match-string 
> 3 s)) (string-to-number (match-string 2 s)) nil nil nil) (error "Not a 
> standard Org-mode time string: %s" s))
> |   org-parse-time-string([2011-06-29 Wed])
> |   (let* ((start-date (org-parse-time-string start))) (format "%d" (nth 4 
> start-date)))
> |   ...
> `----
> 
> Somewhere, the string becomes not a string. Try modifying the block to this:
> 
> #+BEGIN_SRC emacs-lisp
> (let* ((start-date (org-parse-time-string (format "%s" start))))
>    (message "%s" (nth 4 start-date)))
> #+END_SRC
> 
> Nick

Thanks, that does the trick. The double ESC evaluation is helpful, too.

Cheers,
Viktor