23.0.60; Allow ELinks in Emacs frames, or, Generalizing browse-url.el's browse-url-lynx-emacs

* 23.0.60; Allow ELinks in Emacs frames, or, Generalizing browse-url.el's browse-url-lynx-emacs
@ 2007-10-16 21:55 Gwern Branwen
  2007-10-17 20:48 ` Richard Stallman
  0 siblings, 1 reply; 3+ messages in thread
From: Gwern Branwen @ 2007-10-16 21:55 UTC (permalink / raw)
  To: emacs-pretest-bug

[-- Attachment #1.1.1: Type: text/plain, Size: 3484 bytes --]

Browse-url.el offers a neat function browse-url-lynx-emacs which opens up a Lynx browser within the current Emacs frame; this is very nice for binding so you can quickly follows hyperlinks and works very will with documentation and stuff like email in Gnus.

But I don't use Lynx, don't have it installed; looking through the source, there doesn't seem to be anything truly Lynx specific about it, and in fact, just substituting 'elinks' for 'lynx' (and removing one or two superfluous lines) seems to work fine.

Even better would be a general function which just runs a specified text browser (since there are a lot more than just ELinks and Lynx out there).  It wouldn't be terribly difficult to do - add a parameter to it, replace browse-url-lynx-emacs with a specialization of the generalization and you are more or less done (although I don't know how one would handle the various variables tweaking browse-url-lynx-emacs); I've attached a sort of example.

--
gwern
tiger Bubba plutonium Fiel Cross quarter Tangimoana Vale president M72750

--text follows this line--
 Please write in English if possible, because the Emacs maintainers usually do not have translators to read other languages for them.  In GNU Emacs 23.0.60.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.12.0)  of 2007-10-15 on craft Windowing system distributor `The X.Org Foundation', version 11.0.10400000 configured using `configure  '--with-gtk' '--enable-font-backend' '--with-xft' '--with-gif=no'' Important settings:   value of $LC_ALL: en_US.utf8   value of $LC_COLLATE: nil value of $LC_CTYPE: nil   value of $LC_MESSAGES: nil   value of $LC_MONETARY: nil value of $LC_NUMERIC: nil   value of $LC_TIME: nil   value of $LANG: nil   value of $XMODIFIERS: nil   locale-coding-system: utf-8-unix default-enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect:   change-cursor-mode: t   recentf-mode: t   display-time-mode: t msb-mode: t   icomplete-mode: t   iswitchb-mode: t   show-paren-mode: t tooltip-mode: t mouse-wheel-mode: t   file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t   blink-cursor-mode: t global-auto-composition-mode: t auto-composition-mode: t auto-compression-mode: t   column-number-mode: t line-number-mode: t transient-mark-mode: t Recent input: M-x r e p o r - <backspace> t - e <tab> <return> B  r o w s <backspace> <backspace> <backspace> <backspace>  <backspace> B r <backspace> <backspace> A l l o w SPC  e <backspace> E l <backspace> L i n k s SPC i n SPC  f r <backspace> <backspace> E m a c s SPC f r a m e  s , SPC o r , SPC G e n e r a l i z i n g SPC b r o  w s e = <backspace> - u r l . e l ' s SPC M-e <left>  <left> <end> M-c <left> <end> b r o w s e - u r l -  l y n x - e m a c s <return> B r o w s e - u r l .  e l SPC i n c l u d e s SPC a SPC n i f t y SPC f u  n c t i o n SPC <next> <prior> <insert> C-g <return> a a a a <down> <down> <down> <up> <right> <up> <right>  <right> <right> <right> <right> <right> <right> <right>  <right> <right> <right> <right> <right> <right> <right>  <right> <right> <right> C-/ C-/ C-/ C-/ C-/ C-/ C-/  C-x k <return> C-x k <return> C-x 0 C-x k <return>  M-x <up> <return> Recent messages: Loading dupwords...done Loading recentf...done Starting new Ispell process [default] ... Beginning idle-require Auto-saving... Type y, n, ! or SPC (the space bar):  Quit Auto-saving...done Undo! [5 times] undo-more: No further undo information undo-more: No further undo information

[-- Attachment #1.1.2: browse-url --]
[-- Type: text/plain, Size: 3878 bytes --]

(defun browse-url-text-browser-emacs (url generic &optional new-buffer)
  "Ask for a Web address and an arbitrary text browser.

When called interactively, if variable `browse-url-new-window-flag' is
non-nil, load the document in a new text browser in a new term window,
otherwise use any existing one.  A non-nil interactive prefix argument
reverses the effect of `browse-url-new-window-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'."
  (interactive "MWeb address: \nMBrowser: ")

  (let* ((system-uses-terminfo t)       ; Text browsers use terminfo?
	 (buf (get-buffer "*text-browser*"))
	 (proc (and buf (get-buffer-process buf)))
	 (n browse-url-lynx-input-attempts))
    (if (and (browse-url-maybe-new-window new-buffer) buf)
	;; Rename away the OLD buffer. This isn't very polite, but
	;; term insists on working in a buffer named *lynx* and would
	;; choke on *lynx*<1>
	(progn (set-buffer buf)
	       (rename-uniquely)))
    (if (or (browse-url-maybe-new-window new-buffer)
	    (not buf)
	    (not proc)
	    (not (memq (process-status proc) '(run stop))))
	;; start a new text browser
	(progn
          (setq buf (apply #'make-term
                       `("text-browser" ,generic nil ,@browse-url-lynx-emacs-args
			 ,url)))
          (switch-to-buffer buf)
          (term-char-mode)
          (set-process-sentinel
           (get-buffer-process buf)
           ;; Don't leave around a dead one (especially because of its
           ;; munged keymap.)
           (lambda (process event)
             (if (not (memq (process-status process) '(run stop)))
                 (let ((buf (process-buffer process)))
                   (if buf (kill-buffer buf)))))))
      ;; send the url to the text-browser in the old buffer
      (let ((win (get-buffer-window buf t)))
	(if win
	    (select-window win)
	  (switch-to-buffer buf)))
      (if (eq (following-char) ?_)
	  (cond ((eq browse-url-lynx-input-field 'warn)
		 (error "Please move out of the input field first"))
		((eq browse-url-lynx-input-field 'avoid)
		 (while (and (eq (following-char) ?_) (> n 0))
		   (term-send-down) ; down arrow
		   (sit-for browse-url-lynx-input-delay))
		 (if (eq (following-char) ?_)
		     (error "Cannot move out of the input field, sorry")))))
      (term-send-string proc (concat "g" ; goto
				     "\C-u" ; kill default url
				     url
				     "\r")))))

(defun browse-url-lynx-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls Lynx."
(interactive (browse-url-interactive-arg "URL for Lynx: "))
  (browse-url-text-browser-emacs url "lynx" new-buffer))

(defun browse-url-elinks-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls Elinks."
(interactive (browse-url-interactive-arg "URL for Elinks: "))
  (browse-url-text-browser-emacs url "elinks" new-buffer))

(defun browse-url-links-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls Links."
(interactive (browse-url-interactive-arg "URL for Links: "))
  (browse-url-text-browser-emacs url "links" new-buffer))

(defun browse-url-links2-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls Links2."
(interactive (browse-url-interactive-arg "URL for Links2: "))
  (browse-url-text-browser-emacs url "links2" new-buffer))

(defun browse-url-netrik-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls Netrik."
(interactive (browse-url-interactive-arg "URL for Netrik: "))
  (browse-url-text-browser-emacs url "netrik" new-buffer))

(defun browse-url-w3m-emacs (url &optional new-buffer)
"Specializes browse-url-text-browser-emacs so it calls w3m."
(interactive (browse-url-interactive-arg "URL for w3m: "))
  (browse-url-text-browser-emacs url "w3m" new-buffer))

[-- Attachment #1.2: Type: application/pgp-signature, Size: 189 bytes --]

[-- Attachment #2: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

^ permalink raw reply	[flat|nested] 3+ messages in thread