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
|