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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

;; -*- Emacs-Lisp -*-

;; Time-stamp: <2010-05-21 18:05:13 Friday by ahei>

(require 'palette-misc)

(eal-define-keys-commonly
 global-map
 `(("C-x M-F" facemenup-palette-face)
   ("C-x M-P" facemenup-palette-face-at-point)))

(defun palette-settings ()
  "settings of `palette'."
  (defun blink-cursor-mode-disable ()
    "Disable `blink-cursor-mode'."
    (interactive)
    (blink-cursor-mode -1))

  (add-hook 'palette-mode-hook 'blink-cursor-mode-disable)

  (defmacro def-palette-move-command (move-command speed)
    "Make definition of command which palette move quickly."
    `(defun ,(am-intern move-command "-quickly") ()
       ,(concat move-command " quickly.")
       (interactive)
       (,(symbol-function (intern move-command)) ,speed)))

  (apply-args-list-to-fun
   'def-palette-move-command
   `(("palette-down"  7)
     ("palette-up"    7)
     ("palette-left"  7)
     ("palette-right" 7)))

  (eal-define-keys-commonly
   palette-mode-map
   `(("j"     palette-down)
     ("k"     palette-up)
     ("h"     palette-left)
     ("l"     palette-right)
     ("J"     palette-down-quickly)
     ("K"     palette-up-quickly)
     ("H"     palette-left-quickly)
     ("L"     palette-right-quickly)
     ("r"     palette-face-restore-bg-fg)
     ("f"     palette-set-face-changed-to-foreground)
     ("b"     palette-set-face-changed-to-background)
     ("B"     facemenup-face-bg-restore)
     ("F"     facemenup-face-fg-restore)
     ("d"     palette-disply-which-in-changine)
     ("m"     palette-pick-background-at-point)
     ("C"     palette-copy-current-color)
     ("C-x k" palette-quit-restore-bg-fg)))

  (defun kill-palette-buffers (frame)
    (when (get-buffer "Palette (Hue x Saturation)") (kill-buffer "Palette (Hue x Saturation)"))
    (when (get-buffer "Brightness") (kill-buffer "Brightness"))
    (when (get-buffer "Current/Original") (kill-buffer "Current/Original")))

  (add-to-list 'delete-frame-functions 'kill-palette-buffers)

  (if window-system
      (let ((font (car (x-list-fonts "-outline-Courier New-normal-normal-normal-mono-6-*-*-*-c-*-iso8859-1" nil nil 1))))
        (if font
            (setq palette-font font))))

  (defvar facemenup-palette-change-face-bg nil "Face background be changed or not.")
  (defvar facemenup-last-face-color nil "Last face color used.")

  (defun palette-quit-restore ()
    "Quite palette and restore face changed."
    (interactive)
    (palette-quit)
    (palette-face-restore))

  (defun palette-quit-restore-bg-fg ()
    "Quite palette and restore face changed."
    (interactive)
    (palette-quit)
    (palette-face-restore-bg-fg))

  (defun palette-face-restore ()
    "Restore face have changed."
    (interactive)
    (unless (or (string= facemenup-last-face-color palette-current-color)
                (string= (hexrgb-color-name-to-hex facemenup-last-face-color) palette-current-color))
      (if facemenup-palette-change-face-bg
          (facemenup-face-bg-restore)
        (facemenup-face-fg-restore))))

  (defun palette-face-restore-bg-fg ()
    "Restore face background and foreground have changed."
    (interactive)
    (facemenup-face-bg-restore)
    (facemenup-face-fg-restore))

  (defun palette-set-face-changed-to-foreground (&optional is-bg)
    "Set face change color to foreground."
    (interactive "P")
    (setq facemenup-palette-change-face-bg is-bg)
    (setq palette-action
          `(lambda ()
             ,(if is-bg
                  `(set-face-background facemenup-last-face-changed palette-current-color)
                `(set-face-foreground facemenup-last-face-changed palette-current-color))))
    (message (concat "Change to " (if is-bg "back" "fore") "ground")))

  (defun palette-set-face-changed-to-background (&optional is-fg)
    "Set face change color to background."
    (interactive "P")
    (palette-set-face-changed-to-foreground (not is-fg)))

  (defun palette-disply-which-in-changine ()
    "Display which face in changing on palette."
    (interactive)
    (message (concat "Color changing is: %s's " (if facemenup-palette-change-face-bg "back" "fore") "ground") facemenup-last-face-changed))
  (defun palette-copy-current-color ()
    "Copy current color."
    (interactive)
    (kill-new palette-current-color)
    (message "Color %s copied." palette-current-color)))

(eval-after-load "palette"
  `(palette-settings))

(provide 'palette-settings)