git.fiddlerwoaroof.com
parenscript/angular-framework.ps
89bed873
 (in-package :angular)
 
604ff249
 ;:action "/feeds/add?api=yes" :name "add-form" :id "add-form" :method "post" 
67a3d329
 (defmodule whitespace '(ng-resource ng-sanitize)
89bed873
   (defcontroller -Main-Ctrl ($http $resource $sce)
604ff249
     (resource feeds "/feeds" nil
               (json (method "GET" url "/feeds/json"))
               (add  (method "POST" url "/feeds/add")))
 
     (scope-var feeds (chain feeds (json)))
89bed873
     (scope-var data "hello world!")
604ff249
     (scope-var add-form (create url ""))
 
89bed873
     (scope-function render-html (html-code)
       (chain $sce (trust-as-html html-code)))
604ff249
 
89bed873
     (scope-function toggle-closed (ent)
       (setf (@ ent closed) (not (@ ent closed))))
604ff249
 
     (scope-function add-feed ()
       (chain feeds (add (create "url" ($s add-form url)
                                 "api" "yes"))
              $promise
              (then
                (lambda (feed)
                  ($s feeds result (unshift (@ feed result)))))))
89bed873
     ))
 
 ; vim: ft=lisp