[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/rt-liberation f67581b 32/72: Implement and start using
From: |
Stefan Monnier |
Subject: |
[elpa] externals/rt-liberation f67581b 32/72: Implement and start using REST show query. |
Date: |
Wed, 5 Aug 2020 11:57:38 -0400 (EDT) |
branch: externals/rt-liberation
commit f67581bea9216b8d0b624de3673c718073b9d6b6
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>
Implement and start using REST show query.
At this point the most basic functionality of rt-liberation, that of
listing tickets in response to a query, is using the REST interface.
---
rt-liberation-rest.el | 24 ++++++++++++++++++------
rt-liberation.el | 2 +-
2 files changed, 19 insertions(+), 7 deletions(-)
diff --git a/rt-liberation-rest.el b/rt-liberation-rest.el
index a13b039..2121aba 100644
--- a/rt-liberation-rest.el
+++ b/rt-liberation-rest.el
@@ -108,7 +108,6 @@
(defun rt-liber-rest-query-runner (op query-string)
"Run OP on QUERY-STRING."
- (message "starting REST '%s' query at %s..." op (current-time-string))
(when (or (not (stringp op))
(not (stringp query-string)))
(error "bad arguments"))
@@ -157,6 +156,16 @@
(rt-liber-rest-query-runner "ls" query)
'rt-liber-rest-ticketsql-runner-parser-f))
+(defun rt-liber-rest-show-process (response)
+ "Process and return the show query response."
+ (when (not (stringp response))
+ (error "argument not a string"))
+ (with-temp-buffer
+ (save-excursion
+ (insert response))
+ (rt-liber-rest-parse-http-header)
+ (buffer-substring (point) (point-max))))
+
(defun rt-liber-rest-show-query-runner (idsublist)
"Iterate over IDSUBLIST and return the collected result."
(when (not (listp idsublist))
@@ -172,15 +181,18 @@
(setq c (1+ c)))
(insert
- (rt-liber-rest-query-runner "show" (caar ticket-ids)))
- (setq ticket-ids (cdr ticket-ids))))
+ (rt-liber-rest-show-process
+ (rt-liber-rest-query-runner "show" (caar ticket-ids))))
+ (setq ticket-ids (cdr ticket-ids))
+ (when ticket-ids
+ (insert "\n--\n"))))
(buffer-substring (point-min) (point-max))))
(defun rt-liber-rest-run-show-base-query (idsublist)
"Run \"show\" type query against the server with IDSUBLIST."
- ;;(rt-liber-parse-answer
- (rt-liber-rest-show-query-runner idsublist))
-;;#'rt-liber-ticket-base-retriever-parser-f))
+ (rt-liber-parse-answer
+ (rt-liber-rest-show-query-runner idsublist)
+ #'rt-liber-ticket-base-retriever-parser-f))
(provide 'rt-liberation-rest)
diff --git a/rt-liberation.el b/rt-liberation.el
index 532e034..c7a3a33 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1077,7 +1077,7 @@ string then that will be the name of the new buffer."
(interactive "Mquery: ")
(condition-case excep
(rt-liber-browser-startup
- (rt-liber-run-show-base-query
+ (rt-liber-rest-run-show-base-query
(rt-liber-rest-run-ls-query query))
query new)
(rt-liber-no-result-from-query-error
- [elpa] externals/rt-liberation aa3aa83 15/72: * rt-liberation.el: Add priority update and display., (continued)
- [elpa] externals/rt-liberation aa3aa83 15/72: * rt-liberation.el: Add priority update and display., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 28b08a4 17/72: * doc/rt-liberation.texinfo: Document new features., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 7ee937c 18/72: * doc/rt-liberation.texinfo: Add dependencies to the manual., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation bd60dc3 20/72: * rt-liberation-rest.el: Document the show query issue., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 60ead31 24/72: * rt-liberation-gnus.el: Improve Gnus integration., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation c654b30 26/72: * rt-liberation.el: Mark spam feature as very broken., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation b640bb7 25/72: Merge branch 'master' into rest, Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation e06992e 27/72: Merge branch 'master' into rest, Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 3e4a424 29/72: Merge branch 'master' into rest, Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 6e75dbb 31/72: * rt-liberation-rest.el: Start work on `show' query., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation f67581b 32/72: Implement and start using REST show query.,
Stefan Monnier <=
- [elpa] externals/rt-liberation 1aa3ed0 33/72: * rt-liberation-rest.el: Show feedback when complete., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 92e78fa 35/72: Integrate rt-liber-rest-edit-runner and add fields., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 5dc7165 36/72: Port status changes to REST interface., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation e5fe16e 40/72: Remove more spam related code., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 82f74ff 41/72: Re-write command set and assignment code., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation 19dc998 44/72: * doc/rt-liberation.texinfo: Update documentation., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation e1c818c 19/72: * rt-liberation-rest.el: New file., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation a315322 21/72: * doc/gpl.texi: Update GPL copy., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation a723939 22/72: * doc/gpl.texi: Downgrade to version 2., Stefan Monnier, 2020/08/05
- [elpa] externals/rt-liberation e46e2ad 28/72: * rt-liberation.el: Syntax bug fix., Stefan Monnier, 2020/08/05