      ("（" . "(")
      ("）" . ")")
      ("・" . "･"))))
-
-(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 ()

     ("９" . "9")
     ("０" . "0"))))

(defun my/convert-to-multi-byte-number ()
  "Convert multi-byte numbers in region into single-byte number"
  (interactive)
  (my/replace-strings-in-region-by-list
   '(("1" ."１")
     ("2" ."２")
     ("3" ."３")
     ("4" ."４")
     ("5" ."５")
     ("6" ."６")
     ("7" ."７")
     ("8" ."８")
     ("9" ."９")
     ("0" ."０"))))

(defun my/convert-yakumono-to-half-width ()
  "Replace multi byte punctuation marks to half width chars"
  (interactive)

  (let ((starting-position (progn (back-to-indentation) (point))))
    (if (eq starting-position position)
        (move-beginning-of-line 1))))

(defun my/delete-DS_Store-under-current-directory-recursively ()
  (interactive)
