# Colors definitions
export fg_black=$'\e[30m'
export fg_red=$'\e[31m'
export fg_green=$'\e[32m'
export fg_yellow=$'\e[33m'
export fg_blue=$'\e[34m'
export fg_magenta=$'\e[35m'
export fg_cyan=$'\e[36m'
export fg_white=$'\e[37m'

export fg_black_bold=$'\e[30;1m'
export fg_red_bold=$'\e[31;1m'
export fg_green_bold=$'\e[32;1m'
export fg_yellow_bold=$'\e[33;1m'
export fg_blue_bold=$'\e[34;1m'
export fg_magenta_bold=$'\e[35;1m'
export fg_cyan_bold=$'\e[36;1m'
export fg_white_bold=$'\e[37;1m'

export bg_black=$'\e[40m'
export bg_red=$'\e[41m'
export bg_green=$'\e[42m'
export bg_yellow=$'\e[43m'
export bg_blue=$'\e[44m'
export bg_magenta=$'\e[45m'
export bg_cyan=$'\e[46m'
export bg_white=$'\e[47m'
export normal=$'\e[0m'

set_promtp_colors()
{
    if (( $? ))
    then
        p_beg=${bg_red}${fg_yellow_bold}
        p_end=${normal}
    else
        p_beg=${bg_blue}${fg_yellow_bold}
        p_end=${normal}
    fi
    h_beg=${fg_green_bold}
    h_end=${normal}
    r_beg=${bg_red}${fg_white_bold}
    r_end=${normal}
}

PROMPT_COMMAND=set_promtp_colors

if [[ "`whoami`" == "root" ]]
then
    PS1=' \[${r_beg}\]ROOT\[${r_end}\] \[${h_beg}\]${HOSTNAME}\[${h_end}\] \
\[${p_beg}\]<\!>\[${p_end}\] '
else
    PS1=' \[${h_beg}\]${HOSTNAME}\[${h_end}\] \[${p_beg}\]<\!>\[${p_end}\] '
fi

(defvar xsel-search-overlay nil)
(defvar xsel-prev-search nil)
(defvar mysearch-overlay nil)
(global-set-key [f2]   '(lambda()                    ; F2
                          (interactive nil)
                          (xsel-search)))

(defun mysearch-dehighlight ()
  (remove-hook 'mouse-leave-buffer-hook 'mysearch-dehighlight)
  (if mysearch-overlay
      (delete-overlay mysearch-overlay)))

(defun mysearch-highlight (beg end)
  (if (or (null search-highlight) (null window-system))
      nil
    (add-hook 'mouse-leave-buffer-hook 'mysearch-dehighlight)
    (or mysearch-overlay (setq mysearch-overlay (make-overlay beg end)))
    (move-overlay mysearch-overlay beg end (current-buffer))
    (overlay-put mysearch-overlay 'face
		 (if (internal-find-face 'isearch nil)
		     'isearch 'region))))

(defun xsel-search ()
  "Search of X11 selection"
  (let ((new-seacrh "")
        (found nil)
       )
    (cond
     ((x-selection-exists-p)
      (setq new-seacrh (x-get-selection))
     )
     (mark-active
      (setq new-seacrh (buffer-substring (point) (mark)))
      (deactivate-mark)
     )
     (t
      (setq new-seacrh xsel-prev-search)
     )
    )
    (if new-seacrh
        (progn
          (save-excursion
            (goto-char (1+ (point)))
            (setq found (search-forward new-seacrh (point-max) t 1))
          )
          (if found
              (progn
                (goto-char (match-beginning 0))
                (message "<%s> found: Line = %d; Column = %d"
                         new-seacrh
                         (if (bolp)
                             (1+ (count-lines 1 (point)))
                           (count-lines 1 (point))
                           )
                          (1+ (current-column))
                )
                (mysearch-highlight (match-beginning 0) (match-end 0))
                t
              )
            (message "<%s> not found." new-seacrh)
          )
          (setq xsel-prev-search new-seacrh)
          t
        )
    )
  )
)