[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] [PATCH] ox: Cache locations of fuzzy links
From: |
Nicolas Goaziou |
Subject: |
Re: [O] [PATCH] ox: Cache locations of fuzzy links |
Date: |
Wed, 01 May 2013 23:46:17 +0200 |
Hello,
Lawrence Mitchell <address@hidden> writes:
> * ox.el (org-export-resolve-fuzzy-link): Look for fuzzy link in a
> cache before trying to resolve it in the parse tree.
Thanks for your patch. A few comments follow.
> - (if match-title-p (substring raw-path 1) raw-path))))
> + (if match-title-p (substring raw-path 1) raw-path)))
> + (link-cache (plist-get info :fuzzy-link-cache)))
> + ;; Cache for locations of fuzzy links that are not position dependent
> + (unless link-cache
> + (setq info (plist-put info :fuzzy-link-cache
> + (make-hash-table :test 'equal)))
> + (setq link-cache (plist-get info :fuzzy-link-cache)))
Minor nitpick: I'd rather have this included in the (let ...), like:
(let (...
(link-cache
(or (plist-get info :fuzzy-link-cache)
(plist-get (setq info (plist-put info :fuzzy-link-cache
(make-hash-table :test 'eq)))
:fuzzy-link-cache)))))
> - (org-element-map (plist-get info :parse-tree) 'target
> - (lambda (blob)
> - (and (equal (org-split-string (org-element-property :value blob))
> - path)
> - blob))
> - info t)))
> + (let ((found (gethash (cons 'path path)
> + link-cache
> + 'fuzzy-link-not-found)))
> + (or (not (eq found 'fuzzy-link-not-found))
> + (puthash (cons 'path path)
> + (org-element-map (plist-get info :parse-tree) 'target
> + (lambda (blob)
> + (and (equal (org-split-string
> + (org-element-property :value blob))
> + path)
> + blob))
> + info t)
> + link-cache)))))
I don't get why you need to use such a key. Simply use the link as key
and `eq' as the test.
Regards,
--
Nicolas Goaziou