EMACS - cache vagrant-tramp lookups

vagrant-tramp-cache.el

(require 'vagrant-tramp)
 
(defun dakkar-cache-vagrant (orig &rest args)
  (let ((repo (pcache-repository "vagrant-tramp"))
        (key 'all-boxes))
    (if (pcache-has repo key)
        (pcache-get repo key)
      (let ((value (apply orig args)))
        (pcache-put repo key value 300)
        value))))
(advice-add 'vagrant-tramp--all-boxes :around #'dakkar-cache-vagrant)