Changeset 12891 in project


Ignore:
Timestamp:
12/27/08 19:08:42 (11 years ago)
Author:
sjamaan
Message:

Merge changes from release 4 wmiirc

Location:
release/3/wmiirc/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/wmiirc/trunk

  • release/3/wmiirc/trunk/wmiirc.scm

    r8660 r12891  
    308308  (delete "sel" (9p:directory *wmii:connection* "/tag")))
    309309
    310 (define (wmii:clients)
    311   (delete "sel" (9p:directory *wmii:connection* "/client")))
     310(define (wmii:clients . rest)
     311  (let-optionals rest ((tag #f))
     312    (let ((clients (delete "sel" (9p:directory *wmii:connection* "/client"))))
     313      (if tag
     314          (filter! (lambda (c) (member tag (wmii:client-tags c) string=?)) clients)
     315          clients))))
    312316
    313317(define (wmii:write-tab bar tab contents . rest)
Note: See TracChangeset for help on using the changeset viewer.