Re: Sticky article buffers

[Tassilo Horn <tassilo@member.fsf.org>]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

Hi Katsumi,

> Frames for sticky articles,

How about ibuffer, mark the buffers with `m' and then do `v' (for
windows) or `H' (for frames)?

> an exclusive Gnus summary buffer for sticky articles,

I don't see where this could be more useful than ibuffer.

> tab browsing like emacs-w3m..., but they all don't seem to be easy to
> achieve.

Indeed.

>> If not I'll do something home-brewed and hook it into find-file-hook.
>
> It looks like this, isn't it? ;-)
>
> [...]

Hah! It's far superior. ;-)

--8<---------------cut here---------------start------------->8---
(defvar th-dir-local-variables-alist
  '(("~/repos/gnus/" . ((indent-tabs-mode . t)
                        (tab-width . 8))))
  "An alist with (PATH . LIST) pairs.  PATH is a path and LIST is
a list of variables to set locally for files below that path.  It
has elements of the form (VAR . VAL) where VAR is a symbol and
VAL is its value.")

(defun th-set-dir-local-variables ()
  "Locally set the variables defined in
`th-dir-local-variables-alist' for the current buffer."
  (interactive)
  (let ((file (buffer-file-name (current-buffer))))
    (when file
      (dolist (pair th-dir-local-variables-alist)
        (when (string-match (concat "^" (regexp-quote (expand-file-name (car pair))))
                            file)
          (dolist (var (cdr pair))
            (if (local-variable-if-set-p (car var))
                (set (car var) (cdr var))
              (set (make-local-variable (car var)) (cdr var)))))))))

(add-hook 'find-file-hook
          'th-set-dir-local-variables)
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo
-- 
Chuck Norris uses 8'x10' sheets of plywood as toilet paper.