From 5af18213b5d32391ea29ea4ac75cba020371dc4e Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sat, 15 Feb 2025 18:56:21 +0100
Subject: cmk on empty results

---
 elisp/cmk.el | 20 +++++++++++---------
 1 file 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
-- 
cgit v1.2.3