Re: Tip: Switching to clients specified by MATCH-SPEC

[Zajcev Evgeny <zevlg@xxxxxxxxx>]

Zajcev Evgeny <zevlg@xxxxxxxxx> writes:

> Firstly lets create a function to find the client among all clients
> managed by xwem:
>
>     (defun my-find-client (match-spec)
>       "Return client that matches MATCH-SPEC."
>       (let ((cls (xwem-clients-list)))
>         (while (and cls (not (xwem-cl-match-p (car cls) (list match-spec))))
>           (setq cls (cdr cls)))
>         (car cls)))

I found more nifty way to do it:

    (defun my-find-client (match-spec)
      "Return first client that matches MATCH-SPEC."
      (car (xwem-clients-list
            (lambda (cl) (xwem-cl-match-p cl match-spec)))))

-- 
lg