advice browse-url-at-point to account for stripe ids

init.el

;;; (keymap-global-set "C-c o" 'browse-url-at-point)
(defun rgc/add-stripe (args)
  "prepend the right stripe path to be able to find the entity
you're looking for"
  (let* ((arg (s-replace-regexp "^https?://" "" (car args)))
         (path
          (cond
           ((s-match "^price_.*" arg) "prices")
           ((s-match "^sub_.*" arg) "subscriptions")
           ((s-match "^prod_.*" arg) "products")
           ((s-match "^evt_.*" arg) "events")
           ((s-match "^ch_.*" arg) "charges")
           ((s-match "^cus_.*" arg) "customers"))))
    (if path
        (cons (concat "https://dashboard.stripe.com/" (when (not current-prefix-arg) "test/") path "/" arg) nil)
      args)))




(advice-add 'browse-url :filter-args #'rgc/add-stripe)