From c9946684cb6e38c9a7c3353bc8e769ca3b958770 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Sun, 20 Oct 2024 02:40:06 +0200 Subject: cmk on port instead of socket --- elisp/cmk.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'elisp/cmk.el') 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)))) -- cgit v1.2.3