aboutsummaryrefslogtreecommitdiffstats
path: root/elisp/cmk.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/cmk.el')
-rw-r--r--elisp/cmk.el17
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))))