Re: eww - multiple buffers

[Andreas Röhler]

Here is a eww-browse-url based hack, displaying the initials of visited 
URL in buffer-name


(defun ar--compose-buffer-name-initials (liste)
  (let (erg)
    (dolist (ele liste)
      (unless (string= "" ele)
    (setq erg (concat erg (char-to-string (aref ele 0))))))
    erg))

(defun ar-eww-browse-url (url &optional new-window)
  (when new-window
    (if (stringp new-window)
    (set-buffer (get-buffer-create (concat "*eww " new-window "*")))
      (pop-to-buffer-same-window (generate-new-buffer "*eww*")))
    (eww-mode))
  (eww url))

(defun ar-eww (&optional new-buffer)
  (interactive "P")
  (let* ((erg (read-from-minibuffer "Url: "))
     (acronym (ar--compose-buffer-name-initials (split-string 
(substring erg (ignore-errors (1+ (string-match "www\\." erg)))) 
"[^a-z]"))))
    (if (eq 4 (prefix-numeric-value new-buffer))
    (ar-eww-browse-url erg acronym)
      (ar-eww-browse-url erg))))