?

Log in

No account? Create an account
Overloading the Machine -- Day [entries|friends|calendar]
johnsu01

[ website | wjsullivan.net ]
[ userinfo | livejournal userinfo ]
[ calendar | livejournal calendar ]

Marking URLS in Gnus articles [28 Apr 2006|03:12am]

I do a lot of copying both URLS and sexps from mail and news messages, partly because I read a large portion of my RSS feeds as mail. So I added this to my .gnus file today:

(defun johnsu01/mark-url-or-sexp (&optional arg allow-extend)
  "If there is a URL at point, set the mark at the end of it.
If there is not, then follow normal `mark-sexp' behavior."
  (interactive "P\np")
  (cond
   ((thing-at-point-url-at-point)
    (set-mark
     (save-excursion
       (goto-char
        (cdr (thing-at-point-bounds-of-url-at-point)))
       (point))))
   (t
    (call-interactively 'mark-sexp))))

(define-key gnus-article-mode-map
  (kbd "C-M-@") 'johnsu01/mark-url-or-sexp)

Note that I use transient-mark-mode.

post comment

Little white nuclear lies [28 Apr 2006|03:39am]

I've been working on a response to this nonsense with the co-founder of Greenpeace advocating nuclear energy. In the meantime, from The New York Times:

The United States attorney for Nevada has decided not to prosecute federal employees who admitted making up details about research involving the Energy Department's effort to open a nuclear waste repository at Yucca Mountain, the department's inspector general said Tuesday.

post comment

navigation
[ viewing | April 28th, 2006 ]
[ go | previous day|next day ]