[cgreek:00026] Re: More tlg utilities

[Shinsuke Kawazoe <skawazoe@xxxxxxxxxxxxxxxxx>]

From: Robin Smith <rasmith@xxxxxxxxxxxxxxxxxx>
Subject: [cgreek:00025] Re: More tlg utilities 
Date: Sat, 22 Jul 2000 15:13:34 -0500

>     Shinsuke> 	2 elements left after parsing options: first
>     Shinsuke> i:/tlg/tlg0693.idt Filename changed to
>     Shinsuke> i:/tlg/tlg0693.idt lc_g2 changed to 243

> There are two other fixes
> possible.  First, you can make sure that tlgcites2emacs is always being
> called with my syntax instead of Takahashi's.  That requires changing
> these lines in cgreek-find-file-tlg-with-cites (my addition to
> Takahashi's code):
> 
>  (shell-command
>        (format "%s %s %d"     ;;;CHANGE THIS ONE
> 	       cgreek-tlg-cites-converter-program
> 	       filename
> 	       (charset-id 'cgreek))
>        t))
> 
> Change the format string from "%s %s %s" to:
>        "%s -f %s -l %d"

I tried this fix with success. Thanks a lot.
But even now I can't open correctly *Works in tlg0086* by M-w on *TLG
Author List*, i.e. the buffer *Works in tlg0086* doesn't provide the list
of Arisitole's works(I forgot to write about this trouble in the last
mail.)


>     Shinsuke> and the citations symbols found at the left of the
>     Shinsuke> buffer are utterly unreadable, though greek characters
>     Shinsuke> are correctly converted.


> (defun cgreek-find-file-tlg-with-cites (filename)
>   "Open file FILENAME encoded in the TLG format.
> Switch to a buffer visiting file FILENAME,
> creating one if non already exists."
>   (interactive "FFind file: ")
>   (let ((buf (generate-new-buffer (file-name-nondirectory filename))))
>     (set-buffer buf)
>     (toggle-enable-multibyte-characters)
>     (let ((coding-system-for-read 'no-conversion))
>       (shell-command
>        (format "%s -f %s -l %d"
> 	       cgreek-tlg-cites-converter-program
> 	       filename
> 	       (charset-id 'cgreek))
>        t))
>     (toggle-enable-multibyte-characters)
>     (goto-char (point-min))
>     (cgreek-tlg-replace-citation-strings)
>     (switch-to-buffer buf)))

I tried this way, but I found your tiny mistake in the above
defun description; i.e. (cgreek-tlg-replace-citation-string) must be
(tlg-replace-citation-string) which was the defined name of the
function.
Anyway, I could get correctly converted buffers with readable citation
strings by this replacement.

So on Meadow I don't have any other way to provide the greek texts with
citation than the direct M-x cgreek-find-file-tlg-with-cites.

Until now I've seen no problems while using Emacs-Lisp programms on
Meadow, but it might be hard to look for the complete compatibility
among Linux and DOS/Windows.

===============================================
 Shinsuke KAWAZOE 
  History of Medieval Philosophy,
  Graduate School of Letters, Kyoto University
  Yoshidahonmachi, Sakyoku,
  Kyoto  606-8501 JAPAN
   phone/fax:+81-(0)75-753-2855
   skawazoe@xxxxxxxxxxxxxxxxx
===============================================