1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

;; -*- Emacs-Lisp -*-

;; Time-stamp: <2010-05-27 17:57:21 Thursday by ahei>

;; emacser.com/highlight-symbol.htm

(require 'util)
(require 'highlight-symbol)

(when window-system
  (am-add-hooks
   '(emacs-lisp-mode-hook lisp-interaction-mode-hook java-mode-hook
                          c-mode-common-hook text-mode-hook ruby-mode-hook html-mode-hook
                          sh-mode-hook Info-mode-hook perl-mode-hook)
   'highlight-symbol-mode-on))

(defun highlight-symbol-settings ()
  "Settings for `highlight-symbol'."

  (setq highlight-symbol-idle-delay 0.5)

  (defun highlight-symbol-mode-on ()
    "Turn on function `highlight-symbol-mode'."
    (if window-system
        (highlight-symbol-mode 1)))

  (defun highlight-symbol-mode-off ()
    "Turn off function `highlight-symbol-mode'."
    (highlight-symbol-mode -1))

;;;###autoload
  (define-globalized-minor-mode global-highlight-symbol-mode highlight-symbol-mode highlight-symbol-mode-on)

;;;###autoload
  (defun highlight-symbol-jump (dir)
    "Jump to the next or previous occurence of the symbol at point.
DIR has to be 1 or -1."
    (let ((symbol (highlight-symbol-get-symbol)))
      (if symbol
          (let* ((case-fold-search nil)
                 (bounds (bounds-of-thing-at-point 'symbol))
                 (offset (- (point) (if (< 0 dir) (cdr bounds) (car bounds)))))
            (unless (eq last-command 'highlight-symbol-jump)
              (push-mark))
            (let ((target
                   (save-excursion
                     ;; move a little, so we don't find the same instance again
                     (goto-char (- (point) offset))
                     (re-search-forward symbol nil t dir))))
              (if target
                  (goto-char (+ target offset))
                (message (format "Reach %s" (if (> dir 0) "bottom" "top"))))
              (setq this-command 'highlight-symbol-jump)))
        (error "No symbol at point"))))
  
  ;; I bind "C-x w" to `copy-sexp'
  (eal-define-keys
   'hi-lock-map
   `(("C-x w" nil)))

  (defun highlight-symbol-settings-4-emaci ()
    "`highlight-symbol' settings for `emaci'."
    (emaci-add-key-definition "n" 'highlight-symbol-next)
    (emaci-add-key-definition "p" 'highlight-symbol-prev))
    
  (eal-define-keys
   'emaci-mode-map
   `(("p" emaci-p)))

  (eval-after-load "emaci"
    `(highlight-symbol-settings-4-emaci))
  
  (eal-define-keys
   `(emacs-lisp-mode-map lisp-interaction-mode-map java-mode-map
                         c-mode-base-map text-mode-map ruby-mode-map html-mode-map)
   `(("C-c M-H" highlight-symbol-at-point)
     ("C-c M-R" highlight-symbol-remove-all)
     ("C-c M-N" highlight-symbol-next)
     ("C-c M-P" highlight-symbol-prev)
     ("C-c r"   highlight-symbol-query-replace)
     ("C-c M-n" highlight-symbol-next-in-defun)
     ("C-c M-p" highlight-symbol-prev-in-defun))))

(eval-after-load "highlight-symbol"
  '(highlight-symbol-settings))

(provide 'highlight-symbol-settings)