From a2701faaf8059c194ef8aa9661536cf9c8fc7661 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Wed, 28 Sep 2022 14:51:13 +0200
Subject: Font lock livestatus query

---
 elisp/cmk.el | 42 +++++++++++++++++++++++++++---------------
 1 file changed, 27 insertions(+), 15 deletions(-)

(limited to 'elisp')

diff --git a/elisp/cmk.el b/elisp/cmk.el
index a139258..6e2b7e0 100644
--- a/elisp/cmk.el
+++ b/elisp/cmk.el
@@ -135,20 +135,32 @@ Default is  \"%Y-%m-%d %H:%M\"."
       (setq tabulated-list-entries (cmk-parse-rows (process-buffer cmks) cmk-problem-col-spec))
       (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))))
+(define-derived-mode cmk-livestatus-mode prog-mode "livestatus"
+  "Major mode for viewing journalctl output."
+  ;; code for syntax highlighting
+  (setq font-lock-defaults `(((,(rx bol "GET" eow) . font-lock-keyword-face)
+                              (,(rx word-start (or "hosts" "services")  word-end) . font-lock-constant-face)
+                              (,(rx bol (or "Filter" "Columns" "Stats" "Limit") ":" whitespace) . font-lock-function-name-face)
+                              (,(rx bol (or "And" "Or" "Negate") ":" whitespace) . font-lock-keyword-face)
+                              (,(rx whitespace (or "~" "=" "=~" "~~" "<" ">" "<=" ">=") whitespace) . font-lock-keyword-face)))))
+
+(defun cmk-edit-lq (buffer)
+  "Open window to edit the livestatus query of current BUFFER."
+  (interactive (list (current-buffer)))
+  (let ((query cmk-livestatus-query)
+        (edit-buffer (get-buffer-create "*LQ*")))
+    (with-current-buffer edit-buffer
+      (cmk-livestatus-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 edit-buffer)))
 
 (defun cmk-problems ()
   (interactive)
@@ -157,7 +169,7 @@ Default is  \"%Y-%m-%d %H:%M\"."
     (setq-local cmk-livestatus-query
                 (concat (string-join  `("GET services"
                                         ,(cmk-colums-from-spec cmk-problem-col-spec)
-                                        "Filter: service_description ~ load") "\n")
+                                        ,cmk-lq-problems-filter) "\n")
                         "\n\n"))
     (setq tabulated-list-format (vconcat cmk-problem-col-spec))
     (setq tabulated-list-sort-key '("STATE" . nil))
-- 
cgit v1.2.3