diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2025-02-15 18:56:21 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2025-02-15 21:25:50 +0100 |
| commit | 5af18213b5d32391ea29ea4ac75cba020371dc4e (patch) | |
| tree | 18a36ddf710e8631064b0494079428d78705583b | |
| parent | 4cdf1d8a4685fc83be3a31143e2f2f86088199cd (diff) | |
| download | dotfiles-5af18213b5d32391ea29ea4ac75cba020371dc4e.tar.gz dotfiles-5af18213b5d32391ea29ea4ac75cba020371dc4e.tar.bz2 dotfiles-5af18213b5d32391ea29ea4ac75cba020371dc4e.zip | |
cmk on empty results
| -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 |