using interactive for getting into a specific directory

using interactive for getting into a specific directory

[rustom]

I want to write an interactive function that finds an arbitrary file
from a specific directory "~/org"
The following attempts do not work but should give the idea what I am
trying.

(defun startorg(file)
  (interactive "FFile: ")
  (let ((default-directory "~/org"))
    (find-file file)
  ))

(defun startorg(file)
  (cd "~/org")
  (interactive "FFile: ")
  (find-file file)
)

The general problem can be stated as:
I want to write an interactive command -- here startorg -- whose
interactive actions -- here "F..." -- needs preprocessing with another
function -- here cd.

Re: using interactive for getting into a specific directory

[rustom]

What Ive done for now is this. Dont know if its the proper idiom

(defun startorg(file)
  (interactive
    (let ((default-directory "~/org/"))
       (list (call-interactively 'find-file))
    )))

Dont know how its working given that the parameter file is not used!

Re: using interactive for getting into a specific directory

[Johan Bockgård]

rustom <rustompmody@gmail.com> writes:

> I want to write an interactive function that finds an arbitrary file
> from a specific directory

(interactive (list (read-file-name ...)))


-- 
Johan Bockgård