scripts/planner-build.el

   1 (add-to-list 'load-path ".")
   2
   3 ;; If you want Planner to find all of these programs when
   4 ;; byte-compiling Planner, make sure to edit these paths to match your
   5 ;; configuration.
   6
   7 (add-to-list 'load-path "~/elisp/muse/lisp")
   8 (add-to-list 'load-path "~/elisp/remember")
   9 (add-to-list 'load-path "~/elisp/bbdb/lisp")
  10 (add-to-list 'load-path "~/elisp/erc")
  11 (add-to-list 'load-path "~/elisp/gnats")
  12 (add-to-list 'load-path "~/elisp/gnus/lisp")
  13 (add-to-list 'load-path "~/elisp/psvn")
  14 (add-to-list 'load-path "~/elisp/vm")
  15 (add-to-list 'load-path "~/elisp/w3m")
  16 (add-to-list 'load-path "~/elisp/wl")
  17 (add-to-list 'load-path "~/elisp/xtla")
  18
  19 (defun planner-elint-files ()
  20   (require 'elint)
  21   (elint-initialize)
  22
  23   (defvar nomessage t)
  24   (load "planner" nil nomessage)
  25   (load "muse-mode" nil nomessage)
  26   (dolist (file (directory-files "." nil "\\.el$"))
  27     (setq file (substring file 0 (string-match "\\.el$" file)))
  28     (load file nil nomessage))
  29
  30   (add-to-list 'elint-standard-variables 'current-prefix-arg)
  31   (add-to-list 'elint-standard-variables 'command-line-args-left)
  32   (add-to-list 'elint-standard-variables 'buffer-file-coding-system)
  33   (add-to-list 'elint-standard-variables 'save-some-buffers-action-alist)
  34   (add-to-list 'elint-standard-variables 'emacs-major-version)
  35   (add-to-list 'elint-standard-variables 'emacs-minor-version)
  36   (add-to-list 'elint-standard-variables 'emacs-version)
  37   (add-to-list 'elint-standard-variables 'window-system)
  38   (add-to-list 'elint-standard-variables 'debug-on-error)
  39   (add-to-list 'elint-standard-variables 'planner-mode-abbrev-table)
  40   (dolist (file command-line-args-left)
  41     (find-file file)
  42     (message "Checking %s ..." file)
  43     (elint-current-buffer)
  44     (with-current-buffer (elint-get-log-buffer)
  45       (goto-char (point-min))
  46       (forward-line 2)
  47       (while (not (or (eobp)
  48                       (looking-at "^Linting complete")))
  49         (message (buffer-substring (planner-line-beginning-position)
  50                                    (planner-line-end-position)))
  51         (forward-line 1)))
  52     (kill-buffer (current-buffer))))
  53
  54 (defun planner-generate-autoloads ()
  55   (interactive)
  56   (defvar autoload-package-name)
  57   (defvar command-line-args-left)
  58   (defvar generated-autoload-file)
  59   (require 'autoload)
  60   (setq generated-autoload-file (expand-file-name "planner-autoloads.el"))
  61   (setq command-line-args-left (mapcar #'expand-file-name
  62                                        command-line-args-left))
  63   (if (featurep 'xemacs)
  64       (progn
  65           (setq autoload-package-name "planner")
  66           (batch-update-autoloads))
  67     (find-file generated-autoload-file)
  68     (delete-region (point-min) (point-max))
  69     (insert ";;; planner-autoloads.el --- autoloads for Planner
  70 ;;
  71 ;;; Code:
  72 ")
  73     (save-buffer 0)
  74     (batch-update-autoloads)
  75     (find-file generated-autoload-file)
  76     (goto-char (point-max))
  77     (insert ?\n)
  78     (insert "(provide 'planner-autoloads)
  79 ;;; planner-autoloads.el ends here
  80 ;;
  81 ;; Local Variables:
  82 ;; version-control: never
  83 ;; no-byte-compile: t
  84 ;; no-update-autoloads: t
  85 ;; End:
  86 ")
  87     (insert ?\n)
  88     (save-buffer 0)
  89     (kill-buffer (current-buffer))))