Re: autoload

[Perry Smith]

On Jan 23, 2011, at 10:09 PM, Stefan Monnier wrote:

>> I just spent the past few hours constructing various scripts to
>> automatically byte compile the new files
> 
> As in byte-recompile-directory?

Roughtly.  but batch-byte-recompile-directory does not create the elc if it 
doesn't already exist unless you wrap it.  So I wrote:

(defun batch-byte-recompile-directory-all ()
  (batch-byte-recompile-directory 0))


> 
>> and also create a myautoloads.el file that I load at startup.
> 
> As in update-directory-autoloads?

Again... roughly but you have to wrap it so that the autoloads go to a local 
file:

(defun batch-update-my-autoloads (&optional file)
  (defvar command-line-args-left)       ;Avoid 'free variable' warning
  (let ((generated-autoload-file "~/.emacs.d/pedz/myloaddefs.el")
        (temp command-line-args-left))
    (while temp
      (update-file-autoloads (car temp))
      (setq temp (cdr temp)))
    (save-some-buffers t)))

Oh... And update-directory-autoloads doesn't walk down the tree...

Its not a lot of work but it just seemed like I can't be the only person doing 
this.

I coupled it with a script:

#!/bin/sh
#
# Script to run after doing a git pull
#
# Emacs is taken as /Applications/Emacs.app/Contents/MacOS/Emacs if it
# exists (a Mac platform), otherwise, we just use emacs.
if [[ -x /Applications/Emacs.app/Contents/MacOS/Emacs ]] ; then
    EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
else
    EMACS=emacs
fi

# First, make all the .elc files:

${EMACS} -batch -l batch-commands.el -f batch-byte-recompile-directory-all

# Now, update the myloaddefs.el file:

find . -type f -name '*.el' -print | \
    egrep -v '/\.git' | \
    xargs egrep -l '# *autoload' | \
    xargs ${EMACS} \
        -batch \
        -l batch-commands.el \
        -f batch-update-my-autoloads

# We don't want myloaddefs.el compiled because it confuses me.

rm -f pedz/myloadsdefs.elc

pedz