Elisp to open a line-wrapped URL

Elisp to open a line-wrapped URL

[ckhan]

Say I like wrapping my code at 80cols.
But say I also occasionally include URLs in comments .

So I might wind up with something like this 

    # See also Google Drive generated py docs:
    # https://developers.google.com/resources/api-libraries/
    # documentation/drive/v2/python/latest/
    # drive_v2.permissions.html#insert

How do I teach emacs to open the URL that is near my cursor, even though it's split across lines with comment markers in between?

Re: Elisp to open a line-wrapped URL

[Daniel Herzig]

Not an exact answer to your answer, but maybe helpful anyway.

If you slightly restructure the comments to:

# See also Google Drive generated py docs:
'''
https://developers.google.com/resources/api-libraries/
documentation/drive/v2/python/latest/
drive_v2.permissions.html#insert
'''

you can mark the URL and open it with M-x browse-url-<your browser> -- 
it will appear as default value in the prompt.



Am 25.02.2018 um 00:53 schrieb ckhan:
> Say I like wrapping my code at 80cols.
> But say I also occasionally include URLs in comments .
>
> So I might wind up with something like this
>
>      # See also Google Drive generated py docs:
>      # https://developers.google.com/resources/api-libraries/
>      # documentation/drive/v2/python/latest/
>      # drive_v2.permissions.html#insert
>
> How do I teach emacs to open the URL that is near my cursor, even though it's split across lines with comment markers in between?

Re: Elisp to open a line-wrapped URL

[Emanuel Berg]

ckhan wrote:

> Say I like wrapping my code at 80cols.
> But say I also occasionally include URLs in comments .
>
> So I might wind up with something like this 
>
>     # See also Google Drive generated py docs:
>     # https://developers.google.com/resources/api-libraries/
>     # documentation/drive/v2/python/latest/
>     # drive_v2.permissions.html#insert
>
> How do I teach emacs to open the URL that is
> near my cursor, even though it's split across
> lines with comment markers in between?

Simple, search for the next URL!

(defun look-for-url ()
  (interactive)
  (let ((url nil))
    (while (not (setq url (thing-at-point 'url t)))
      (forward-char 1))   ; will fail at EOB
    (w3m-goto-url url) )) ; so here the URL is always fine

Probably searching can be done more efficiently
tho, e.g. a regexp search for the next URL...

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Elisp to open a line-wrapped URL

[Emanuel Berg]

> Probably searching can be done more
> efficiently tho, e.g. a regexp search for the
> next URL...

(require 'cl-lib)
(require 'thingatpt)
(require 'w3m)

(defun goto-next-url ()
  (interactive)
  (let ((max (point-max)))
    (cl-dolist (url-type thing-at-point-uri-schemes)
      (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) ))))))

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Elisp to open a line-wrapped URL

[Emanuel Berg]

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

Re: Elisp to open a line-wrapped URL

[Yuri Khan]

On Sun, Feb 25, 2018 at 6:53 AM, ckhan <charleykhan@gmail.com> wrote:
> Say I like wrapping my code at 80cols.
> But say I also occasionally include URLs in comments .
>
> So I might wind up with something like this
>
>     # See also Google Drive generated py docs:
>     # https://developers.google.com/resources/api-libraries/
>     # documentation/drive/v2/python/latest/
>     # drive_v2.permissions.html#insert
>
> How do I teach emacs to open the URL that is near my cursor, even though it's split across lines with comment markers in between?

You might be able to solve this for yourself using Emacs.

What about other people who read your code: using other editors? …in a
mail client? …on the web?

Do them a favor and keep your URLs unwrapped.