Changeset 12889 in project


Ignore:
Timestamp:
12/27/08 18:57:26 (12 years ago)
Author:
sjamaan
Message:

Make clients procedure accept a tagname

File:
1 edited

Legend:

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

    r11220 r12889  
    318318  (delete "sel" (9p:directory *connection* "/tag")))
    319319
    320 (define (clients)
    321   (delete "sel" (9p:directory *connection* "/client")))
     320(define (clients . rest)
     321  (let-optionals rest ((tag #f))
     322    (let ((clients (delete "sel" (9p:directory *connection* "/client"))))
     323      (if tag
     324          (filter! (lambda (c) (member tag (client-tags c) string=?)) clients)
     325          clients))))
    322326
    323327(define (write-tab bar tab contents . rest)
Note: See TracChangeset for help on using the changeset viewer.