[elpa] externals/detached 26501b5ebb 2/3: Use host-name function in detached-consult

[ELPA Syncer]

branch: externals/detached
commit 26501b5ebb4db5f73adb6664081fafeec150a1f2
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Use host-name function in detached-consult
---
 detached-consult.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/detached-consult.el b/detached-consult.el
index b10aea1bce..decf864c55 100644
--- a/detached-consult.el
+++ b/detached-consult.el
@@ -180,10 +180,12 @@ See `consult-multi' for a description of the source 
values."
             :items
             ,(lambda ()
                (let ((host-name (car (detached--host))))
-                 (mapcar #'car (seq-filter
-                                (lambda (x)
-                                  (string= (car (detached--session-host (cdr 
x))) host-name))
-                                (detached-session-candidates 
(detached-get-sessions)))))))
+                 (mapcar #'car
+                         (thread-last (detached-session-candidates 
(detached-get-sessions))
+                                      (seq-map #'cdr)
+                                      (seq-filter
+                                       (lambda (x)
+                                         (string= (detached-session-host-name 
x) host-name))))))))
   "Current host `detached' sessions as a source for `consult'.")
 
 ;;;; Commands