Source

pico-org / org-http.l

Diff from to

org-http.l

 (de passoc (Key Lst) (cadr (seek '((X) (= Key (car X))) Lst)))
 (setq lookup passoc) #hack to override picostache to use plists
 
+(allow "*Text")
+(setq File "example.org.bak")
+
 (de start() 
+   (when *Post
+         (out 2 (prin *Text))
+         (out File (prin *Text))
+         (let Msg (in (list 'git "commit" "-a" "-m" "web update") (line))
+            (out 2 (prin Msg))))
+
   (let (Html (pack (readLines "org-html.html"))
          TemplateTree (parse Html)
-         Lines (readLines "example.org.bak")
+         Text (pack (in File (till NIL)))
+         Lines (readLines File)
          Org (org-parse Lines 0)
          Model (cons 'org (list Org))
-         HeaderTemplate (cdr TemplateTree))
+         HeaderTemplate (nth TemplateTree 4))
          
+         (setq Template TemplateTree)
+
+
          #need to find a more robust way to do this
          (push 'Model '((X) (if View (renderTree (cons 'org (list (list View))) HeaderTemplate))))
          (push 'Model 'orgt)
+         (push 'Model (pipe (ht:Prin (pack Text)) (till NIL)))
+         (push 'Model 'text)
+         (httpHead NIL NIL)
          (prinl (renderTree Model TemplateTree))))
 
 (de go ()