]> git.ozlabs.org Git - ccan-lca-2011.git/blob - ccan/oserver/bin/presentation.el
lca2011: links and preparation
[ccan-lca-2011.git] / ccan / oserver / bin / presentation.el
1 (set-default-font "-misc-fixed-medium-r-normal--20-*");
2
3 (defun next-and-revert-all-buffers ()
4    "Updates then refreshes all open buffers from their respective files"
5    (interactive)
6    (shell-command "git diff HEAD > /tmp/diff; git reset --hard; git ls-files -o | xargs -r rm -f; guilt push")
7    (let* ((list (buffer-list))
8           (buffer (car list)))
9      (while buffer
10        (when (buffer-file-name buffer)
11          (set-buffer buffer)
12          (revert-buffer t t t))
13        (setq list (cdr list))
14        (setq buffer (car list)))))
15
16 (global-set-key [f9] 'next-and-revert-all-buffers)