This commit is contained in:
2023-05-21 20:51:38 +02:00
parent 934ff45672
commit c76ce05ffe

2
rbw.el
View File

@@ -71,8 +71,8 @@
(string-match "\\([^:]*\\)$" output)
(let* ((trimmed (string-trim (match-string 1 output)))
(splitted (split-string trimmed ", "))
(splitted (cl-remove-if-not (lambda (x) (string-match "@" x)) splitted))
(ending (concat "@" selected))
(splitted (cl-remove-if-not (lambda (x) (string-match ending x)) splitted))
(result-list '()))
(dolist (element splitted)
(push (car (split-string element ending)) result-list))