IDS-MK

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; IDS-MK: installer for IDS.
   4
   5 ;;; Code:
   6
   7 (defun config-ids-package ()
   8   (let (package-dir)
   9     (and (setq package-dir (car command-line-args-left))
  10          (or (string= "NONE" package-dir)
  11              (defvar PACKAGEDIR package-dir)
  12              ))
  13     (setq command-line-args-left (cdr command-line-args-left))
  14     (load-file "IDS-CFG")
  15     (load-file "IDS-ELS")
  16
  17     (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
  18     ))
  19
  20 (defun compile-ids-package ()
  21   (config-ids-package)
  22
  23   (setq autoload-package-name "ids")
  24   (add-to-list 'command-line-args-left ".")
  25   (batch-update-directory)
  26
  27   (add-to-list 'command-line-args-left ".")
  28   (Custom-make-dependencies)
  29
  30   (compile-elisp-modules (append ids-modules-to-compile
  31                                  '(auto-autoloads custom-load))
  32                          ".")
  33   )
  34
  35 (defun install-ids-package ()
  36   (config-ids-package)
  37   (install-elisp-modules (append ids-modules
  38                                  '(auto-autoloads
  39                                    ;; custom-load
  40                                    ))
  41                          "./"
  42                          (expand-file-name IDS_PREFIX
  43                                            (expand-file-name "lisp"
  44                                                              PACKAGEDIR)))
  45   (delete-file "./auto-autoloads.el")
  46   ;; (delete-file "./custom-load.el")
  47   )
  48
  49 ;;; IDS-MK ends here