Hi Charlie, Thanks for the script! File a bugs.webkit.org bug, CC'ing me, and upload a patch.
We still need Vim and Textmate plugins :D Dan On Mon, Aug 14, 2017 at 4:52 PM, Daniel Bates <dba...@intudata.com> wrote: > Hi Charlie, > > Thanks for the script! File a bugs.webkit.org bug, CC'ing me, and upload > a patch. > > We still need Vim and Textmate plugins :D > > Dan > > On Mon, Aug 14, 2017 at 4:33 PM, Charlie Turner <ctur...@igalia.com> > wrote: > >> Hi, >> >> Thanks for sharing that, thought it was useful so made an Emacs version >> of it. Only works for the Git mirror and requires Magit as well, but >> maybe of use to someone else with Emacs. >> >> -----------------------8<---------------------------- >> (defun webkit-trac-url () >> (interactive) >> (let ((git-svn-id-line >> (car (--filter (string-match-p "svn.webkit.org" it) >> (magit-git-lines "log" "--format=%b" "-n 1" >> "HEAD"))))) >> (if (string-match "\\([A-z]+\\)@\\([[:digit:]]+\\)" git-svn-id-line) >> (let ((branch (match-string 1 git-svn-id-line)) >> (revision (match-string 2 git-svn-id-line)) >> (path (magit-file-relative-name))) >> (kill-new (concat "https://trac.webkit.org/browser/"; branch >> "/" path >> "?" revision >> (if current-prefix-arg >> "&annotate=blame" "") >> "#L" (format-mode-line "%l"))) >> (message "On your clipboard!"))))) >> ----------------------->8---------------------------- >> >> That goes in your init.el. >> >> DISCLAIMER: Not an Emacs expert! >> >> ~Charlie. >> _______________________________________________ >> webkit-dev mailing list >> webkit-dev@lists.webkit.org >> https://lists.webkit.org/mailman/listinfo/webkit-dev >> > >
_______________________________________________ webkit-dev mailing list webkit-dev@lists.webkit.org https://lists.webkit.org/mailman/listinfo/webkit-dev
