awfully wrong pasted by saeftl on Mon Mar 17 14:42:16 2014

#!/usr/local/bin/awful                                                                                           
(use srfi-1 html-utils html-tags awful srfi-13 regex)                                                            
(define (underfoo path) (let ((blah (string-match  path)))                                                       
    (if (not blah) #f #t)))                                                                                      
                                                                                                                 
(define-page (regexp "^,*/foo.*")                                                                                
    (lambda (nick)                                                                                               
        (lambda ()                                                                                               
            (html-page (<div> id: anotherdiv (<h1> (string-append "Oh it's you!" nick)))))))                     
                                                                                                                 
                                                                                                                 
(define-page (regexp ".*")                                                                                       
  (lambda ()                                                                                                     
    (html-page (<div> id: "adiv" (<h1> "hallo")                                                                  
        (form                                                                                                    
             `(( "Your nick: " ,(text-input 'nick)))                                                             
             action: "/foo"                                                                                      
             method: "post"                                                                                      
             )))))
[ permalink | raw ]

awfully working pasted by mario-goulart on Mon Mar 17 15:33:05 2014

#!/usr/local/bin/awful

(use srfi-1 html-utils html-tags awful srfi-13 regex)

(define (underfoo path)
  (let ((blah (string-match  path)))
    (if (not blah) #f #t)))

(define-page (regexp "^.*/foo.*")
  (lambda (nick)
    (<div> id: "anotherdiv"
           (<h1> (string-append "Oh it's you!" nick))))
  method: 'post)

(define-page (main-page-path)
  (lambda ()
    (<div> id: "adiv" (<h1> "hallo")
           (form
            (string-append "Your nick: "
                           (text-input 'nick))
            action: "/foo"
            method: "post"))))
[ permalink | raw ]

simpler added by mario-goulart on Mon Mar 17 16:04:18 2014

#!/usr/local/bin/awful

(use srfi-1 html-utils html-tags awful srfi-13 regex)

(define-page "/foo"
  (lambda ()
    (with-request-variables (nick)
      (<div> id: "anotherdiv"
             (<h1> (string-append "Oh it's you!" nick)))))
  method: 'post)

(define-page (main-page-path)
  (lambda ()
    (<div> id: "adiv" (<h1> "hallo")
           (form
            (string-append "Your nick: "
                           (text-input 'nick))
            action: "/foo"
            method: "post"))))
[ permalink | raw ]