summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-11-24 10:11:39 -0500
committerYoni Rabkin <yoni@rabkins.net>2020-11-24 10:11:39 -0500
commit3b95e84156da397e07a0183a10582c5181afbafb (patch)
treebb642ade1b0abaccc45d35d83aa52ad96461abc3
parent71f0e4c67eb174cab605139c73f9af23ae592445 (diff)
* rt-liberation.el: reformatting
-rw-r--r--rt-liberation.el13
1 files changed, 0 insertions, 13 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 143923c..a1e6d62 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -133,7 +133,6 @@
(defvar rt-liber-browser-default-filter-function
'rt-liber-default-filter-f
"Default filtering function.
-
This is a function which accepts the ticket alist as a single
argument and returns nil if the ticket needs to be filtered out,
dropped or ignored (however you wish to put it.), otherwise the
@@ -203,7 +202,6 @@ server.")
(status . "Status")
(priority . "Priority"))
"Mapping between field symbols and RT field strings.
-
The field symbols provide the programmer with a consistent way of
referring to RT fields.")
@@ -213,14 +211,12 @@ referring to RT fields.")
(open . "open")
(new . "new"))
"Mapping between status symbols and status strings.
-
The status symbols provide the programmer with a consistent way
of referring to certain statuses. The status strings are the
server specific strings.")
(defvar rt-liber-debug-log-enable nil
"If t then enable logging of communication to a buffer.
-
Careful! This might create a sizable buffer.")
(defvar rt-liber-debug-log-buffer-name "*rt-liber debug log*"
@@ -228,19 +224,16 @@ Careful! This might create a sizable buffer.")
(defvar rt-liber-ticket-local nil
"Buffer local storage for a ticket.
-
This variable is made buffer local for the ticket history")
(defvar rt-liber-assoc-browser nil
"Browser associated with a ticket history.
-
This variable is made buffer local for the ticket history")
;;; --------------------------------------------------------
;;; Debug log
;;; --------------------------------------------------------
-
(defun rt-liber-debug-log-write (str)
"Write STR to debug log."
(when (not (stringp str))
@@ -254,7 +247,6 @@ This variable is made buffer local for the ticket history")
;;; --------------------------------------------------------
;;; TicketSQL compiler
;;; --------------------------------------------------------
-
(defun rt-liber-bool-p (sym)
"Return t if SYM is a boolean operator, otherwise nil."
(member sym '(and or)))
@@ -362,7 +354,6 @@ AFTER date after predicate."
;;; --------------------------------------------------------
;;; Parse Answer
;;; --------------------------------------------------------
-
(defun rt-liber-parse-answer (answer-string parser-f)
"Operate on ANSWER-STRING with PARSER-F."
(with-temp-buffer
@@ -377,7 +368,6 @@ AFTER date after predicate."
;;; --------------------------------------------------------
;;; Ticket list retriever
;;; --------------------------------------------------------
-
(put 'rt-liber-no-result-from-query-error
'error-conditions
'(error rt-liber-errors rt-liber-no-result-from-query-error))
@@ -565,8 +555,6 @@ The ticket's priority is compared to the variable
'(face font-lock-comment-face)))
(newline))
-
-
(defun rt-liber-ticketlist-browser-redraw (ticketlist &optional query)
"Display TICKETLIST. Optionally display QUERY as well."
(erase-buffer)
@@ -691,7 +679,6 @@ If POINT is nil then called on (point)."
;;; --------------------------------------------------------
;;; Ticket browser sorting
;;; --------------------------------------------------------
-
(defun rt-liber-lex-lessthan-p (a b field)
"Return t if A is lexicographically less than B in FIELD."
(let ((field-a (cdr (assoc field a)))