Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

I'm writing an elisp script which will load another file in the same
directory as this elisp script itself. The currently used command is
as follows:

(load-file (expand-file-name
"~/Public/repo/github.com/DvdMgr/screen2latex.el.git/auth.el.gpg"))

I want to construct the loaded file's path with the directory of the
elisp script itself, and I tried with the following but failed to do
the trick:

(load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))

Any hints/comments/suggestions for this problem?

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Óscar Fuentes]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

> I'm writing an elisp script which will load another file in the same
> directory as this elisp script itself. The currently used command is
> as follows:
>
> (load-file (expand-file-name
> "~/Public/repo/github.com/DvdMgr/screen2latex.el.git/auth.el.gpg"))
>
> I want to construct the loaded file's path with the directory of the
> elisp script itself, and I tried with the following but failed to do
> the trick:
>
> (load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))
>
> Any hints/comments/suggestions for this problem?

How do you know that it failed? Do you know for sure that the problem is
related to the line of code shown above? Is auth.el.gpg a valid Elisp
file?

BTW, the correct method for concatenating a directory and a file name is

(load-file
  (concat
    (file-name-as-directory (file-name-directory load-file-name))
    "auth.el.gpg"))

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

On Thu, Jun 10, 2021 at 11:24 PM Óscar Fuentes <ofv@wanadoo.es> wrote:
>
> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
>
> > I'm writing an elisp script which will load another file in the same
> > directory as this elisp script itself. The currently used command is
> > as follows:
> >
> > (load-file (expand-file-name
> > "~/Public/repo/github.com/DvdMgr/screen2latex.el.git/auth.el.gpg"))
> >
> > I want to construct the loaded file's path with the directory of the
> > elisp script itself, and I tried with the following but failed to do
> > the trick:
> >
> > (load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))
> >
> > Any hints/comments/suggestions for this problem?
>
> How do you know that it failed? Do you know for sure that the problem is
> related to the line of code shown above? Is auth.el.gpg a valid Elisp
> file?

Yes.

>
> BTW, the correct method for concatenating a directory and a file name is
>
> (load-file
>   (concat
>     (file-name-as-directory (file-name-directory load-file-name))
>     "auth.el.gpg"))

I tried you above code, it still doesn't work with the following info:

file-name-as-directory: Wrong type argument: stringp, nil [2 times]
Mark set

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Óscar Fuentes]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

>> BTW, the correct method for concatenating a directory and a file name is
>>
>> (load-file
>>   (concat
>>     (file-name-as-directory (file-name-directory load-file-name))
>>     "auth.el.gpg"))
>
> I tried you above code, it still doesn't work with the following info:
>
> file-name-as-directory: Wrong type argument: stringp, nil [2 times]
> Mark set

load-file-name is defined while the file is being loaded, after that it
is nil. So if you tried with `C-x C-e' or some other interactive command
it wont work.

Once the code above is in the correct file, save it, start Emacs and
report back what happens.

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

On Thu, Jun 10, 2021 at 11:40 PM Óscar Fuentes <ofv@wanadoo.es> wrote:
>
> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
>
> >> BTW, the correct method for concatenating a directory and a file name is
> >>
> >> (load-file
> >>   (concat
> >>     (file-name-as-directory (file-name-directory load-file-name))
> >>     "auth.el.gpg"))
> >
> > I tried you above code, it still doesn't work with the following info:
> >
> > file-name-as-directory: Wrong type argument: stringp, nil [2 times]
> > Mark set
>
> load-file-name is defined while the file is being loaded, after that it
> is nil. So if you tried with `C-x C-e' or some other interactive command
> it wont work.
>
> Once the code above is in the correct file, save it, start Emacs and
> report back what happens.

See my current usage on
<https://github.com/hongyi-zhao/screen2latex.el/blob/bd820184a29158c14de1afaf564f9e2898dd88ac/screen2latex.el#L45>
according to the instructions here.

After I start Emacs and tried with `M-x screenlatex RET', I will see
the following info in *Messages* buffer:

expand-file-name: Wrong type argument: stringp, nil

The expected behavior is that with the above command, the encrypted
token file, i.e., "auth.el.gpg" will be loaded and the decrypted text
will be inserted in the buffer. Finally, the screen capture action
will be triggered, as happens when I use the following absolute path
shown at <https://github.com/hongyi-zhao/screen2latex.el/blob/bd820184a29158c14de1afaf564f9e2898dd88ac/screen2latex.el#L43>:

(load-file (expand-file-name
"~/Public/repo/github.com/hongyi-zhao/screen2latex.el.git/auth.el.gpg"))

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Óscar Fuentes]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

> On Thu, Jun 10, 2021 at 11:40 PM Óscar Fuentes <ofv@wanadoo.es> wrote:
>>
>> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
>>
>> >> BTW, the correct method for concatenating a directory and a file name is
>> >>
>> >> (load-file
>> >>   (concat
>> >>     (file-name-as-directory (file-name-directory load-file-name))
>> >>     "auth.el.gpg"))
>> >
>> > I tried you above code, it still doesn't work with the following info:
>> >
>> > file-name-as-directory: Wrong type argument: stringp, nil [2 times]
>> > Mark set
>>
>> load-file-name is defined while the file is being loaded, after that it
>> is nil. So if you tried with `C-x C-e' or some other interactive command
>> it wont work.
>>
>> Once the code above is in the correct file, save it, start Emacs and
>> report back what happens.
>
> See my current usage on
> <https://github.com/hongyi-zhao/screen2latex.el/blob/bd820184a29158c14de1afaf564f9e2898dd88ac/screen2latex.el#L45>
> according to the instructions here.
>
> After I start Emacs and tried with `M-x screenlatex RET', I will see
> the following info in *Messages* buffer:
>
> expand-file-name: Wrong type argument: stringp, nil

As explained previously, load-file-name is only defined when the file is
being loaded, otherwise it is nil.

You can put the directory name on a variable at load time and use that
variable on your command:

(setq my-directory (file-name-directory load-file-name)

(defun screen2latex ()
...
  (load-file (expand-file-name "auth.el.gpg" my-directory))

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

On Fri, Jun 11, 2021 at 9:15 AM Óscar Fuentes <ofv@wanadoo.es> wrote:
>
> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
>
> > On Thu, Jun 10, 2021 at 11:40 PM Óscar Fuentes <ofv@wanadoo.es> wrote:
> >>
> >> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
> >>
> >> >> BTW, the correct method for concatenating a directory and a file name is
> >> >>
> >> >> (load-file
> >> >>   (concat
> >> >>     (file-name-as-directory (file-name-directory load-file-name))
> >> >>     "auth.el.gpg"))
> >> >
> >> > I tried you above code, it still doesn't work with the following info:
> >> >
> >> > file-name-as-directory: Wrong type argument: stringp, nil [2 times]
> >> > Mark set
> >>
> >> load-file-name is defined while the file is being loaded, after that it
> >> is nil. So if you tried with `C-x C-e' or some other interactive command
> >> it wont work.
> >>
> >> Once the code above is in the correct file, save it, start Emacs and
> >> report back what happens.
> >
> > See my current usage on
> > <https://github.com/hongyi-zhao/screen2latex.el/blob/bd820184a29158c14de1afaf564f9e2898dd88ac/screen2latex.el#L45>
> > according to the instructions here.
> >
> > After I start Emacs and tried with `M-x screenlatex RET', I will see
> > the following info in *Messages* buffer:
> >
> > expand-file-name: Wrong type argument: stringp, nil
>
> As explained previously, load-file-name is only defined when the file is
> being loaded, otherwise it is nil.
>
> You can put the directory name on a variable at load time and use that
> variable on your command:
>
> (setq my-directory (file-name-directory load-file-name)

It really does the trick. Thank you for pointing this out. BTW, It should be:

 (setq my-directory (file-name-directory load-file-name))

What about the following according to the tutorial at
<http://ergoemacs.org/emacs/elisp_relative_path.html>?:

(setq my-directory (file-name-directory (or load-file-name buffer-file-name)))

>
> (defun screen2latex ()
> ...
>   (load-file (expand-file-name "auth.el.gpg" my-directory))
>
>

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Óscar Fuentes]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

> It really does the trick. Thank you for pointing this out. BTW, It should be:
>
>  (setq my-directory (file-name-directory load-file-name))
>
> What about the following according to the tutorial at
> <http://ergoemacs.org/emacs/elisp_relative_path.html>?:
>
> (setq my-directory (file-name-directory (or load-file-name buffer-file-name)))

In general, that's incorrect. See the docsstring of buffer-file-name,
where it is explained that the value of that variable depends on the
current buffer, it is not related at all to the file that contains the
Lisp code being executed.

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

On Fri, Jun 11, 2021 at 9:50 PM Óscar Fuentes <ofv@wanadoo.es> wrote:
>
> Hongyi Zhao <hongyi.zhao@gmail.com> writes:
>
> > It really does the trick. Thank you for pointing this out. BTW, It should be:
> >
> >  (setq my-directory (file-name-directory load-file-name))
> >
> > What about the following according to the tutorial at
> > <http://ergoemacs.org/emacs/elisp_relative_path.html>?:
> >
> > (setq my-directory (file-name-directory (or load-file-name buffer-file-name)))
>
> In general, that's incorrect. See the docsstring of buffer-file-name,
> where it is explained that the value of that variable depends on the
> current buffer, it is not related at all to the file that contains the
> Lisp code being executed.
>

Considering that the current execution method is loading the lisp code
for the script file, so it's not applicable to this scenario. But the
original explanation given by By Xah Lee [1] still seems reasonable:

To know the current file's full path, emacs has 2 ways:
`load-file-name' and `buffer-file-name'. If the file is loaded by
`load', then `load-file-name' works but `buffer-file-name' doesn't. If
the file is called by `eval-buffer', then `load-file-name' is nil. You
want to be able to get the current file's full path regardless the
file is run by `load' or interactively by `eval-buffer'."

[1] Refer <http://ergoemacs.org/emacs/elisp_relative_path.html> for
more detailed info.

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Eli Zaretskii]

> From: Hongyi Zhao <hongyi.zhao@gmail.com>
> Date: Thu, 10 Jun 2021 23:02:04 +0800
> 
> (load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))

Instead of 'concat', use 'expand-file-name'.

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Hongyi Zhao]

expand-file-name: Wrong type argument: stringp, nil

On Thu, Jun 10, 2021 at 11:34 PM Eli Zaretskii <eliz@gnu.org> wrote:
>
> > From: Hongyi Zhao <hongyi.zhao@gmail.com>
> > Date: Thu, 10 Jun 2021 23:02:04 +0800
> >
> > (load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))
>
> Instead of 'concat', use 'expand-file-name'.

I tried with the following:

(load-file (expand-file-name (file-name-directory load-file-name)
"/auth.el.gpg"))

But meet the same error as the suggested method by Óscar Fuentes:

expand-file-name: Wrong type argument: stringp, nil

Regards
-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
NO. 552 North Gangtie Road, Xingtai, China

Re: Refer to the directory of the currently being loaded elisp script from within the Emacs lisp file itself.

[Óscar Fuentes]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

> expand-file-name: Wrong type argument: stringp, nil
>
> On Thu, Jun 10, 2021 at 11:34 PM Eli Zaretskii <eliz@gnu.org> wrote:
>>
>> > From: Hongyi Zhao <hongyi.zhao@gmail.com>
>> > Date: Thu, 10 Jun 2021 23:02:04 +0800
>> >
>> > (load-file (concat (file-name-directory load-file-name) "/auth.el.gpg"))
>>
>> Instead of 'concat', use 'expand-file-name'.
>
> I tried with the following:
>
> (load-file (expand-file-name (file-name-directory load-file-name)
> "/auth.el.gpg"))
>
> But meet the same error as the suggested method by Óscar Fuentes:
>
> expand-file-name: Wrong type argument: stringp, nil

Eli is suggesting this:

(load-file (expand-file-name "auth.el.gpg"
                             (file-name-directory load-file-name)))