riece-toolbar
riece-eval
riece-google
- riece-keepalive))))
+ riece-keepalive
+ riece-eval-ruby))))
(defvar riece-icons
'("riece-command-quit.xpm"
"riece-submit-bug-report.xpm"))
(defvar riece-scripts
- '("server.rb"))
+ '("server.rb"
+ "aproxy.rb"))
(defun riece-compile-modules (modules)
(let ((load-path (cons nil load-path))
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 ()