- Add/compact/modify/fix some IDSs.
[chise/ids.git] / 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