pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

if nothing matches, don't select anything

Browse source
This commit is contained in:
Benson Chu 2024-02-15 14:21:12 -06:00
parent aca1722841
commit a1863063c8
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/exwm-lib/exwmx-appconfig-predicates.el
View file

@ -110,15 +110,21 @@ or use `exwmx-appconfig-ignore' ignore."
(with-current-buffer buffer
major-mode)))
(with-current-buffer buffer
(-every
(lambda (rule)
(let* ((key (nth 0 rule))
(search-string (nth 1 rule))
(test-function (or (nth 2 rule) #'equal))
(prop-value (exwm-buffer-extract-prop buffer key)))
(and (functionp test-function)
(funcall test-function search-string prop-value))))
alist)))
(let ((one-matched nil))
(and
(-every
(lambda (rule)
(let* ((key (nth 0 rule))
(search-string (nth 1 rule))
(test-function (or (nth 2 rule) #'equal))
(prop-value (exwm-buffer-extract-prop buffer key)))
(when (and (functionp test-function)
(funcall test-function search-string prop-value))
(when search-string
(setq one-matched t))
t)))
alist)
one-matched))))
(defun exwmx-find-buffers (appconfig &optional alist)
(let (result)