emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/rt-liberation 05beb9f 72/72: * rt-liberation.el: remove


From: Stefan Monnier
Subject: [elpa] externals/rt-liberation 05beb9f 72/72: * rt-liberation.el: remove old cli code
Date: Wed, 5 Aug 2020 11:57:47 -0400 (EDT)

branch: externals/rt-liberation
commit 05beb9f354ed1f4600b18d88954a485536b3f8f9
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el: remove old cli code
---
 rt-liberation.el | 72 +-------------------------------------------------------
 1 file changed, 1 insertion(+), 71 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 2eeea6c..b6345ba 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -46,6 +46,7 @@
 
 (require 'rt-liberation-rest)
 
+
 (defgroup rt-liber nil
   "*rt-liberation, the Emacs interface to RT"
   :prefix "rt-liber-"
@@ -96,9 +97,6 @@
   "^Type: \\(EmailRecord\\|CommentEmailRecord\\|Correspond\\)"
   "Regular expression for correspondence sections.")
 
-(defvar rt-liber-rt-version "X.Y.Z"
-  "Version of the RT CLI.")
-
 (defvar rt-liber-username nil
   "Username for assigning ownership on the RT server.")
 
@@ -368,26 +366,6 @@ AFTER  date after predicate."
 
 
 ;;; --------------------------------------------------------
-;;; TicketSQL runner
-;;; --------------------------------------------------------
-
-(defun rt-liber-ticketsql-runner-parser-f ()
-  "Parser function for a textual list of tickets."
-  (let (idsub-list)
-    (while (or
-           (and (not (rt-liber-version-< rt-liber-rt-version
-                                         "3.8.2"))
-                (re-search-forward "^ *\\([0-9]+\\) *\\(.*\\)$"
-                                   (point-max) t))
-           (re-search-forward "^\\([0-9]+\\): \\(.*\\)$"
-                              (point-max) t))
-      (push (list (match-string-no-properties 1)
-                 (match-string-no-properties 2))
-           idsub-list))
-    idsub-list))
-
-
-;;; --------------------------------------------------------
 ;;; Ticket list retriever
 ;;; --------------------------------------------------------
 
@@ -433,54 +411,6 @@ AFTER  date after predicate."
                   ticket-list)))
       (signal 'rt-liber-no-result-from-query-error nil))))
 
-(defun rt-liber-run-show-base-query (idsublist)
-  "Run \"show\" type query against the server with IDSUBLIST."
-  (rt-liber-parse-answer
-   (rt-liber-query-runner "show"
-                         (rt-liber-create-tickets-string idsublist))
-   #'rt-liber-ticket-base-retriever-parser-f))
-
-
-;;; --------------------------------------------------------
-;;; Ticket retriever
-;;; --------------------------------------------------------
-
-(defun rt-liber-create-ticket-history-string (ticket-id)
-  "Create a query for TICKET-ID to retrieve all history objects."
-  (concat "ticket/" ticket-id "/history/id"))
-
-(defun rt-liber-create-ticket-histories-string (ticket-id subid-list)
-  "Create query for TICKET-ID to retrieve SUBID-LIST objects."
-  (concat "ticket/" ticket-id "/history/id/"
-         (reduce
-          #'(lambda (a b) (format "%s,%s" a b)) subid-list)))
-
-(defun rt-liber-run-ticket-history-base-query (ticket-id)
-  "Run history query against server for TICKET-ID."
-  (rt-liber-parse-answer
-   (rt-liber-query-runner "show"
-                         (rt-liber-create-ticket-history-string
-                          ticket-id))
-   (if (rt-liber-version-< rt-liber-rt-version "3.8.2")
-       #'(lambda ()
-          (let ((ticket-history-sublist nil))
-            (goto-char (point-min))
-            (while (re-search-forward "^\\([0-9]+\\): " (point-max) t)
-              (setq ticket-history-sublist
-                    (append (list (match-string-no-properties 1))
-                            ticket-history-sublist)))
-            (if ticket-history-sublist
-                (rt-liber-parse-answer
-                 (rt-liber-query-runner
-                  "show"
-                  (rt-liber-create-ticket-histories-string
-                   ticket-id
-                   ticket-history-sublist))
-                 #'(lambda () (buffer-substring (point-min)
-                                                (point-max))))
-              (error "an unhandled exceptions occurred"))))
-     #'(lambda () (buffer-substring (point-min) (point-max))))))
-
 
 ;;; --------------------------------------------------------
 ;;; Ticket utilities



reply via email to

[Prev in Thread] Current Thread [Next in Thread]