slides: add a title to the slides windows, looks a little more polished that way

diff --git a/extra/chicago-talk/chicago-talk.factor b/extra/chicago-talk/chicago-talk.factor
index 9f84c023ce6e73617f20fd8e86f79f2277eab008..aa6208cf936ab8f9558ba81d0cc6c5c5477ee97b 100644 (file)
--- a/extra/chicago-talk/chicago-talk.factor
+++ b/extra/chicago-talk/chicago-talk.factor
@@ -5,61 +5,49 @@ IN: chicago-talk
 
 CONSTANT: chicago-slides
 {
-{ $slide "factor"
-
-{ $url "http://factorcode.org" }
-
-}
-{ $slide "goals"
-
-"high level language"
-"expressive and extensible"
-"reasonable performance"
-"interactive development with arbitrary redefinition"
-"standalone app deployment (strip out compiler and REPL)"
-
-}
-{ $slide "challenges"
-
-"higher-order functions"
-"dynamic typing"
-"memory allocation"
-"float boxing/unboxing"
-"integer overflow checks"
-"user-defined abstractions"
-
-}
-{ $slide "implementation"
-
-"VM: 12 kloc of C, library: >100 kloc of Factor"
-"generational copying garbage collection, card marking write barrier"
-"full continuations, tail calls"
-"simple non-optimizing “bootstrap” compiler"
-"optimizing compiler"
-
-}
-{ $slide "optimizing compiler"
-
-"about 12,000 lines of Factor code"
-"targets x86-32, x86-64, PowerPC"
-"factor code ⇒ high-level SSA ⇒ low-level SSA ⇒ machine code"
-
-}
-{ $slide "high-level optimizer"
-
-"macro expansion, defunctionalization"
-"type and interval inference, sparse conditional constant propagation, method inlining"
-"escape analysis and tuple unboxing"
-
-}
-{ $slide "low-level optimizer"
-
-"alias analysis, value numbering, write barrier elimination"
-"linear scan register allocation"
-
-}
-}
-
-: chicago-talk ( -- ) chicago-slides slides-window ;
+    { $slide "factor"
+      { $url "http://factorcode.org" }
+    }
+    { $slide "goals"
+      "high level language"
+      "expressive and extensible"
+      "reasonable performance"
+      "interactive development with arbitrary redefinition"
+      "standalone app deployment (strip out compiler and REPL)"
+    }
+    { $slide "challenges"
+
+      "higher-order functions"
+      "dynamic typing"
+      "memory allocation"
+      "float boxing/unboxing"
+      "integer overflow checks"
+      "user-defined abstractions"
+    }
+    { $slide "implementation"
+      "VM: 12 kloc of C, library: >100 kloc of Factor"
+      "generational copying garbage collection, card marking write barrier"
+      "full continuations, tail calls"
+      "simple non-optimizing “bootstrap” compiler"
+      "optimizing compiler"
+    }
+    { $slide "optimizing compiler"
+      "about 12,000 lines of Factor code"
+      "targets x86-32, x86-64, PowerPC"
+      "factor code ⇒ high-level SSA ⇒ low-level SSA ⇒ machine code"
+    }
+    { $slide "high-level optimizer"
+      "macro expansion, defunctionalization"
+      "type and interval inference, sparse conditional constant propagation, method inlining"
+      "escape analysis and tuple unboxing"
+    }
+    { $slide "low-level optimizer"
+      "alias analysis, value numbering, write barrier elimination"
+      "linear scan register allocation"
+    }
+}
+
+: chicago-talk ( -- )
+    chicago-slides "Chicago talk" slides-window ;
 
 MAIN: chicago-talk

diff --git a/extra/galois-talk/galois-talk.factor b/extra/galois-talk/galois-talk.factor
index 4c9c04ba8d2c28adfb761617b27fe2589b5f80e0..27f39d3464063032efd96accaf842fc152f093df 100644 (file)
--- a/extra/galois-talk/galois-talk.factor
+++ b/extra/galois-talk/galois-talk.factor
@@ -307,6 +307,6 @@ CONSTANT: galois-slides
     }
 }
 
-: galois-talk ( -- ) galois-slides slides-window ;
+: galois-talk ( -- ) galois-slides "Galois talk" slides-window ;
 
 MAIN: galois-talk

diff --git a/extra/google-tech-talk/google-tech-talk.factor b/extra/google-tech-talk/google-tech-talk.factor
index 5eac3bd45d64e1e551f3e9be7b868f9967830583..f58e31d868c17e798fac0c891425f05ffb11e149 100644 (file)
--- a/extra/google-tech-talk/google-tech-talk.factor
+++ b/extra/google-tech-talk/google-tech-talk.factor
@@ -564,6 +564,7 @@ CONSTANT: google-slides
     { $slide "Questions?" }
 }
 
-: google-talk ( -- ) google-slides slides-window ;
+: google-talk ( -- )
+    google-slides "Google Tech talk" slides-window ;
 
 MAIN: google-talk

diff --git a/extra/jvm-summit-talk/jvm-summit-talk.factor b/extra/jvm-summit-talk/jvm-summit-talk.factor
index 6f8e9c6b7b34f5d2baac4d3dacd10e0ca22b9478..61e0d31abbbd130ad6622ae41ef54a1a0050c294 100644 (file)
--- a/extra/jvm-summit-talk/jvm-summit-talk.factor
+++ b/extra/jvm-summit-talk/jvm-summit-talk.factor
@@ -353,6 +353,6 @@ CONSTANT: jvm-summit-slides
 }
 
 : jvm-summit-talk ( -- )
-    jvm-summit-slides slides-window ;
+    jvm-summit-slides "JVM Summit talk" slides-window ;
 
 MAIN: jvm-summit-talk

diff --git a/extra/minneapolis-talk/minneapolis-talk.factor b/extra/minneapolis-talk/minneapolis-talk.factor
index a2a73e4509a9338ba37edc4cfed8fd0870e07d99..4bb2b3f6e99eb45392fa5bf583a716ba9ed949cc 100644 (file)
--- a/extra/minneapolis-talk/minneapolis-talk.factor
+++ b/extra/minneapolis-talk/minneapolis-talk.factor
@@ -177,6 +177,7 @@ CONSTANT: minneapolis-slides
     { $slide "Questions?" }
 }
 
-: minneapolis-talk ( -- ) minneapolis-slides slides-window ;
+: minneapolis-talk ( -- )
+    minneapolis-slides "Minneapolis talk" slides-window ;
 
 MAIN: minneapolis-talk

diff --git a/extra/otug-talk/otug-talk.factor b/extra/otug-talk/otug-talk.factor
index f77123c0867ed3b1051c4546116f7d8188b73c2f..dfdf2c18a3d56e02b6708305f0ec2a73d71b68ff 100644 (file)
--- a/extra/otug-talk/otug-talk.factor
+++ b/extra/otug-talk/otug-talk.factor
@@ -336,6 +336,7 @@ var price = (order == null ? null : order.price);" }
     }
 }
 
-: otug-talk ( -- ) otug-slides slides-window ;
+: otug-talk ( -- )
+      otug-slides "OTUG talk" slides-window ;
 
 MAIN: otug-talk

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index ecfc2cf00eec06f7b51aaff685ad954f8797cbb1..5fd7f8d9b7324818473888686ae1d34e82ae56bb 100644 (file)
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -123,5 +123,5 @@ SYNTAX: STRIP-TEASE:
     { T{ key-down f f "f" } [ toggle-fullscreen ] }
 } set-gestures
 
-: slides-window ( slides -- )
-    '[ _ <slides> "Slides" open-window ] with-ui ;
+: slides-window ( slides title -- )
+    '[ _ <slides> _ open-window ] with-ui ;

diff --git a/extra/tc-lisp-talk/tc-lisp-talk.factor b/extra/tc-lisp-talk/tc-lisp-talk.factor
index 3023d936c2c27cadbd33bf622f4e81d66fe62ce5..fd5b786fd7c4ea0f078d65bff3aa8f79361d65bf 100644 (file)
--- a/extra/tc-lisp-talk/tc-lisp-talk.factor
+++ b/extra/tc-lisp-talk/tc-lisp-talk.factor
@@ -26,7 +26,7 @@ CONSTANT: tc-lisp-slides
     { $slide "XML Literals"
         { $code
         "USING: splitting xml.writer xml.syntax ;
-{ \"one\" \"two\" \"three\" } 
+{ \"one\" \"two\" \"three\" }
 [ [XML <item><-></item> XML] ] map
 <XML <doc><-></doc> XML> pprint-xml"
         }
@@ -529,6 +529,7 @@ xyz
     }
 }
 
-: tc-lisp-talk ( -- ) tc-lisp-slides slides-window ;
+: tc-lisp-talk ( -- )
+    tc-lisp-slides "TC Lisp talk" slides-window ;
 
 MAIN: tc-lisp-talk

diff --git a/extra/vpri-talk/vpri-talk.factor b/extra/vpri-talk/vpri-talk.factor
index a09d17356a16c8428cbed94515c57f0521ad1ec3..a3d27f1e44458cbb243dbe7833783c69d1bd5373 100644 (file)
--- a/extra/vpri-talk/vpri-talk.factor
+++ b/extra/vpri-talk/vpri-talk.factor
@@ -487,6 +487,6 @@ CONSTANT: vpri-slides
     }
 }
 
-: vpri-talk ( -- ) vpri-slides slides-window ;
+: vpri-talk ( -- ) vpri-slides "VPRI talk" slides-window ;
 
 MAIN: vpri-talk