      ("（" . "(")
      ("）" . ")")
      ("・" . "･"))))
-
-(defun my/convert-hex-color-to-rgb (hex)
-  (interactive "sHEX: ")
-  (let (result)
-    (when (string-match
-           "^\\s-*\\#\\([0-9a-fA-F]\\)\\([0-9a-fA-F]\\)\\([0-9a-fA-F]\\)\\s-*$"
-           hex)
-      (let (($m1 (match-string 1 hex))
-            ($m2 (match-string 2 hex))
-            ($m3 (match-string 3 hex)))
-        (setq result (list (read (format "#x%s%s" $m1 $m1))
-                           (read (format "#x%s%s" $m2 $m2))
-                           (read (format "#x%s%s" $m3 $m3))))))
-    (when (string-match
-           "^\\s-*\\#\\([0-9a-fA-F]\\{2\\}\\)\\([0-9a-fA-F]\\{2\\}\\)\\([0-9a-fA-F]\\{2\\}\\)\\s-*$"
-           hex)
-      (setq result (list (read (format "#x%s" (match-string 1 hex)))
-                         (read (format "#x%s" (match-string 2 hex)))
-                         (read (format "#x%s" (match-string 3 hex))))))
-    result))
-
-(defun my/convert-color-name-to-hex (color-name)
-  (let ((rgb) (hex "#"))
-    (mapc (lambda (x)
-            (setq rgb (cons (round (* x 255)) rgb)))
-          (color-name-to-rgb color-name))
-    (setq rgb (nreverse rgb))
-    (mapc (lambda (x) (setq hex (concat hex (format "%02x" x))))
-          rgb)
-    hex))
 
 ;;; Other
 (defun my/count-lines-and-chars ()

        (message (format "%s" face))
      (message "no face"))))

(defun my/get-cursor-color ()
  (car (cl-loop for (k . v) in (frame-parameters)
                if (eq k 'cursor-color)
                collect  v)))

(defun my/get-background-color ()
  (interactive)
  (princ (face-attribute 'default :background)))

(defun my/get-overlay-property-cons-list-at (&optional position)
  (interactive)
  (or position (setq position (point)))
  (let (list ov)
    (setq ov (overlay-properties (car (overlays-in position (1+ position)))))
    (mapc (lambda (elt)
            (let ((key   (car elt))
                  (value (cdr elt)))
              (setq list (cons (cons key value) list))))
          (let (ret)
            (while ov
              (setq ret (cons (cons (car ov) (cadr ov)) ret))
              (setq ov  (cddr ov)))
            ret))
    (message "%s" list)))

;;; Replace
(defun my/replace-strings-in-region-by-list (list)

;; Functions
;;--------------------------------------------------
;;; Information
(defun my/get-current-path ()
  (interactive)
  (or (buffer-file-name) (expand-file-name default-directory)))
