diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/cmk.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/elisp/cmk.el b/elisp/cmk.el index a19d573..a585e55 100644 --- a/elisp/cmk.el +++ b/elisp/cmk.el @@ -221,14 +221,15 @@ Default is \"%Y-%m-%d %H:%M\"." (cmk-colums-from-spec spec) filters "OutputFormat: json"))) - (make-vtable - :columns (mapcar (lambda (li) (map-delete (map-copy li) :column)) spec) - :use-header-line nil - :objects (cmk-livestatus->json livestatus-query) - :keymap (define-keymap - "Q" #'cmk-edit-lq - "q" #'kill-current-buffer)) - (cmk-add-text-properties-to-table (list 'livestatus-query livestatus-query)))) + (when-let ((objects (cmk-livestatus->json livestatus-query))) + (make-vtable + :columns (mapcar (lambda (li) (map-delete (map-copy li) :column)) spec) + :use-header-line nil + :objects objects + :keymap (define-keymap + "Q" #'cmk-edit-lq + "q" #'kill-current-buffer)) + (cmk-add-text-properties-to-table (list 'livestatus-query livestatus-query))))) (defun cmk-problems () "Render default problems view." @@ -237,6 +238,7 @@ Default is \"%Y-%m-%d %H:%M\"." (with-current-buffer (get-buffer-create "*CMK View*") (special-mode) (erase-buffer) + (insert "Active Service Problems\n") (cmk-vtable "services" cmk-problem-col-spec "Filter: service_state = 0 Filter: service_has_been_checked = 1 @@ -256,7 +258,7 @@ Filter: host_has_been_checked = 1 And: 2 Negate:") (goto-char (point-max)) - (insert "\n") + (insert "\nEvent in recent 24 hours\n") (cmk-vtable "log" cmk-log-col-spec (format "Filter: log_time >= %d |