# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1626875121 -10800
# Node ID 363696dc8d3ccb3f119bae0093700dc21bbc005e
# Parent  2335b10cbc888b9a6ae5945644d2f9e712ee6049
Highlighting for Sabre SSRs.

diff -r 2335b10cbc88 -r 363696dc8d3c mylisp/gds-sabre.el
--- a/mylisp/gds-sabre.el	Tue Jul 20 17:03:51 2021 +0300
+++ b/mylisp/gds-sabre.el	Wed Jul 21 16:45:21 2021 +0300
@@ -19,7 +19,7 @@
     text))
 
 ;;;###autoload
-(defun gds-sabre-highlight ()
+(defun gds-sabre-highlight-getres ()
   (interactive)
   (highlight-regexp " \\(?:[[:alpha:]_]*PseudoCityCode\\|CreationAgent\\|BookingSource\\|AgentSine\\)=\"\\([^\"]+\\)\"" 'hi-pink 1)
   (highlight-regexp "<\\([[:alnum:]]*:?\\)\\(RecordLocator\\|DepartureAirport\\|ArrivalAirport\\|MarketingAirlineCode\\|MarketingFlightNumber\\)>\\([^<]+\\)</\\1\\2>" 'hi-pink 3)
@@ -29,6 +29,17 @@
   (highlight-regexp "\\(?:ResBookDesigCode\\|Status\\|FlightNumber\\|ArrivalDateTime\\|DepartureDateTime\\|FareBasisCode\\|passengerType\\)=\"\\([^\"]+\\)\"" 'hi-green 1)
   (highlight-phrase "InputMessage=" 'hi-blue))
 
+(defvar gds-sabre-highlight-ssrs
+  (regexp-opt '("ADV OTO TKT" "ADV MORE TKT" "CANCELLED DUE TO SYSTEM OR PASSENGER")))
+
+;;;###autoload
+(defun gds-sabre-highlight-hist ()
+  (interactive)
+  (highlight-regexp "^\\(?:SC\\|AS\\|XS\\)  .*" 'hi-yellow)
+  (highlight-regexp gds-sabre-highlight-ssrs 'hi-pink)
+  (highlight-regexp "^[A-Z0-9]\\{4\\} [A-Z0-9]\\{4\\}\\*[A-Z0-9]\\{3\\} [0-9]\\{4\\}/[0-9]\\{2\\}[A-Z]\\{3\\}[0-9]\\{2\\}" 'hi-blue 0)
+  (highlight-regexp "^PLT PLTRM[A-Z0-9]\\{2\\} .*" 'hi-green 0))
+
 ;;;###autoload
 (defun gds-tp-highlight ()
   (interactive)