GNU bug report logs -
#21194
2015-06-01; add support for ffap via kpsewhich
Previous Next
Full log
View this message in rfc822 format
[Message part 1 (text/plain, inline)]
Your bug report
#21194: 2015-06-01; add support for ffap via kpsewhich
which was filed against the auctex package, has been closed.
The explanation is attached below, along with your original report.
If you require more details, please reply to 21194 <at> debbugs.gnu.org.
--
21194: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=21194
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
Hello Mosè
Mosè Giordano <mose <at> gnu.org> writes:
> This is smarter than your function in the sense that it looks at
> current macro to determine the extension (didn't test it, but I think
> your implementation would open "article.sty" instead of the more
> sensible "article.cls" with point on "article").
Indeed, there are a few ways to confuse my code, but it doesn't bite me
often (I never use article class anyway :p). I've fixed this nonetheless.
I pushed the result to emacs master, so it should make its way to emacs
25.1.
Thanks for your comments.
--
Nico.
[Message part 3 (message/rfc822, inline)]
Hi all,
I'm using the following customizations, which I thought I'd share with
you. As the subject says it, it uses kpsewhich for guessing a filename
at point. It allows to use M-x ffap with point on "geometry" to find
geometry.sty, or with point on "memoir" to find memoir.cls.
It is very quick because it calls kpsewhich only once.
I'm not making this into an actual patch because while it works
fine on my system, it's not ready for inclusion yet. I'm open to
your ideas to make it better and eventually include it.
;; a first step is :
;; don't allow braces as possible characters in a filename (otherwise
;; \input{foo} is seen as a possible filename, instead of just foo)
;; (this is because of a recent change in emacs, see commit
;; ba6c32b6decaa2a72a3d5f854efd513e8e82c118 for detail)
(push '(latex-mode "--:\\\\$+<>@-Z_[:alpha:]~*?" "<@" "@>;.,!:")
ffap-string-at-point-mode-alist)
;; second step is to extend rules for finding file at point, and use kpsewhich
(defun yf/ffap-latex-mode (name)
"ffap function in latex buffers"
(if (file-exists-p name)
name
(let ((curbuf (current-buffer)))
(with-temp-buffer
(let ((suffixes '(".sty" ".cls" ".ltx" ".tex" "" ".ldf"))
(prefixes '("" "beamertheme"
"beamercolortheme"
"beamerfonttheme"
"beamerinnertheme"
"beameroutertheme"))
args)
(setq args (apply #'append (mapcar
(lambda (suffix)
(mapcar
(lambda (prefix)
(concat prefix name suffix))
prefixes))
suffixes)))
(let ((process-environment (buffer-local-value 'process-environment curbuf))
(exec-path (buffer-local-value 'exec-path curbuf)))
(apply #'call-process "kpsewhich" nil t nil args))
(when (< (point-min) (point-max))
(buffer-substring (goto-char (point-min)) (point-at-eol))))))))
;; use the above
(advice-add 'ffap-latex-mode :override 'yf/ffap-latex-mode)
Comments welcome!
Nicolas.
This bug report was last modified 9 years and 291 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.