WARNING: the last build, and then reconfigure.
WARNING: ---------------------------------------------------------\n\n")))))
+(defun riece-compile-module ()
+ (let ((load-path (cons nil load-path)))
+ (let ((source (expand-file-name
+ (concat (car command-line-args-left) ".el"))))
+ (if (file-newer-than-file-p source (concat source "c"))
+ (byte-compile-file source)))))
+
(defun riece-install-modules (modules dest just-print)
(unless (or just-print (file-exists-p dest))
(make-directory dest t))
(if flag
(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
+(defun riece-examine ()
+ (princ (mapconcat #'symbol-name riece-modules " ")))
+
(defun riece-compile ()
(riece-compile-modules riece-modules))
(riece-install-modules
(append riece-modules
'(auto-autoloads custom-load))
- (expand-file-name "riece"
- (expand-file-name "lisp" (car command-line-args-left)))
+ (expand-file-name "lisp/riece" (car command-line-args-left))
(riece-install-just-print-p))
(riece-install-icons
riece-icons
- (expand-file-name "riece"
- (expand-file-name "lisp" (car command-line-args-left)))
+ (expand-file-name "etc/riece" (car command-line-args-left))
(riece-install-just-print-p))
(riece-install-scripts
riece-scripts
- (expand-file-name "riece"
- (expand-file-name "lisp" (car command-line-args-left)))
+ (expand-file-name "etc/riece" (car command-line-args-left))
(riece-install-just-print-p)))
(defun riece-test ()