s5 english presentation

Author: scientific-coder

sucker-punch-propaganda/README.org

@@ -1,20 +1,22 @@
-* Why Clojure ?
-  An exercise in /sucker punch/ propaganda ☺
+#+TITLE: Why Clojure ?
+#+AUTHOR:
+#+OPTIONS: toc:nil
 * Sapir Whorf hypothesis
 (Yet) Another language ?
  - some languages make better programs
  - some also make better programmers !
-* Low barrier to productivity thx to perfect Java interop
+* Low barrier to productivity …
+thx to perfect Java interoperability !
  - Can use/create any java object
- - same primitive types (incl. java.lang.String)
+ - Same primitive types (incl. java.lang.String)
 Solves the chicken-egg problem (libraries, users base) that have been
 keeping us with C for decades despite all the good work in academia.
 * A Simple Language
  - Simple :: ≠ easy 
  - Fighting incidental complexity :: There is no pride to have in
       mastering needlessly complex tools (java programmers understand
       this very well when talking about C++ ☺).
-[Richhickey-StuartHallowaySimplicityAintEasy905.mov]
+
 * Object Oriented !
  - type
  - identity
@@ -39,7 +41,9 @@ Clojure has it *all*, /à la carte/.
    - single /atoms/
    - transactions on multiple /refs/
 * Very Simple Syntax ☺
-"Oh, btw, it's a LISP" (→ angry meme pic ☹)
+"Oh, btw, it's a LISP"
+[[file:~/Code/repositories/clj-pres/4clojure-oriented-prez/src/lisp-angry-meme.png]]
+* You are not alone
 Not necessarily /easy/ at first but : 
  - syntactic grouping of pairs
  - code is data (list), but most data structures are not lists :
@@ -50,6 +54,10 @@ Not necessarily /easy/ at first but :
    - help writing (electric parenthesis)
    - help reading (rainbow parenthesis)
    - e.g. ≠ i.e. ☺
+* M-x emacs-ftw
+[[file:clojure-in-emacs.png]]
+* Eclipse plug-in
+[[file:sc-ccw.png]]
 * Metaprogramming done right
  - David Wheeler :: "All problems in computer science can be solved by
                     another level of indirection".
@@ -72,6 +80,20 @@ learn concepts form the great minds behind it. You will also get a
 better understanding of concepts you already (think you) know
 (e.g. OOP, state, time, value, hammocks…).
 
-Learn things and have fun ! (I know you will ☺)
+* TL;DL
+ - Don't fear/dismiss the unknown
+ - Learn things and have fun ! (I know you will ☺)
+
+* [Web|Bib]liography
+
+ - Talks (slides / videos)
+   - Are We There Yet ?
+   - Hammock Driven Development 
+   - Simple Ain't Easy
+   - …
+ - Books
+   - The Joy of Clojure
+   - Clojure in Action
+   - Programming Clojure $2^{nd}$ ed.
+   - …
 
-* TODO [Web|Bib]liography

sucker-punch-propaganda/clojure-in-emacs.png

@@ -0,0 +1,81 @@
+(defvar org-s5-theme "default")
+
+(defvar org-s5-title-string-fmt "<h1>%author - %title</h1>"
+  "Format template to specify title string.  Completed using `org-fill-template'.
+Optional keys include %author, %title and %date.")
+
+(defvar org-s5-title-page-fmt (mapconcat #'identity
+                                         '("<div class=\"slide\">"
+                                           "<h1>%title</h1>"
+                                           "<h1>%author</h1>"
+                                           "<h1>%date</h1>"
+                                           "</div>")
+                                         "\n")
+  "Format template to specify title page.  Completed using `org-fill-template'.
+Optional keys include %author, %title and %date.")
+
+(defun org-export-as-s5
+  (arg &optional hidden ext-plist to-buffer body-only pub-dir)
+  "Wrap `org-export-as-html' in setting for S5 export."
+  (interactive "P")
+  (flet ((join (lst) (mapconcat #'identity lst "\n"))
+         (sheet (href media id)
+                (org-fill-template
+                 (concat "<link rel=\"stylesheet\" href=\"%href\""
+                         " type=\"text/css\" media=\"%media\" id=\"%id\" />")
+                 `(("href" . ,href)
+                   ("media" . ,media)
+                   ("id" . ,id)))))
+    (let ((org-export-html-style-extra
+           (join `("<!-- configuration parameters -->"
+                   "<meta name=\"defaultView\" content=\"slideshow\" />"
+                   "<meta name=\"controlVis\" content=\"hidden\" />"
+                   "<!-- style sheet links -->"
+                   ,(sheet (concat "ui/" org-s5-theme "/slides.css")
+                           "projection" "slideProj")
+                   ,(sheet "ui/default/outline.css" "screen" "outlineStyle")
+                   ,(sheet "ui/default/print.css" "print" "slidePrint")
+                   ,(sheet "ui/default/opera.css" "projection" "operaFix")
+                   "<!-- S5 JS -->"
+                   ,(concat "<script src=\"ui/default/slides.js\" "
+                            "type=\"text/javascript\"></script>"))))
+          (org-export-html-toplevel-hlevel 1)
+          (org-export-html-postamble nil)
+          (org-export-html-auto-postamble nil)
+          (org-export-preprocess-hook
+           (list
+            (lambda ()
+              (let ((class "slide"))
+                (org-map-entries
+                 (lambda ()
+                   (save-excursion
+                     (org-back-to-heading t)
+                     (when (= (car (org-heading-components)) 1)
+                       (put-text-property (point-at-bol) (point-at-eol)
+                                          'html-container-class class)))))))))
+          (org-export-html-final-hook
+           (list
+            (lambda ()
+              (save-excursion
+                (replace-regexp
+                 (regexp-quote "<div id=\"content\">")
+                 (let ((info `(("author" . ,author)
+                               ("title"  . ,title)
+                               ("date"   . ,(substring date 0 10)))))
+                   (join `("<div class=\"layout\">"
+                           "<div id=\"controls\"><!-- no edit --></div>"
+                           "<div id=\"currentSlide\"><!-- no edit --></div>"
+                           "<div id=\"header\"></div>"
+                           "<div id=\"footer\">"
+                           ,(org-fill-template org-s5-title-string-fmt info)
+                           "</div>"
+                           "</div>"
+                           ""
+                           "<div class=\"presentation\">"
+                           ,(org-fill-template org-s5-title-page-fmt info)))))))
+            (lambda ()
+              (save-excursion
+                (replace-regexp
+                 (regexp-quote "<div id=\"table-of-contents\">")
+                 "<div id=\"table-of-contents\" class=\"slide\">"))))))
+      (org-export-as-html arg hidden ext-plist to-buffer body-only pub-dir))))

sucker-punch-propaganda/org-export-as-s5.el

@@ -0,0 +1,22 @@
+/* The following styles size, place, and layer the slide components.
+   Edit these if you want to change the overall slide layout.
+   The commented lines can be uncommented (and modified, if necessary) 
+    to help you with the rearrangement process. */
+
+/* target = 1024x768 */
+
+div#header, div#footer, .slide {width: 100%; top: 0; left: 0;}
+div#header {top: 0; height: 3em; z-index: 1;}
+div#footer {top: auto; bottom: 0; height: 2.5em; z-index: 5;}
+.slide {top: 0; width: 92%; padding: 3.5em 4% 4%; z-index: 2;  list-style: none;}
+div#controls {left: 50%; bottom: 0; width: 50%; z-index: 100;}
+div#controls form {text-align: right; width: 100%; margin: 0;}
+#currentSlide {position: absolute; width: 10%; left: 45%; bottom: 1em; z-index: 10;}
+html>body #currentSlide {position: fixed;}
+
+/*
+div#header {background: #FCC;}
+div#footer {background: #CCF;}
+div#controls {background: #BBD;}
+div#currentSlide {background: #FFC;}
+*/

sucker-punch-propaganda/pix/S501.jpg

@@ -0,0 +1,42 @@
+<public:component>
+<public:attach event="onpropertychange" onevent="doFix()" />
+
+<script>
+
+// IE5.5+ PNG Alpha Fix v1.0 by Angus Turnbull http://www.twinhelix.com
+// Free usage permitted as long as this notice remains intact.
+
+// This must be a path to a blank image. That's all the configuration you need here.
+var blankImg = 'ui/default/blank.gif';
+
+var f = 'DXImageTransform.Microsoft.AlphaImageLoader';
+
+function filt(s, m) {
+ if (filters[f]) {
+  filters[f].enabled = s ? true : false;
+  if (s) with (filters[f]) { src = s; sizingMethod = m }
+ } else if (s) style.filter = 'progid:'+f+'(src="'+s+'",sizingMethod="'+m+'")';
+}
+
+function doFix() {
+ if ((parseFloat(navigator.userAgent.match(/MSIE (\S+)/)[1]) < 5.5) ||
+  (event && !/(background|src)/.test(event.propertyName))) return;
+
+ if (tagName == 'IMG') {
+  if ((/\.png$/i).test(src)) {
+   filt(src, 'image');  // was 'scale'
+   src = blankImg;
+  } else if (src.indexOf(blankImg) < 0) filt();
+ } else if (style.backgroundImage) {
+  if (style.backgroundImage.match(/^url[("']+(.*\.png)[)"']+$/i)) {
+   var s = RegExp.$1;
+   style.backgroundImage = '';
+   filt(s, 'crop');
+  } else filt();
+ }
+}
+
+doFix();
+
+</script>
+</public:component>

sucker-punch-propaganda/pix/S502.jpg

@@ -0,0 +1,122 @@
+/* Following are the note styles -- edit away! */
+
+body {
+	margin: 0;
+	padding: 1.0em;
+	background: #333; 
+	color: #FFF;
+	font: 2em/1.4em 'Lucida Grande', Verdana, sans-serif;
+}
+
+div.timers {
+	background: #FFF;
+	color: #333;
+	border: 0.08em solid #222;
+	border-top-width: 1px;
+	border-left-width: 1px;
+	float: left;
+	padding: 0.2em;
+	margin: 0 0 0.5em;
+	position: relative;
+}
+
+div.timers h1 {
+	text-align: left;
+	font-size: 0.6em;
+	line-height: 1.4em;
+	background-color: #FF9;
+	padding: 0 0.75em;
+	margin: 0.25em 0 0;
+	border: 1px solid #EE8;
+}
+
+div.timers div.controls {
+	position: absolute;
+	right: 0.25em;
+	top: 0.1em;
+	line-height: 1em;
+}
+
+div.timers h1 a {
+	text-decoration: none;
+	color: #000;
+}
+
+div.timers div.controls a {
+	font-size: 0.5em;
+	padding: 0;
+	color: #330;
+}
+
+div.timers a.control {
+	position: absolute;
+	text-decoration: none;
+	padding: 0 0.25em;
+	color: #AAA;
+	outline: 0;
+}
+
+#minus {
+	left: 0.25em;
+}
+
+#plus {
+	right: 0.25em;
+}
+
+.overtime {
+	background: yellow;
+	color: red;
+	border: 3px solid;
+	padding: 0.1em 0.25em;
+	font-weight: bold;
+}
+
+div.timers h2 {
+	font-size: 0.6em;
+	line-height: 1.0em;
+	font-weight: normal;
+	margin: 0 0 -0.25em;
+	padding-top: 0.5em;
+	color: #666;
+}
+
+div.timers p {margin: 0; padding: 0 0.5em;}
+div.timers form {margin: 0;}
+
+div.timers span.clock {
+	font-family: monospace;
+}
+
+div.timers ul {margin: 0; padding: 0; list-style: none;}
+div.timers li {float: left; width: 5em; margin: 0; padding: 0 0.5em;
+  text-align: center;}
+
+div#elapsed {width: 12.1em;}
+div#remaining {clear: left; width: 12.1em;}
+div#remaining p {text-align: center;}
+
+#slide,
+#next,
+#notes,
+#nextnotes {
+	font-size: 0.75em;
+	line-height: 1.4em;
+	clear: left;
+/*	max-width: 30.0em; */
+	text-shadow: 0.1em 0.1em 0.1em #111;
+}
+
+#next {margin-top: 2.5em;}
+#next, #nextnotes {
+	color: #999;
+	font-size: 0.66em;
+}
+
+em.disclaimer {
+	color: #666;
+}
+
+div.collapsed h1 {display: block; font-size: 0.33em;}
+div.collapsed h1 a {display: inline;}
+div.collapsed * {display: none;}

sucker-punch-propaganda/pix/S503.jpg

@@ -0,0 +1,7 @@
+/* DO NOT CHANGE THESE unless you really want to break Opera Show */
+.slide {
+	visibility: visible !important;
+	position: static !important;
+	page-break-before: always;
+}
+#slide0 {page-break-before: avoid;}

sucker-punch-propaganda/pix/S504.jpg

@@ -0,0 +1,15 @@
+/* don't change this unless you want the layout stuff to show up in the outline view! */
+
+.layout div, #footer *, #controlForm * {display: none;}
+#footer, #controls, #controlForm, #navLinks, #toggle {
+  display: block; visibility: visible; margin: 0; padding: 0;}
+#toggle {float: right; padding: 0.5em;}
+html>body #toggle {position: fixed; top: 0; right: 0;}
+
+/* making the outline look pretty-ish */
+
+#slide0 h1, #slide0 h2, #slide0 h3, #slide0 h4 {border: none; margin: 0;}
+#slide0 h1 {padding-top: 1.5em;}
+.slide h1 {margin: 1.5em 0 0; padding-top: 0.25em;
+  border-top: 1px solid #888; border-bottom: 1px solid #AAA;}
+#toggle {border: 1px solid; border-width: 0 0 1px 1px; background: #FFF;}