cmk on port instead of socket

1 files changed, 9 insertions, 8 deletions

diff --git a/elisp/cmk.el b/elisp/cmk.el
index 6023cf0..52462e7 100644
--- a/elisp/cmk.el
+++ b/elisp/cmk.el
@@ -52,7 +52,8 @@ Default is  \"%Y-%m-%d %H:%M\"."
   "One shot socket connection. non-nil KEEP-BUFFER after socket closes."
   (make-network-process
    :name "Checkmk"
-   :remote "/tmp/ingridcmk.socket"
+   :host 'local
+   :service 6565
    :buffer "CMK"
    :sentinel (lambda (process event)
                (message "Process: %s had the event '%s'" process (string-trim event))
@@ -103,13 +104,13 @@ Default is  \"%Y-%m-%d %H:%M\"."
                              (or (plist-get (cdddr spec) :parser) #'identity))
                            column-spec)))
       (while (not (eobp))
-        (push
-         (list (count-lines 1 (point))
-               (cl-map 'vector
-                       (lambda (parser entry) (funcall parser entry))
-                       parsers
-                       (split-string (thing-at-point 'line t) ";" nil "\n")))
-              rows)
+        (thread-first
+          (list (count-lines 1 (point))
+                (cl-map 'vector
+                        (lambda (parser entry) (funcall parser entry))
+                        parsers
+                        (split-string (thing-at-point 'line t) ";" nil "\n")))
+          (push rows))
         (forward-line))
       (nreverse rows))))