jdormit/structlog-el
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add order-by clause

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-06-03 17:55:12 -04:00
parent e86983d522
commit 5b8b758c1a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
structlog-mode.el
View File

@ -70,6 +70,9 @@
":select [time event] :limit 100" ":select [time event] :limit 100"
"Default query for `structlog' command") "Default query for `structlog' command")
(defvar structlog-time-field 'time
"The structlog field designating the log timestamp")
(defun structlog--query-db (query) (defun structlog--query-db (query)
"Runs `query' against the database, returning a list of lists" "Runs `query' against the database, returning a list of lists"
(dolist (var '(structlog-db-username (dolist (var '(structlog-db-username
@ -110,10 +113,14 @@
(let ((base (format "SELECT %s FROM %s" (let ((base (format "SELECT %s FROM %s"
structlog-db-record-field structlog-db-record-field
structlog-db-table)) structlog-db-table))
(order-by (format "ORDER BY %s->'%s'"
structlog-db-record-field
structlog-time-field))
(limit (plist-get query :limit))) (limit (plist-get query :limit)))
(concat base (concat base " "
order-by " "
(when limit (when limit
(format " LIMIT %s" limit))))) (format "LIMIT %s" limit)))))
(defun structlog--make-list-entries () (defun structlog--make-list-entries ()
"Makes the tabulated-list-mode entries list for structlog" "Makes the tabulated-list-mode entries list for structlog"