Re: elisp: Text-based file-chooser

[Thierry Volpiatto <thierry.volpiatto@gmail.com>]

Hi Larry,

Larry Kohlman <nospam@nospam.invalid> writes:


> Thanks. Just to see how that functions I changed the code to:
>
>  (defun my-file-browser ()
>    (let ((fname (anything-c-read-file-name "AnyPrompt: ")))
>        (message "FILENAME: %s" name)))
>
> Calling that yields the following error message:
>
> anything-compute-matches: error when processing source: 
> Read file name (`C-.':Go to precedent level)

Indeed, thanks to report.

The problem is tramp that is not loaded.
If you do as following, things should work as expected:

emacs -Q

In scratch buffer, eval:

(add-to-list 'load-path "path/to/your/anything/files")
(require 'anything-config)
(require 'tramp)
(defun my-file-browser ()
  (let ((fname (anything-c-read-file-name "AnyPrompt: ")))
    (message "FILENAME: %s" name)))
(my-file-browser)


> Next I used the Anything menu (Anything->Find Files) to see if Anything
> would work when run normally. It did. On a hunch I tried the above code
> again and it also worked. Then I checked and found that Anything->Find
> Files doesn't even invoke anything-c-read-file-name. After that I exited
> Emacs and was able to repeat everything several times in a row.

Yes, because anything-find-files load tramp, but
anything-c-read-file-name doesn't.
I will fix it as soon as possible.

> Ah, well, mysterious things happen when you use functions that weren't
> intended for external use. I'll just mess around with this until it
> works.

What mysterious things?
Can you give examples?

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997