/misc/fuel/fuel-popup.el

http://github.com/abeaumont/factor · Emacs Lisp · 69 lines · 43 code · 15 blank · 11 comment · 1 complexity · 084587bba6253cb3354af863de4d9baf MD5 · raw file

  1. ;;; fuel-popup.el -- popup windows
  2. ;; Copyright (C) 2008 Jose Antonio Ortega Ruiz
  3. ;; See http://factorcode.org/license.txt for BSD license.
  4. ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
  5. ;; Keywords: languages, fuel, factor
  6. ;; Start date: Sun Dec 21, 2008 14:37
  7. ;;; Comentary:
  8. ;; A minor mode to pop up windows and restore configurations
  9. ;; afterwards.
  10. ;;; Code:
  11. (make-variable-buffer-local
  12. (defvar fuel-popup--created-window nil))
  13. (make-variable-buffer-local
  14. (defvar fuel-popup--selected-window nil))
  15. (defun fuel-popup--display (&optional buffer)
  16. (when buffer (set-buffer buffer))
  17. (let ((selected-window (selected-window))
  18. (buffer (current-buffer)))
  19. (unless (eq selected-window (get-buffer-window buffer))
  20. (let ((windows))
  21. (walk-windows (lambda (w) (push w windows)) nil t)
  22. (prog1 (pop-to-buffer buffer)
  23. (set (make-local-variable 'fuel-popup--created-window)
  24. (unless (memq (selected-window) windows) (selected-window)))
  25. (set (make-local-variable 'fuel-popup--selected-window)
  26. selected-window))))))
  27. (defun fuel-popup--quit ()
  28. (interactive)
  29. (let ((selected fuel-popup--selected-window)
  30. (created fuel-popup--created-window))
  31. (bury-buffer)
  32. (when (eq created (selected-window)) (delete-window created))
  33. (when (window-live-p selected) (select-window selected))))
  34. (define-minor-mode fuel-popup-mode
  35. "Mode for displaying read only stuff"
  36. nil nil
  37. '(("q" . fuel-popup--quit))
  38. (setq buffer-read-only t))
  39. (defmacro fuel-popup--define (fun name mode)
  40. `(defun ,fun ()
  41. (or (get-buffer ,name)
  42. (with-current-buffer (get-buffer-create ,name)
  43. (funcall ,mode)
  44. (fuel-popup-mode)
  45. (current-buffer)))))
  46. (put 'fuel-popup--define 'lisp-indent-function 1)
  47. (defmacro fuel--with-popup (buffer &rest body)
  48. `(with-current-buffer ,buffer
  49. (let ((inhibit-read-only t))
  50. ,@body)))
  51. (put 'fuel--with-popup 'lisp-indent-function 1)
  52. (provide 'fuel-popup)
  53. ;;; fuel-popup.el ends here