|
From: | Emanuel Berg |
Subject: | Re: Elisp to open a line-wrapped URL |
Date: | Sun, 25 Feb 2018 23:43:56 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
Maybe should reset search init position as well: (require 'cl-lib) (require 'thingatpt) (require 'w3m) (defun goto-next-url () (interactive) (let ((start (point)) (max (point-max))) (cl-dolist (url-type thing-at-point-uri-schemes) (goto-char start) (when (re-search-forward url-type max t) (goto-char (match-beginning 0)) (let ((url (thing-at-point 'url))) (when url (w3m-goto-url url) (cl-return) )))))) ;; (goto-next-url) ;; http://www.google.com -- underground experts united http://user.it.uu.se/~embe8573
[Prev in Thread] | Current Thread | [Next in Thread] |