lisp/INITZ-MK

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; INITZ-MK: installer for Initz.
   4
   5 ;;; Code:
   6
   7 (defun config-initz ()
   8   (let (prefix lisp-dir)
   9     (and (setq prefix (car command-line-args-left))
  10          (or (string-equal "NONE" prefix)
  11              (defvar PREFIX prefix)))
  12     (setq command-line-args-left (cdr command-line-args-left))
  13     (and (setq lisp-dir (car command-line-args-left))
  14          (or (string-equal "NONE" lisp-dir)
  15              (defvar LISPDIR lisp-dir)))
  16     (setq command-line-args-left (cdr command-line-args-left))
  17     (load-file "INITZ-CFG")
  18     (load-file "INITZ-ELS")
  19
  20     (princ (format "PREFIX=%s
  21 LISPDIR=%s\n" PREFIX LISPDIR))))
  22
  23 (defun compile-initz ()
  24   (config-initz)
  25   (compile-elisp-modules initz-modules "."))
  26
  27 (defun install-initz ()
  28   (config-initz)
  29   (install-elisp-modules initz-modules "./" INITZ_DIR))
  30
  31 (defun config-initz-package ()
  32   (let (package-dir)
  33     (and (setq package-dir (car command-line-args-left))
  34          (or (string= "NONE" package-dir)
  35              (defvar PACKAGEDIR package-dir)))
  36     (setq command-line-args-left (cdr command-line-args-left))
  37     (load-file "INITZ-CFG")
  38     (load-file "INITZ-ELS")
  39
  40     (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))))
  41
  42 (defun compile-initz-package ()
  43   (config-initz-package)
  44
  45   (setq autoload-package-name "initz")
  46   (add-to-list 'command-line-args-left ".")
  47   (batch-update-directory)
  48
  49   (add-to-list 'command-line-args-left ".")
  50   (Custom-make-dependencies)
  51
  52   (compile-elisp-modules (append initz-modules-to-compile
  53                                  '(auto-autoloads custom-load))
  54                          "."))
  55
  56 (defun install-initz-package ()
  57   (config-initz-package)
  58   (install-elisp-modules (append initz-modules
  59                                  '(auto-autoloads custom-load))
  60                          "./"
  61                          (expand-file-name INITZ_PREFIX
  62                                            (expand-file-name "lisp"
  63                                                              PACKAGEDIR)))
  64   (if (file-exists-p "./auto-autoloads.el")
  65       (delete-file "./auto-autoloads.el"))
  66   (if (file-exists-p "./custom-load.el")
  67       (delete-file "./custom-load.el")))
  68
  69 ;;; INITZ-MK ends here