highlight searched token in gid window - emacs

Question

I have the following snippet in .emacs file:
(defvar gid-command "gid" "The command run by the gid function.")
(defun gid-select (args)
"Run gid, with user-specified ARGS, and collect output in a buffer.
While gid runs asynchronously, you can use the \\[next-error] command to
find the text that gid hits refer to. The command actually run is
defined by the gid-command variable."
(interactive (list
(read-input (concat "Run " gid-command " (with args): ") ;confirmation
;(word-around-point)
))
)
;; Preserve the present compile-command
(let (compile-command
(gid-buffer ;; if gid for each symbol use: compilation-buffer-name-function
(lambda (mode) (concat "*gid " args "*"))))
;; For portability between v18 & v19, use compile rather than compile-internal
(compile (concat gid-command " " args))))
How is it possible to highlight the token I am looking for in the gid compilation window.
I tried applying Iqbal's solution to highlight regex in igrep window but couldn't find comparable grep-setup-hook in gid.

Answer 1

Here is my original answer modified to work for gid searches
;;;; Code for highlighting the matches
(defface my-gid-highlight `((t :background "blue" :foreground "white")) "Face to highlight grep matches with")
(defvar my-current-id-regexp nil)
(defun my-highlight-regexp ()
;; compilation-filter-start is bound to the start of inserted line
(goto-char compilation-filter-start)
;; Highlight from start of line to end, this assumes the lines
;; output by grep are of the format <filename>:<line_no>:matches
;; Thanks a lot Drew Adams for this awesome function, it allows
;; us to highlight just a group of given regexp
(hlt-highlight-regexp-to-end my-current-id-regexp 'my-gid-highlight nil nil 1))
(defun my-gid-highlight-setup (buffer)
;; Setup a hook so that we are called back every time a line
;; is inserted in *compilation* buffer
(add-hook 'compilation-filter-hook 'my-highlight-regexp t t))
;;;; Your original code with some modifications
(defvar gid-command "gid" "The command run by the gid function.")
(defun gid-select (args)
"Run gid, with user-specified ARGS, and collect output in a buffer.
While gid runs asynchronously, you can use the \\[next-error] command to
find the text that gid hits refer to. The command actually run is
defined by the gid-command variable."
(interactive (list (read-input (concat "Run " gid-command " (with args): "))))
;; Dynamically set the compilation-start-hook to setup gid highlighting
(let* ((compilation-start-hook '(my-gid-highlight-setup))
;; Assuming the token to be searched is at the end of
;; args
(search-token (car (last (split-string args)))))
;; Set the regexp used to highlight the token (use in "my-highlight-regexp")
(setq my-current-id-regexp (format ":[0-9]+:.*\\(%s\\)" search-token))
;; Start gid
(compilation-start (concat gid-command " " args))))