#+name: remap-http-link
#+begin_src emacs-lisp :eval no
(catch 'found
;; http/https links
(setq links (gethash link id->urls))
(dolist (l links)
(setq l (string-trim
l "\\[\\[" "\\]\\]"))
(funcall log "[%d]try %S..." nlv l)
(when (ignore-errors
(funcall
cache l link oldfn)
t)
(funcall log "[%d]%S remap to %S"
nlv link l)
(throw 'found t))))
#+end_src
