[cgreek:00049] Re: Today's version of tlgutil

[Robin Smith <rasmith@xxxxxxxxxxxxxxxxxx>]

>>>>> "Shinsuke" == Shinsuke Kawazoe <skawazoe@xxxxxxxxxxxxxxxxx> writes:

    >> just after tlg-works, type C-x C-e).  You should get a message
    >> that runs off your message window, beginning something like
    >> this: (("001" (file . [lots of other stuff follows, depending
    >> on the buffer]

    Shinsuke> I had this message in minibuffer.

That means Meadow is receiving and evaluating the lisp code generated
by tlgidt2emacs.  You can probe this further to see what the 
values are.  Try for instance evaluating expressions such as these
in the buffer:
     (assoc "001" tlg-works)
(or choose any other string for a work: "023", etc.).
This should return a list ("001 (file . "tlg0086.txt") (work . "001").....
If that works, then you can further probe the contents of the
alist for the work with 
     (assoc 'title (cdr (assoc "001" tlg-works)))
     (assoc 'author (cdr (assoc "001" tlg-works)))
and various other values.  These should return alist elements,
i.e. pairs such as (author . &1Aristoteles et corpus aristoteli........)
Title and author strings will appear as untranslated beta code
(which is what they should, here).  

If that's working, then something must be going wrong here in
tlg-find-idt-file.  
     .
     .
    (eval-buffer)    ;;Seems to be working correctly
    (erase-buffer)   ;;This too: the buffer is blank

So, try changing the mapcar that comes next to this:

    (insert (format "Works list for %s\n   Type M-f to open the work on a line\n " 
		    tlg-author)
    (mapcar (lambda (w) 
	      (insert 
	       (format "\n%s  %s" 
		       (car w) 
		       (cdr (assoc 'title w))
		       )
	       )
	      ) tlg-works)

If that works, we're getting somewhere.