muse-build.el

   1 (add-to-list 'load-path ".")
   2 (add-to-list 'load-path "contrib")
   3
   4 (defun muse-elint-files ()
   5   (require 'elint)
   6   (elint-initialize)
   7
   8   (defvar nomessage t)
   9   (load "muse" nil nomessage)
  10   ;;(load "muse-arabic" nil nomessage)
  11   (load "muse-book" nil nomessage)
  12   ;;(load "muse-cite" nil nomessage)
  13   (load "muse-colors" nil nomessage)
  14   (load "muse-html" nil nomessage)
  15   (load "muse-http" nil nomessage)
  16   (load "muse-journal" nil nomessage)
  17   (load "muse-latex" nil nomessage)
  18   (load "muse-mode" nil nomessage)
  19   (load "muse-poem" nil nomessage)
  20   (load "muse-project" nil nomessage)
  21   (load "muse-regexps" nil nomessage)
  22   (load "muse-texinfo" nil nomessage)
  23
  24   (add-to-list 'elint-standard-variables 'current-prefix-arg)
  25   (add-to-list 'elint-standard-variables 'command-line-args-left)
  26   (add-to-list 'elint-standard-variables 'buffer-file-coding-system)
  27   (add-to-list 'elint-standard-variables 'save-some-buffers-action-alist)
  28   (add-to-list 'elint-standard-variables 'emacs-major-version)
  29   (add-to-list 'elint-standard-variables 'window-system)
  30   (dolist (file command-line-args-left)
  31     (find-file file)
  32     (message "Checking %s ..." file)
  33     (elint-current-buffer)
  34     (with-current-buffer (elint-get-log-buffer)
  35       (goto-char (point-min))
  36       (forward-line 2)
  37       (while (not (or (eobp)
  38                       (looking-at "^Linting complete")))
  39         (message (buffer-substring (line-beginning-position)
  40                                    (line-end-position)))
  41         (forward-line 1)))
  42     (kill-buffer (current-buffer))))