Changeset 26194 in project for release/4/awful/trunk/awful.scm


Ignore:
Timestamp:
03/17/12 17:05:06 (9 years ago)
Author:
Mario Domenech Goulart
Message:

awful: define-page''s use-ajax' keyword parameter can also be bound to a string indicating the path to the ajax library.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/awful/trunk/awful.scm

    r25888 r26194  
    551551                                (sid (session-create))
    552552                                ((session-cookie-setter) (sid)))))
    553                         (let* ((ajax? (cond (no-ajax #f)
    554                                             ((not (ajax-library)) #f)
    555                                             ((and (ajax-library) use-ajax) #t)
    556                                             ((enable-ajax) #t)
    557                                             (else #f)))
     553                        (let* ((ajax?
     554                                (or (string? use-ajax)
     555                                    (cond (no-ajax #f)
     556                                          ((not (ajax-library)) #f)
     557                                          ((and (ajax-library) use-ajax) #t)
     558                                          ((enable-ajax) #t)
     559                                          (else #f))))
    558560                               (contents
    559561                                (handle-exceptions exn
     
    581583                                   doctype: (or doctype (page-doctype))
    582584                                   headers: (++ (if ajax?
    583                                                     (<script> type: "text/javascript" src: (ajax-library))
     585                                                    (<script> type: "text/javascript"
     586                                                              src: (if (string? use-ajax)
     587                                                                       use-ajax
     588                                                                       (ajax-library)))
    584589                                                    "")
    585590                                                (or headers "")
Note: See TracChangeset for help on using the changeset viewer.