Changeset 8674 in project


Ignore:
Timestamp:
02/23/08 16:08:43 (12 years ago)
Author:
felix winkelmann
Message:

tasks, alphabetic category sorting

Location:
release/3/egg-post-commit/branches/rrb2
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/egg-post-commit/branches/rrb2/egg-post-commit

    r8650 r8674  
    133133   "  $ chicken-setup -fetch EXTENSIONNAME\n\n"
    134134   "By default the archive will be unpacked into a temporary directory (named "
    135    "{{EXTENSIONNAME.egg.dir}} and the directory will be removed if the "
     135   "{{EXTENSIONNAME.egg-dir}} and the directory will be removed if the "
    136136   "installation completed successfully. To keep the extracted files add "
    137137   "{{-keep}} to the options passed to {{chicken-setup}}.\n\n"
     
    150150      (for-each
    151151       entry
    152        (filter (lambda (info)
    153                  (and (eq? cat (cadr (assq 'category (cdr info))))
    154                       (not (assq 'hidden (cdr info)))))
    155                eggs) )
     152       (sort
     153        (filter (lambda (info)
     154                  (and (eq? cat (cadr (assq 'category (cdr info))))
     155                       (not (assq 'hidden (cdr info)))))
     156                eggs)
     157        (lambda (e1 e2)
     158          (string<? (symbol->string (car e1)) (symbol->string (car e2))))))
    156159      (print "\n</table>") ] )
    157160   categories) )
  • release/3/egg-post-commit/branches/rrb2/post-commit.scm

    r8650 r8674  
    1313(define +police-file+ "post-commit-police")
    1414(define +recipients-file+ "post-commit-recipients")
     15(define +tasks-file+ "post-commit-tasks.scm")
    1516
    1617
     
    189190           (print-call-chain)
    190191           (set! problems #t) ) )
    191       (cond ((not (runcmd "svn revert wiki/* && svn up"))
     192      (cond ((and (not *report*) (not (runcmd "svn revert wiki/* && svn up")))
    192193             (with-output (cut print "Updating the repository failed."))
    193194             (set! problems #t) )
     
    242243        (with-output-to-file +last-revision-file+
    243244          (cut pp *top-revision*)) ) )
     245    (when (file-exists? +tasks-file+)
     246      (with-output (cut print "running post-commit-tasks..."))
     247      (load +tasks-file+))
    244248    (with-output (cut print "(post-commit) Finished."))
    245249    (if *report*
Note: See TracChangeset for help on using the changeset viewer.