Move web apps to unmaintained/ for now; get more stuff in extra to load

extra/alarms/alarms.factor

@@ -85,5 +85,8 @@ PRIVATE>
 : later ( quot dt -- alarm )
     from-now f add-alarm ;
 
+: every ( quot dt -- alarm )
+    [ from-now ] keep add-alarm ;
+
 : cancel-alarm ( alarm -- )
     alarm-entry [ alarms get-global heap-delete ] if-box? ;

extra/http/server/cgi/cgi.factor

@@ -41,18 +41,17 @@ IN: http.server.cgi
         ] when
     ] H{ } make-assoc ;
 
-: cgi-descriptor ( name -- desc )
+: <cgi-process> ( name -- desc )
-    [
+    <process>
-        dup 1array +arguments+ set
+        over 1array >>command
-        cgi-variables +environment+ set
+        swap cgi-variables >>environment ;
-    ] H{ } make-assoc ;
     
 : serve-cgi ( name -- response )
     <raw-response>
     200 >>code
     "CGI output follows" >>message
     swap [
-        stdio get swap cgi-descriptor <process-stream> [
+        stdio get swap <cgi-process> <process-stream> [
             post? [
                 request get post-data>> write flush
             ] when

extra/logging/insomniac/insomniac.factor

@@ -1,8 +1,8 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: logging.analysis logging.server logging smtp io.sockets
-kernel io.files io.streams.string namespaces raptor.cron assocs
+kernel io.files io.streams.string namespaces alarms assocs
-io.encodings.utf8 ;
+io.encodings.utf8 accessors calendar ;
 IN: logging.insomniac
 
 SYMBOL: insomniac-smtp-host
@@ -29,13 +29,14 @@ SYMBOL: insomniac-recipients
 
 : (email-log-report) ( service word-names -- )
     [
-        over >r
+        dupd ?analyze-log dup [
-        ?analyze-log dup [
+            <email>
-            r> email-subject
+                swap >>body
-            insomniac-recipients get
+                insomniac-recipients get >>to
-            insomniac-sender get
+                insomniac-sender get >>from
-            send-simple-message
+                swap email-subject >>subject
-        ] [ r> 2drop ] if
+            send
+        ] [ 2drop ] if
     ] with-insomniac-smtp ;
 
 \ (email-log-report) NOTICE add-error-logging
@@ -44,6 +45,5 @@ SYMBOL: insomniac-recipients
     "logging.insomniac" [ (email-log-report) ] with-logging ;
 
 : schedule-insomniac ( service word-names -- )
-    { 25 } { 6 } f f f <when> -rot [
+    [ [ email-log-report ] assoc-each rotate-logs ] 2curry
-        [ email-log-report ] assoc-each rotate-logs
+    1 days every drop ;
-    ] 2curry schedule ;

extra/slides/slides.factor

@@ -6,10 +6,14 @@ IN: slides
 
 : stylesheet
     H{
-        { default-style
+        { default-span-style
             H{
                 { font "sans-serif" }
                 { font-size 36 }
+            }
+        }
+        { default-block-style
+            H{
                 { wrap-margin 1000 }
             }
         }