Changeset 18045 in project


Ignore:
Timestamp:
05/11/10 22:06:28 (9 years ago)
Author:
Mario Domenech Goulart
Message:

awful (trunk)

  • reload-path', reload-message' and `enable-reload' are gone
  • `awful-apps' (a parameter) has been added
Location:
release/4/awful/trunk
Files:
2 edited

Legend:

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

    r17147 r18045  
    99  (when exit-code (exit exit-code)))
    1010
    11 (let ((apps (command-line-arguments)))
    12   (when (null? apps)
    13     (usage 1))
    14   (load-apps apps)
    15   (register-root-dir-handler)
    16   (register-dispatcher)
    17   (awful-start))
     11(awful-apps (command-line-arguments))
     12(when (null? (awful-apps)) (usage 1))
     13(load-apps (awful-apps))
     14(register-root-dir-handler)
     15(register-dispatcher)
     16(awful-start)
  • release/4/awful/trunk/awful.scm

    r18038 r18045  
    11(module awful
    22  (;; Parameters
    3    reload-path reload-message enable-reload debug-file debug-db-query?
     3   awful-apps debug-file debug-db-query?
    44   debug-db-query-prefix db-credentials ajax-library
    55   enable-ajax ajax-namespace enable-session page-access-control
     
    4343
    4444;; User-configurable parameters
    45 (define reload-path (make-parameter "/reload"))
    46 (define reload-message (make-parameter (<h3> "Reloaded.")))
    47 (define enable-reload (make-parameter #f))
     45(define awful-apps (make-parameter '()))
    4846(define debug-file (make-parameter #f))
    4947(define debug-db-query? (make-parameter #t))
     
    106104(define (load-apps apps)
    107105  (set! *resources* (make-hash-table equal?))
    108   (for-each load apps)
    109   (unless (enable-reload)
    110     (add-resource! (reload-path)
    111                    (root-path)
    112                    (lambda (#!optional _) (load-apps apps))))
    113   (reload-message))
     106  (for-each load apps))
    114107
    115108(define awful-start start-server)
Note: See TracChangeset for help on using the changeset viewer.