Jean, I think this is a BWV1079... L
On Sat, May 21, 2022 at 9:28 PM Jean Abou Samra <j...@abou-samra.fr> wrote: > > > Le 21/05/2022 à 20:56, Immanuel Litzroth a écrit : > > Today I found out it's quite easy to get point and click working > > with emacs as pdf viewer when using the pdf-tools package. > > 1. Install pdf-tools: https://github.com/politza/pdf-tools > > It's available as a package in emacs. > > > > 2. put this in your .emacs config > > (defconst lilypond-filename-rx > > (rx (seq > > string-start > > (group (1+ print)) > > ":" > > (group (1+ digit)) > > ":" > > (group (1+ digit)) > > ":" > > (group (1+ digit)) > > string-end))) > > > > (defun lilypond-pdf-links-browse-uri-function (uri) > > "Check if the link starts with texedit and just reroute to emacs. > > Otherwise call pdf-links-browse-uri-default." > > (cl-check-type uri string) > > (let* ((obj (url-generic-parse-url uri)) > > (match (string-match lilypond-filename-rx (url-filename obj)))) > > (unless match > > (message "Could not match %s" (url-filename obj))) > > (let* ((filename (match-string 1 (url-filename obj))) > > (line (string-to-number (match-string 2 (url-filename obj)))) > > (pos (string-to-number (match-string 3 (url-filename obj)))) > > (buf (or (find-buffer-visiting filename) > > (find-file-noselect filename)))) > > (pop-to-buffer buf) > > (goto-char (point-min)) > > (forward-line (1- line)) > > (forward-char pos)))) > > > > > > (setq pdf-links-browse-uri-function > 'lilypond-pdf-links-browse-uri-function) > > 3. Open a lilypond generated pdf with \PointAndClickOn and click away. > > > > The code might need some refining but it does work here quite well. > > Immanuel > > > Hello, > > What kind of answer to this post do you await? > > Best, > Jean > > > -- Luca Fascione
