sibilant 0.0.1 → 0.0.2

data/js/sibilant/public/javascripts/macros.sibilant

@@ -0,0 +1,374 @@
+(defmacro cons (first rest)
+  (macros.send (macros.list first) 'concat rest))
+
+(defmacro join (glue arr)
+  (concat "(" (translate arr) ").join(" (translate glue) ")"))
+
+(defmacro list (&rest args)
+  (concat "[ " (join ", " (map args translate)) " ]"))
+
+(defmacro get (arr i) (concat "(" (translate arr) ")[" (translate i) "]"))
+
+(defmacro +   (&rest args)
+  (concat "(" (join " + " (map args translate)) ")"))
+(defmacro -   (&rest args)
+  (concat "(" (join " - " (map args translate)) ")"))
+(defmacro *   (&rest args)
+  (concat "(" (join " * " (map args translate)) ")"))
+(defmacro /   (&rest args)
+  (concat "(" (join " / " (map args translate)) ")"))
+(defmacro or  (&rest args)
+  (concat "(" (join " || " (map args translate)) ")"))
+(defmacro and (&rest args)
+  (concat "(" (join " && " (map args translate)) ")"))
+(defmacro mod (&rest args)
+  (concat "(" (join " % " (map args translate)) ")"))
+
+
+
+(defmacro infix-comparator (comparator args)
+  (concat "("
+          (join " && "
+                (map (args.slice 0 -1)
+                     (lambda (item index)
+                       (concat item
+                               " " comparator " "
+                               (get args (+ 1 index))))))
+          ")"))
+
+(defmacro >  (&rest args) (macros.infix-comparator  ">"  (map args translate)))
+(defmacro <  (&rest args) (macros.infix-comparator  "<"  (map args translate)))
+(defmacro <= (&rest args) (macros.infix-comparator "<="  (map args translate)))
+(defmacro >= (&rest args) (macros.infix-comparator ">="  (map args translate)))
+(defmacro != (&rest args) (macros.infix-comparator "!==" (map args translate)))
+
+(defmacro pow (base exponent)
+  (macros.call "Math.pow" base exponent))
+
+(defmacro incr-by (item increment)
+  (concat (translate item) " += " (translate increment)))
+
+(defmacro incr (item)
+  (concat "((" (translate item) ")++)"))
+
+(defmacro decr (item)
+  (concat "((" (translate item) ")--)"))
+
+(defmacro set (arr &rest kv-pairs)
+  (join "\n" (bulk-map kv-pairs
+		       (lambda (k v)
+			 (concat "(" (translate arr) ")"
+				 "[" (translate k) "] = " (translate v) ";")))))
+
+(defmacro send (object method &rest args)
+  (concat (translate object) "." (translate method)
+	  "(" (join ", " (map args translate)) ")"))
+
+(defmacro new (fn)
+  (concat "(new " (translate fn) ")"))
+
+(defmacro regex (string &optional glim)
+  ((get macros 'new) (macros.call "RegExp" string (or glim "undefined"))))
+
+(defmacro timestamp ()
+  (concat "\"" (send (new (-date)) to-string) "\""))
+
+(defmacro comment (&rest contents)
+  (map contents
+       (lambda (item)
+	 (join "\n" (map (send (translate item) split "\n")
+			 (lambda (line) (concat "// " line)))))))
+
+(defmacro meta (body)
+  (eval (translate body)))
+
+(defmacro apply (fn arglist)
+  (macros.send fn 'apply 'undefined arglist))
+
+(defmacro zero? (item)
+  ((get macros "=") (translate item) 0))
+
+(defmacro empty? (arr)
+  (concat "((" (translate arr) ").length === 0)"))
+
+(defmacro odd? (number)
+  ((get macros "!=") 0
+   (macros.mod (translate number) 2)))
+
+(defmacro even? (number)
+  ((get macros "=") 0
+   (macros.mod (translate number) 2)))
+
+
+(defmacro function? (thing)
+  (concat "typeof(" (translate thing) ") === 'function'"))
+
+(defmacro undefined? (thing)
+  (concat "typeof(" (translate thing) ") === 'undefined'"))
+
+(defmacro defined? (thing)
+  (concat "typeof(" (translate thing) ") !== 'undefined'"))
+
+(defmacro number? (thing)
+  (concat "typeof(" (translate thing) ") === 'number'"))
+
+(defmacro first (arr) (macros.get arr 0))
+(defmacro second (arr) (macros.get arr 1))
+(defmacro third (arr) (macros.get arr 2))
+(defmacro fourth (arr) (macros.get arr 3))
+(defmacro fifth (arr) (macros.get arr 4))
+(defmacro sixth (arr) (macros.get arr 5))
+(defmacro seventh (arr) (macros.get arr 6))
+(defmacro eighth (arr) (macros.get arr 7))
+(defmacro ninth (arr) (macros.get arr 8))
+
+(defmacro rest (arr)
+  (macros.send arr 'slice 1))
+
+(defmacro length (arr)
+  (macros.get arr "\"length\""))
+
+(defmacro last (arr)
+  (macros.get (macros.send arr 'slice -1) 0))
+
+(defmacro if (arg truebody falsebody)
+  (concat
+   "(function() {"
+   (indent (concat
+	    "if (" (translate arg) ") {"
+	    (indent (macros.progn truebody))
+	    "} else {"
+	    (indent (macros.progn falsebody))
+	    "}"))
+   "})()"))
+
+(defmacro defvar (&rest pairs)
+  (as-statement
+   (concat "var "
+           (join ",\n    "
+                 (bulk-map pairs
+                           (lambda (name value)
+                             (concat (translate name) " = "
+                                     (translate value)))))
+           ";")))
+
+(defmacro = (first-thing &rest other-things)
+  (defvar translated-first-thing (translate first-thing))
+  (concat "("
+          (join " &&\n "
+                (map other-things
+                     (lambda (thing)
+                       (concat translated-first-thing
+                               " === "
+                               (translate thing)))))
+          ")"))
+
+
+(defmacro string? (thing)
+  (concat "typeof(" (translate thing) ") === \"string\""))
+
+(defmacro list? (thing)
+  (defvar translated (concat "(" (translate thing) ")"))
+  (concat translated " && "
+	  translated ".constructor.name === \"Array\""))
+
+
+(defmacro when (arg &rest body)
+  (concat
+   "(function() {"
+   (indent (concat
+	    "if (" (translate arg) ") {"
+	    (indent (apply macros.progn body))
+	    "}"))
+   "})()"))
+
+
+
+(defmacro not (exp)
+  (concat "(!" (translate exp) ")"))
+
+(defmacro slice (arr start &optional end)
+  (macros.send (translate arr) "slice" start end))
+
+(defmacro inspect (&rest args)
+  (join " + \"\\n\" + "
+        (map args
+             (lambda (arg)
+               (concat "\"" arg ":\" + " (translate arg))))))
+
+(defmacro each (item array &rest body)
+  (macros.send (translate array) 'for-each
+               (apply macros.lambda (cons item body))))
+
+
+(defmacro setf (&rest args)
+  (join "\n"
+	(bulk-map args (lambda (name value)
+			 (as-statement (concat (translate name) " = "
+				 (translate value)))))))
+
+
+(defmacro macro-list ()
+  (concat "["
+	  (indent (join ",\n"
+			(map (-object.keys macros)
+			     macros.quote)))
+	  "]"))
+
+(defmacro macroexpand (name)
+  (defvar macro (get macros (translate name)))
+  (if macro
+    (concat "// macro: " name "\n" (send macro to-string))
+    "undefined"))
+
+(defmacro throw (&rest string)
+  (concat "throw new Error (" (join " " (map string translate)) ")"))
+
+(defmacro as-boolean (expr)
+  (concat "(!!(" (translate expr) "))"))
+
+(defmacro chain (object &rest calls)
+  (concat (translate object) " // chain"
+	  (indent (join "\n"
+                        (map calls
+                             (lambda (call, index)
+                               (defvar method (first call))
+                               (defvar args (rest call))
+                               (concat "." (translate method)
+                                       "(" (join ", " (map args translate)) ")")))))))
+
+(defmacro try (tryblock catchblock)
+  (concat
+   "(function() {"
+   (indent (concat
+	    "try {"
+	    (indent (macros.progn tryblock))
+	    "} catch (e) {"
+	    (indent (macros.progn catchblock))
+	    "}"))
+   "})()"))
+
+
+(defmacro while (condition &rest block)
+  (macros.scoped
+   (macros.defvar '**return-value**)
+   (concat "while (" (translate condition) ") {"
+           (indent (macros.setf '**return-value**
+                                (apply macros.scoped block))))
+   "}"
+   '**return-value**))
+
+(defmacro until (condition &rest block)
+  (apply (get macros 'while)
+         (cons ['not condition] block)))
+
+
+(defmacro thunk (&rest args)
+  (apply macros.lambda (cons [] args)))
+
+(defmacro keys (obj)
+  (macros.call "Object.keys" (translate obj)))
+
+(defmacro delete (&rest objects)
+  (join "\n" (map objects (lambda (obj)
+                            (concat "delete " (translate obj) ";")))))
+
+(defmacro delmacro (macro-name)
+  (delete (get macros (translate macro-name)))
+  "")
+
+(defmacro alias-macro (current-macro-name desired-macro-name)
+  (defvar current-macro-name (translate current-macro-name)
+          desired-macro-name (translate desired-macro-name))
+  (set macros desired-macro-name (get macros current-macro-name))
+  "")
+
+(defmacro rename-macro (current-macro-name desired-macro-name)
+  (macros.alias-macro current-macro-name desired-macro-name)
+  (macros.delmacro current-macro-name)
+  "")
+
+(defmacro defhash (name &rest pairs)
+  (macros.defvar name (apply macros.hash pairs)))
+
+(defmacro arguments ()
+  "(Array.prototype.slice.apply(arguments))")
+
+(defmacro scoped (&rest body)
+  (macros.call (apply macros.thunk body)))
+
+(defmacro each-key (as obj &rest body)
+  (concat "(function() {"
+	  (indent
+	   (concat "for (var " (translate as) " in " (translate obj) ") "
+		   (apply macros.scoped body)
+		   ";"))
+	  "})();"))
+
+(defmacro match? (regexp string)
+  (macros.send string 'match regexp))
+
+(defmacro switch (obj &rest cases)
+
+  ;; the complexity of this macro indicates there's a problem
+  ;; I'm not quite sure where to fix this, but it has to do with quoting.
+  (defvar lines (list (concat "switch(" (translate obj) ") {")))
+  (each (case-def) cases
+    (defvar case-name (first case-def))
+    (when (and (list? case-name)
+               (= (first case-name) 'quote))
+      (defvar second (second case-name))
+      (setf case-name (if (list? second)
+                        (map second macros.quote)
+                        (macros.quote second))))
+
+    (defvar case-string
+            (if (list? case-name)
+	      (join "\n" (map case-name (lambda (c)
+					  (concat "case " (translate c) ":"))))
+              (if (= 'default case-name) "default:"
+                  (concat "case " (translate case-name) ":"))))
+
+    (lines.push (concat case-string
+                        (indent (apply macros.progn (case-def.slice 1))))))
+
+  ;; the following two lines are to get the whitespace right
+  ;; this is necessary because switches are indented weird
+  (set lines (- lines.length 1)
+       (chain (get lines (- lines.length 1)) (concat "}")))
+
+  (concat "(function() {" (apply indent lines) "})()"))
+
+
+(defmacro if-else (&rest args)
+    (concat "(function() {"
+        (indent
+            (join " else "
+                (bulk-map args
+                    (lambda (cond val)
+                        (if (undefined? val)
+                            (concat "{" (indent (macros.progn cond)) "}")
+                            (concat "if (" (translate cond) ") {"
+                                (indent (macros.progn val))
+                                "}"))))))
+    "})()"))
+
+(defmacro let (args &optional body)
+  (concat "let (" (bulk-map args
+    (lambda (h k v)
+      (concat (translate k) " = " (translate v))))
+    (if (undefined? body) ");"
+        (concat ") {" (indent (translate body)) "}"))))
+
+(defmacro instance-of? (item type)
+  (concat "(" (translate item) " instanceof " (translate type) ")"))
+
+(defmacro slice (list &optional begin &optional end)
+  (concat "Array.prototype.slice.call(" (translate list)
+          ", " (or (translate begin) 0)
+          (if (defined? end) (concat ", " (translate end) ")") ")")))
+
+(defmacro ternary (cond if-true if-false)
+  (concat "(" (translate cond) ") ? "
+          (translate if-true) " : "
+          (translate if-false)))

data/js/sibilant/public/javascripts/sibilant.info.sibilant

@@ -0,0 +1,77 @@
+(defmacro trim (item)
+          (macros.send item 'replace "/^\\s*|\\s*$/g" "\"\""))
+
+(defmacro contains? (item arr)
+          ((get macros "!=") -1 (macros.send (translate arr) 'index-of item)))
+
+
+($ (thunk
+     (defvar $window ($ window))
+
+     (defun check-hash ()
+       (when (defined? check-hash.timeout)
+         (clear-timeout check-hash.timeout)
+         (delete check-hash.timeout))
+
+       
+       (when (!= window.location.hash ($window.data 'last-hash))
+         (chain $window
+           (data 'last-hash window.location.hash)
+           (trigger 'hash-change window.location.hash)))
+
+       (setf check-hash.timeout (set-timeout check-hash 500)))
+     
+     (defvar items ($ "script[language=sibilant/example]"))
+
+     ($window.click (thunk (set-timeout check-hash 25)))
+
+     ($window.bind 'hash-change
+                   (lambda (evt hash)
+                     (defvar item (send items filter hash))
+                     (when (< 0 item.length)
+                       (defvar content (chain item
+                                         (text)
+                                         (replace "<![CDATA[\n", "")
+                                         (replace "]]>" "")))
+                       (defvar title (send item attr "data-title"))
+                       (send ($ "header h2") html title)
+                       (defvar next (send item next items.selector))
+                       (defvar prev (send item prev items.selector))
+                       
+                       (if (> next.length 0)
+                         (chain ($ "#next")
+                           (attr 'href (concat "#" (send next attr 'id)))
+                           (show))
+                         (send ($ "#next") hide))
+                       
+                       (if (> prev.length 0)
+                         (chain ($ "#prev")
+                           (attr 'href (concat "#" (send prev attr 'id)))
+                           (show))
+                         (send ($ "#prev") hide))
+
+                       (chain ($ "textarea")
+                         (val (trim content))
+                         (keyup)))))
+
+
+     (switch window.location.hash
+       (("" "#")
+        (setf window.location.hash
+              (chain items (first) (attr 'id)))))
+
+     (defvar textarea ($ 'textarea))
+
+     (chain textarea
+       (focus)
+       (keyup (lambda (evt)
+                (defvar output ($ "#output"))
+                (try (chain output
+                       (text (sibilant.translate-all (textarea.val)))
+                       (remove-class 'error))
+                     (chain output
+                       (text e.stack)
+                       (add-class 'error))))))
+     (check-hash)))
+
+

data/js/sibilant/public/sass/_mixins.sass

@@ -0,0 +1,98 @@
+=clearfix
+  *display: inline-block
+  &:after
+    content: " "
+    display: block
+    height: 0
+    clear: both
+    visibility: hidden
+
+=border_radius($radius)
+  -moz-border-radius: $radius
+  -webkit-border-radius: $radius
+
+=border_radius_corners($top_left, $top_right, $bottom_right, $bottom_left)
+  +border_radius_top_left($top_left)
+  +border_radius_top_right($top_right)
+  +border_radius_bottom_right($bottom_right)
+  +border_radius_bottom_left($bottom_left)
+
+=border_radius_top($radius)
+  +border_radius_top_left($radius)
+  +border_radius_top_right($radius)
+
+=border_radius_bottom($radius)
+  +border_radius_bottom_left($radius)
+  +border_radius_bottom_right($radius)
+
+=border_radius_right($radius)
+  +border_radius_bottom_right($radius)
+  +border_radius_top_right($radius)
+
+=border_radius_left($radius)
+  +border_radius_bottom_left($radius)
+  +border_radius_top_left($radius)
+
+=border_radius_top_left($radius)
+  -moz-border-radius-topleft: $radius
+  -webkit-border-top-left-radius: $radius
+
+=border_radius_top_right($radius)
+  -moz-border-radius-topright: $radius
+  -webkit-border-top-right-radius: $radius
+
+=border_radius_bottom_right($radius)
+  -moz-border-radius-bottomright: $radius
+  -webkit-border-bottom-right-radius: $radius
+
+=border_radius_bottom_left($radius)
+  -moz-border-radius-bottomleft: $radius
+  -webkit-border-bottom-left-radius: $radius
+
+=box_shadow($shadow)
+  -webkit-box-shadow: $shadow
+  -moz-box-shadow: $shadow
+
+=button
+  +border_radius(4px)
+  color: rgba(0,0,0,0.75)
+  text-decoration: none
+  cursor: pointer
+  background: rgba(128,128,128,0.25)
+  border: 1px solid rgba(0, 0, 0, 0.25)
+  padding: 5px
+  display: inline-block
+  text-shadow: 1px 1px 1px rgba(255, 255, 255, 0.5)
+  font-weight: normal
+  +box_shadow(0 0 10px rgba(0,0,0,0.2))
+  &:hover
+    background: rgba(128,128,128,0.15)
+    +box_shadow(0 0 10px rgba(0,0,0,0.1))
+
+
+=small_button
+  +button
+  line-height: 15px
+  height: 15px
+  padding: 2px 5px
+
+=large_button
+  +button
+  font-size: 15px
+  display: block
+  text-align: center
+  width: 200px
+  height: 40px
+  &[href]
+    line-height: 40px
+  &[type=submit]
+    line-height: 30px
+  padding: 5px
+  vertical-align: middle
+  margin: auto
+
+
+=rotate($rotation)
+  -webkit-transform: unquote("rotate(") $rotation unquote(")")
+  -moz-transform: unquote("rotate(") $rotation unquote(")")
+

data/js/sibilant/public/sass/sibilant.sass

@@ -0,0 +1,156 @@
+@import _mixins.sass
+@font-face
+  font-family: 'AnonymousProRegular'
+  src: url('Anonymous_Pro-webfont.eot')
+  src: url('Anonymous_Pro-webfont.woff') format('woff'), url('Anonymous_Pro-webfont.ttf') format('truetype'), url('Anonymous_Pro-webfont.svg#webfontqJs74pnE') format('svg')
+  font-weight: normal
+  font-style: normal
+
+body, textarea
+  font-family: 'AnonymousProRegular', Arial, sans-serif
+
+
+#fork-me-on-github
+  :text-decoration none
+  font: 20px 'AnonymousProRegular', Arial, sans-serif
+  display: block
+  position: absolute
+  top: 70px
+  right: -70px
+  +rotate(45deg)
+  span
+    :background rgba(0,0,0,0.1)
+    :line-height 20px
+    :padding 3px 60px 7px
+    :color rgba(0,0,0,0.5)
+    +box_shadow(0 0 5px rgba(0,0,0,0.4))
+    :text-shadow 1px 1px 2px white
+    background-image: -webkit-gradient(linear,left top, left bottom, color-stop(0, rgb(230,230,230)), color-stop(1, rgb(255,255,255)))
+    background-image: -moz-linear-gradient(center bottom, rgb(230,230,230) 0%, rgb(255,255,255) 100%)
+    &:hover
+      +box_shadow(1px 1px 10px rgba(0,0,0,0.5))
+
+#controls
+  :position absolute
+  :bottom 0
+  :height 75px
+  :width 100%
+  :display block
+  a
+    :display inline-block
+    :margin 0 5px
+    +border_radius(10px)
+    :width 100px
+    :height 40px
+    :line-height 40px
+    :text-decoration none
+    :color rgba(0,0,0,0.6)
+    :text-shadow 0 1px 1px white
+    +box-shadow(3px 3px 3px rgba(0,0,0,0.1))
+    :background-color rgb(240,240,240)
+    :background-image -webkit-gradient(linear,left top, left bottom, color-stop(0, rgba(255,255,255,0.1)), color-stop(0.15, rgba(255,255,255,0.75)), color-stop(0.5, rgba(255,255,255,0)), color-stop(0.6, rgba(0,0,0,0)), color-stop(0.75, rgba(0,0,0,0.1)), color-stop(1, rgba(0,0,0,0.4))), -webkit-gradient(linear, left top, right top, color-stop(0, rgba(0,0,0,0.1)), color-stop(0.05, rgba(0,0,0,0)), color-stop(0.7, rgba(0,0,0,0)), color-stop(0.9, rgba(0,0,0,0.1)), color-stop(1, rgba(0,0,0,0.4)))
+    :background-image -moz-linear-gradient(center bottom, rgba(0,0,0,0.1) 3%, rgba(0,0,0,0.2) 5%, rgba(0,0,0,0) 40%)
+    :outline 0
+
+    &:hover
+      :background-color rgb(250,250,250)
+      :color rgba(0,0,0,0.75)
+    &:active
+      :background-image -webkit-gradient(linear,left bottom, left top, color-stop(0, rgba(0,0,0,0.1)), color-stop(0.1, rgba(0,0,0,0.2)), color-stop(0.5, rgba(255,255,255,0)), color-stop(0.6, rgba(0,0,0,0)), color-stop(0.75, rgba(0,0,0,0.1)), color-stop(1, rgba(0,0,0,0.4))), -webkit-gradient(linear, right top, left top, color-stop(0, rgba(0,0,0,0.1)), color-stop(0.05, rgba(0,0,0,0)), color-stop(0.7, rgba(0,0,0,0)), color-stop(0.9, rgba(0,0,0,0.1)), color-stop(1, rgba(0,0,0,0.4)))
+      :color rgba(0,0,0,1)
+      +box-shadow(3px 3px 3px rgb(255,255,255))
+
+
+
+
+
+html
+  padding: 0
+  background: white
+
+body
+  text-align: center
+  overflow: hidden
+  padding: 0
+  margin: 0
+  width: 100%
+  +clearfix
+  min-height: 500px
+  height: 100%
+  background-color: white
+  background-image: -webkit-gradient(linear,left top, left bottom, color-stop(0, rgb(230,230,230)), color-stop(1, rgb(255,255,255)))
+  background-image: -moz-linear-gradient(center bottom, rgb(255,255,255) 0%, rgb(230,230,230) 100%)
+
+
+
+h1, textarea, #output
+  +border_radius(5px)
+  :text-shadow 1px 1px 2px white
+  +box_shadow(2px 2px 5px rgba(255,255,255,1))
+  :border 1px solid rgba(0,0,0,0.1)
+    bottom: none
+    right: none
+
+
+h1
+  :background-color rgba(0,0,0,0.03)
+  +clearfix
+  font: 60px 'AnonymousProRegular', Arial, sans-serif
+  letter-spacing: 0
+  text-align: center
+  margin: 30px auto 15px
+  padding: 15px 25px
+  display: inline-block
+  +border_radius(10px)
+  :border-color rgba(0,0,0,0.2)
+  color: rgba(0,0,0,0.4)
+  background-image: -webkit-gradient(linear,left top, left bottom, color-stop(0, rgba(0,0,0,0.1)), color-stop(0.05, rgba(0,0,0,0.01)), color-stop(0.1, rgba(0,0,0,0.0))), -webkit-gradient(linear,left top, right top, color-stop(0, rgba(0,0,0,0.1)), color-stop(0.01, rgba(0,0,0,0.01)), color-stop(0.05, rgba(0,0,0,0.0)))
+  background-image: -moz-linear-gradient(center bottom, rgba(230,230,230, 0) 0%, rgba(255,255,255, 0.5) 10%)
+
+h2
+  font: 30px 'AnonymousProRegular', Arial, sans-serif
+  letter-spacing: 0
+  margin: 10px 0
+  text-align: center
+  color: rgba(0,0,0,0.5)
+  :text-shadow 0 1px 1px white
+
+
+textarea, #output
+  :background-color rgba(0,0,0,0.05)
+  +border_radius(5px)
+  :letter-spacing 2px
+  :text-align left
+  font: 16px 'AnonymousProRegular', Arial, sans-serif
+  :font-weight normal
+  :text-shadow 0 1px 0 white
+  :width 85%
+  :margin auto
+  :height 300px
+  :display block
+  :padding 20px
+  :resize none
+
+#output
+  :overflow auto
+  :margin-left 0
+  &.error
+    :font-size 10px
+    :color rgba(200,0,0,0.75)
+    &:first-line
+      :font-size 18px
+      :color rgba(200,0,0,0.85)
+
+#left, #right
+  :width 50%
+  :margin 0
+  :float left
+  :display block
+  :padding 0
+
+textarea:focus
+  outline: none
+
+
+.example
+  :display none