[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: emacs / gnus et xface



>>>>> "Fabien" == Fabien Penso <penso@linuxfr.org> writes:

  >>>> Jacques L'helgoualc'h writes:
  >>> Je vais attendre Emacs21 alors... J'ai installé le package
  >>> debian bêta, mais gnus est d'une lenteur phénoménal,

  >> As-tu essayé w3 ? :)

  Fabien> Oui je l'ai lancé sur linuxfr.org, j'ai pleuré :) En gros ça
  Fabien> doit juste servir pour automatiser des récupérations
  Fabien> d'informations sur le net, ou pour voir des pages html
  Fabien> générées à partir de SGML. A part ça je ne vois pas à quoi
  Fabien> ça peut servir ;)

Ça rame surtout sur les sites pourris sur lesquels il y a pleijns de
tables à la con qui servent à rien à part ralentir le rendu des pages
sur les browsers écrits en lisp :-)

Sur tout ce qui est sobre, ça marche très bien. C'est pas mal pour
consulter les howtos par exemple :

(defvar howto-list
  '("3Dfx" "Access" "Alpha" "Assembly" "AX25" "Bash-Prompt" "Benchmarking" "Beowulf" "Bootdisk" "BootPrompt" "Busmouse" "CD-Writing" "CDROM" "Chinese" "Commercial" "Config" "Consultants" "Cyrillic" "Danish" "Distribution" "DNS" "DOS-Win-to-Linux" "DOSEMU" "ELF" "Emacspeak" "Esperanto" "Ethernet" "Finnish" "Firewall" "French" "Ftape" "GCC" "German" "Glibc2" "HAM" "Hardware" "Hebrew" "HOWTO-INDEX" "INFO-SHEET" "Installation" "Intranet-Server" "IPCHAINS" "IPX" "IR" "ISP-Hookup" "Italian" "Java-CGI" "Kernel" "Keyboard-and-Console" "KickStart" "LinuxDoc+Emacs+Ispell" "Mail" "META-FAQ" "MGR" "MILO" "MIPS" "Modem" "Multi-Disk" "Multicast" "NET-3" "Networking-Overview" "NFS" "NIS" "Optical-Disk" "Oracle" "PalmOS" "Parallel-Processing" "PCI" "PCMCIA" "Plug-and-Play" "Polish" "Portuguese" "PostgreSQL" "PPP" "Printing" "Printing-Usage" "Quake" "Reading-List" "Root-RAID" "RPM" "SCSI-Programming" "Security" "Serial" "Serial-Programming" "Shadow-Password" "Slovenian" "SMB" "Software-Relea!
se-Practice" "Sound" "Sound-Playing" "Spanish" "SRM" "TeTeX" "Text-Terminal" "Thai" "Tips" "UMSDOS" "Unix-Internet-Fundamentals" "UPS" "User-Group" "UUCP" "VAR" "Virtual-Services" "VME" "VMS-to-Linux" "WWW" "WWW-mSQL" "XFree86" "XFree86-Video-Timings" "XWindow-User")
  "A list of howtos, for completion with howto-display")

(defvar howto-www-dir 
  "http://www.kernelnotes.org/LDP/HOWTO"; 
  "*The base dir where to retrieve howtos")

(defun howto-build-completion-list (l)
  (mapcar (lambda (x) (list x)) l))

(defun howto-display (howto)
  "Launch your favorite browser to display the html version of a howto"
  (interactive 
   (let ((completion-ignore-case t))
     (list (completing-read 
	    "Howto: " 
	    (howto-build-completion-list howto-list) 
	    nil t))))
  (funcall browse-url-browser-function
	   (concat howto-www-dir "/" howto "-HOWTO.html")))


Ou bien les faire des recherches sur les paquets debians :

(defvar deb-searchon "all" 
  "*What to search on in debian-package-search. It must be \"all\" or \"names\".")

(defvar deb-search-version "stable"
  "*Distrib to search with debian-package-search. \"stable\", \"testing\", \"unstable\" or \"all\".")

(defun debian-package-search (keywords)
  "Use your favorite browser to the debian packages list"
  (interactive "MKeywords: ")
  (funcall browse-url-browser-function 
	   (format "http://packages.debian.org/cgi-bin/search_packages.pl?keywords=%s&version=%s&searchon=%s&release=all"; 
		   keywords deb-search-version deb-searchon)))

(defun debian-bug-search (package)
  "Use your favorite browser to fetch http://bugs.debian.org/<package>"
  (interactive "MPackage:")
  (funcall browse-url-browser-function 
	   (concat "http://bugs.debian.org/"; package)))


-- 
Laurent Martelli
laurent@aopsys.com              http://www.placenet.org/~laurent



Reply to: