秋月電子の URL 変更に追従するための browse-url 用 advice

adjust-akizukidenshi-url.el

;; 秋月電子の URL 変更に追従する browse-url
;; browse-url-at-point 等も browse-url を使っている
;;
;; Old: https://akizukidenshi.com/catalog/g/gI-04575/
;; New: https://akizukidenshi.com/catalog/g/g104575/
;; → Replace "M-" to "1"
;;
(defun adjust-akizukidenshi-url (url)
  (if (string-match "https://akizukidenshi[.]com/catalog/g/g\\(.-\\)[0-9]+/" url)
      (replace-match "1" nil t url 1)
    url))

(defun adjust-akizukidenshi-url-advice (orig-func &rest args)
  (setcar args (adjust-akizukidenshi-url (car args)))
  (apply orig-func args))

(advice-add 'browse-url :around 'adjust-akizukidenshi-url-advice)

;; どちらも OK
;; (browse-url "https://akizukidenshi.com/catalog/g/gI-04575/")
;; (browse-url "https://akizukidenshi.com/catalog/g/g104575/")