Re: Get report on which files are loading

Re: Get report on which files are loading

[Kai Großjohann]

Harry Putnam <reader@newsguy.com> writes:

>  (defadvice load (before debug-log activate)
>   (message "(Tip from Kai G): Now loading: %s" (ad-get-arg 0)))

Instead of (ad-get-arg 0), say (locate-library (ad-get-arg 0)).  That
will give you the absolute filename.
-- 
This line is not blank.

Get report on which files are loading

[Harry Putnam]

Some time back I got a tip from Kai G. about how to tell which files are
being loaded:
I have this loaded from a special file ~/whats_loading.el
;; make loaded files give a message [from Kai]
 (defadvice load (before debug-log activate)
  (message "(Tip from Kai G): Now loading: %s" (ad-get-arg 0)))

It reports on some files but not on others.
For example it doesn't report when site-start.el is loaded even
though the defadvice is loaded first (from the command line)
  emacs -l ~/whats_loading.el

I have this in site-start.el to see when it loads:
 (message "finished loading => /usr/local/share/emacs/site-lisp/site-start.el") (sit-for 1)

I see in  *Messages* buffer, stuff that indicate what is loading like this:

  Loading whats_loading.el (source)...
  Loading advice...done
  Loading whats_loading.el (source)...done
  (Tip from Kai G): Now loading: ~/.emacs-custom
  Loading ~/.emacs-custom...done
  Loading skeleton...done

(NOTE the defadvice doesn't report site-start.el but the `message'
  shows so it has been read)  
  finished loading => /usr/local/share/emacs/site-lisp/site-start.el
  (Tip from Kai G): Now loading: ~/.emacs
  
  [...]

  (Tip from Kai G): Now loading: ~/.abbrev_defs
  Loading ~/.abbrev_defs...done
  (Tip from Kai G): Now loading: default
  (Tip from Kai G): Now loading: ~/.abbrev_defs
  [...]

I'd like to put something in that message line that allows emacs to
know what it has just read and from where.  Something like the `%s'
operator in the defadvice.  So that if for some reason site-start.el
is put somewhere else the accurate path and file name will still be
reported in *Messages* buffer.  Something like:
 (message "finished loading => SOMETHING TO REPORT PATH and FNAME") (sit-for 1)

I couldn't get it right as to where to put the `%s' or if it will even
fit in this line of code.

Re: Get report on which files are loading

[Harry Putnam]

Harry Putnam <reader@newsguy.com> writes:


> ;; make loaded files give a message [from Kai]
>  (defadvice load (before debug-log activate)
>   (message "(Tip from Kai G): Now loading: %s" (ad-get-arg 0)))
>
> It reports on some files but not on others.
> For example it doesn't report when site-start.el is loaded even
> though the defadvice is loaded first (from the command line)
>   emacs -l ~/whats_loading.el
>
> I have this in site-start.el to see when it loads:
>  (message "finished loading => /usr/local/share/emacs/site-lisp/site-start.el") (sit-for 1)
>
> I see in  *Messages* buffer, stuff that indicate what is loading like this:

[...]

> I'd like to put something in that message line that allows emacs to
> know what it has just read and from where.  Something like the `%s'
> operator in the defadvice.  So that if for some reason site-start.el
> is put somewhere else the accurate path and file name will still be
> reported in *Messages* buffer.  Something like:
>  (message "finished loading => SOMETHING TO REPORT PATH and FNAME") (sit-for 1)
>
> I couldn't get it right as to where to put the `%s' or if it will even
> fit in this line of code.

kai.grossjohann@gmx.net (Kai Großjohann) writes:

> Harry Putnam <reader@newsguy.com> writes:
>
>>  (defadvice load (before debug-log activate)
>>   (message "(Tip from Kai G): Now loading: %s" (ad-get-arg 0)))
>
> Instead of (ad-get-arg 0), say (locate-library (ad-get-arg 0)).  That
> will give you the absolute filename.

 (defadvice load (before debug-log activate)
(message "(Tip from Kai G): Now loading: %s" (locate-library (ad-get-arg 0))))

Well, that gives absolute file names alright but I think I must have
confused the issue in my previous post.  The defadvice DOES NOT
report the loading of site-start.el even when the defadvice is
preloaded from the command line with
  emacs -l whats_loading.el

I don't understand why.  But to compensate for that lack of report I
put this at the end of site-start.el:

  (message "finished loading => /usr/local/share/emacs/site-lisp/site-start.el") (sit-for 1)

What I wanted to know was how to change that line so I don't have to
put the absolute filename manually.  In other words. How to make the
last `message' line above report absolute filename by itself
 (message "finished loading => "(SOMETHING HERE TO REPORT FILE NAME) (sit-for 1))

I want this because the defadvice DOES NOT report when site-start.el
is loaded.

Observe:
 emacs -l /usr/share/emacs/site-lisp/whats_loading.el &

 (`whats_loading.el' contains the defadvice as modified and shown above)
Notice in the output of *Messages* that loading of site start el is
NOT reported by the defadvice.  The only indication is the message
line shown above at the end of site-start.el:

  emacs -l /usr/local/share/emacs/site-lisp/whats_loading.el &
*Messages*:

Loading disp-table...done
Loading encoded-kb...done
Loading tool-bar...done
Loading image...done
Loading tooltip...done
Loading whats_loading.el (source)...
Loading advice...done
Loading whats_loading.el (source)...done
Loading help-fns...done
(Tip from Kai G): Now loading: /home/reader/.emacs-custom
Loading ~/.emacs-custom...done
Loading skeleton...done
Loading executable...done
Loading regexp-opt...done
finished loading => /usr/local/share/emacs/site-lisp/site-start.el
(Tip from Kai G): Now loading: /home/reader/.emacs
Loading bbdb-gnus...
Loading easymenu...done
[...]

Re: Get report on which files are loading

[Kai Großjohann]

Harry Putnam <reader@newsguy.com> writes:

> I don't understand why.  But to compensate for that lack of report I
> put this at the end of site-start.el:
>
>   (message "finished loading => /usr/local/share/emacs/site-lisp/site-start.el") (sit-for 1)
>
> What I wanted to know was how to change that line so I don't have to
> put the absolute filename manually.  In other words. How to make the
> last `message' line above report absolute filename by itself
>  (message "finished loading => "(SOMETHING HERE TO REPORT FILE NAME) (sit-for 1))

Ah!  That's what you want.  Sorry, I misunderstood.

I don't know how to find out the file name you're in.  But you can
add the full path of site-start.el, like so:

(message "finished loading => %s" (locate-library "site-start"))

-- 
This line is not blank.

Re: Get report on which files are loading

[Harry Putnam]

kai.grossjohann@gmx.net (Kai Großjohann) writes:

> (message "finished loading => %s" (locate-library "site-start"))

yeah yeah, now were talking.

Re: Get report on which files are loading

[Stefan Monnier]

>  (message "finished loading => "(SOMETHING HERE TO REPORT FILE NAME) (sit-for 1))

You might want to try the `load-file-name' variable.


        Stefan

Re: Get report on which files are loading

[Harry Putnam]

"Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu> writes:

>>  (message "finished loading => "(SOMETHING HERE TO REPORT FILE NAME) (sit-for 1))
>
> You might want to try the `load-file-name' variable.

C-h v shows nil for that var but not sure how one would use it in
lisp `message' to announce the current file name.
Is it something like the shell $0 operator or its shortened version
$(basename $0)?

Can you show a simple usage?

Re: Get report on which files are loading

[Stefan Monnier]

>>> (message "finished loading => "(SOMETHING HERE TO REPORT FILE NAME) (sit-for 1))
>> You might want to try the `load-file-name' variable.
> C-h v shows nil for that var

Where you loading a file while you hit C-h v ?  Didn't think so !

> lisp `message' to announce the current file name.
> Is it something like the shell $0 operator or its shortened version
> $(basename $0)?
> Can you show a simple usage?

 (message "finished loading %s" load-file-name)


        Stefan

Re: Get report on which files are loading

[Harry Putnam]

"Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu> writes:

>> Can you show a simple usage?
>
>  (message "finished loading %s" load-file-name)

Well geez, thats no fun... where are the acres of complicated parens,
single quotes etc. .. he he.

And yes as you guessed I completely misunderstood its usage...
...Thanks

Re: Get report on which files are loading

[Stefan Monnier]

> Where you loading a file while you hit C-h v ?  Didn't think so !
   ^

How embarassing!


        Stefan

Re: Get report on which files are loading

[Harry Putnam]

"Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu> writes:

>> Where you loading a file while you hit C-h v ?  Didn't think so !
>    ^
>
> How embarassing!

Had you just left it alone... no one but the absolute most observant
would have noticed...  You could have gotten away without having to
undergo all that shame...

Re: Get report on which files are loading

[Kevin Rodgers]

Harry Putnam wrote:

> (defadvice load (before debug-log activate)
>   (message "(Tip from Kai G): Now loading: %s" (locate-library (ad-get-arg 0))))
> 
> Well, that gives absolute file names alright but I think I must have
> confused the issue in my previous post.  The defadvice DOES NOT
> report the loading of site-start.el even when the defadvice is
> preloaded from the command line with
>   emacs -l whats_loading.el

Because command line options like -l whats_loading.el are processed after the
site-start.el, ~/.emacs, and default.el init files.  See the "Action Arguments"
and "Init File" nodes of the Emacs manual.

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>

Re: Get report on which files are loading

[Harry Putnam]

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> Harry Putnam wrote:
>
>> (defadvice load (before debug-log activate)
>>   (message "(Tip from Kai G): Now loading: %s" (locate-library (ad-get-arg 0))))
>> Well, that gives absolute file names alright but I think I must have
>> confused the issue in my previous post.  The defadvice DOES NOT
>> report the loading of site-start.el even when the defadvice is
>> preloaded from the command line with
>>   emacs -l whats_loading.el
>
> Because command line options like -l whats_loading.el are processed after the
> site-start.el, ~/.emacs, and default.el init files.  See the "Action Arguments"
> and "Init File" nodes of the Emacs manual.

Thanks Kevin, yes I had finally smartened up and put a lisp message
at beginning and end of site-start.el so I saw exactly what you point
out.  A file loaded from the command line is still read after site-start.el