diff options
Diffstat (limited to 'elisp')
-rw-r--r-- | elisp/cmk.el | 17 |
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)))) |