diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/cmk.el | 62 |
1 files changed, 46 insertions, 16 deletions
diff --git a/elisp/cmk.el b/elisp/cmk.el index 4ef87e2..a139258 100644 --- a/elisp/cmk.el +++ b/elisp/cmk.el @@ -118,25 +118,55 @@ Default is \"%Y-%m-%d %H:%M\"." ;; Filter: class = 8 ;; Or: 3\n\n") -(defun cmk-problems () - (interactive) - (let ((cmks (cmk-oneshot 'keep)) - (buffer (get-buffer-create "*CMK Problems*"))) +(defun cmk-livestatus-query (query) + "One shot livestatus QUERY, return network process." + (let ((cmks (cmk-oneshot 'keep))) (with-current-buffer (process-buffer cmks) (erase-buffer)) - (process-send-string cmks - (concat (string-join `("GET services" - ,(cmk-colums-from-spec cmk-problem-col-spec) - "Filter: service_description ~ load") "\n") - "\n\n")) - (with-current-buffer buffer - (tabulated-list-mode) - (setq tabulated-list-format (vconcat cmk-problem-col-spec)) - (setq tabulated-list-sort-key '("STATE" . nil)) + (process-send-string cmks query) + cmks)) + +(defvar-local cmk-livestatus-query "" + "Livestatus query in buffer.") + +(defun cmk-table--refresh () + "Query and reprint the Livestatus query result table." + (let ((cmks (cmk-livestatus-query cmk-livestatus-query))) (accept-process-output cmks 0.1) (setq tabulated-list-entries (cmk-parse-rows (process-buffer cmks) cmk-problem-col-spec)) - (tabulated-list-init-header) - (tabulated-list-print) - (display-buffer (current-buffer))))) + (tabulated-list-print 'remember))) + +(defun cmk-edit-lq (query buffer) + (interactive (list cmk-livestatus-query (current-buffer))) + (with-current-buffer (get-buffer-create "*LQ*") + (prog-mode) + (insert query) + (local-set-key "\C-c\C-c" + (lambda () + (interactive) + (let ((new-query (-> (buffer-string) (string-trim) (concat "\n\n")))) + (kill-buffer) + (switch-to-buffer buffer) + (setq-local cmk-livestatus-query new-query) + (cmk-table--refresh)))) + (switch-to-buffer (current-buffer)))) + +(defun cmk-problems () + (interactive) + (with-current-buffer (get-buffer-create "*CMK Problems*") + (tabulated-list-mode) + (setq-local cmk-livestatus-query + (concat (string-join `("GET services" + ,(cmk-colums-from-spec cmk-problem-col-spec) + "Filter: service_description ~ load") "\n") + "\n\n")) + (setq tabulated-list-format (vconcat cmk-problem-col-spec)) + (setq tabulated-list-sort-key '("STATE" . nil)) + + (local-set-key "Q" #'cmk-edit-lq) + (add-hook 'tabulated-list-revert-hook #'cmk-table--refresh nil t) + (tabulated-list-init-header) + (cmk-table--refresh) + (switch-to-buffer (current-buffer)))) ;;; Get a different csv ;; (let* ((cmks (cmk-oneshot t))) |