NATIVE_OUT=${OUTPUT_DIR}/native
MACOSX_OUT=${OUTPUT_DIR}/macosx
- PLUGINS="blowfish edwin gdbm imail mcrypt x11 x11-screen"
+ PLUGINS="blowfish gdbm mcrypt edwin imail x11 x11-screen"
+PLUGINS="$PLUGINS berkeley-db pgsql"
+PLUGINS="$PLUGINS cairo gl glib gtk gtk-screen pango planetarium devops"
notify ()
{
(declare (usual-integrations))
- (load-option 'SOS)
++(load-option 'sos)
+ (load-option 'xml)
+ (load-option 'blowfish)
+ (load-option 'gdbm)
(with-loader-base-uri (system-library-uri "edwin/")
(lambda ()
(load-package-set "edwin"
(lambda ()
(fluid-let ((*allow-package-redefinition?* #t))
(load-package-set "imail"))))
- (add-subsystem-identification! "IMAIL" '(1 21 4))
-(add-subsystem-identification! "IMAIL" '(1 22))
++(add-subsystem-identification! "IMAIL" '(1 22 1))
(with-notification
(lambda (port) (display "Loading Edwin" port))
(lambda ()
- (parameterize*
- (list (cons param:suppress-loading-message? #t))
- (lambda ()
- (load-option 'EDWIN)
- (if (let ((DISPLAY (get-environment-variable "DISPLAY")))
- (and (string? DISPLAY)
- (not (string-null? DISPLAY))))
+ (parameterize ((param:suppress-loading-message? #t))
- (load-option 'edwin)
- (if (let ((display (get-environment-variable "DISPLAY")))
- (and (string? display)
- (not (string-null? display))))
- (ignore-errors (lambda () (load-option 'x11-screen)))))))
++ (load-option 'edwin)
++ (if (let ((display (get-environment-variable "DISPLAY")))
++ (and (string? display)
++ (not (string-null? display))))
+ (ignore-errors (lambda () (load-option 'x11-screen))))))))
(apply (environment-lookup (->environment '(edwin)) 'edit) args)))))
(define edwin edit)