Re: Single modeline for all buffers?

[martin rudalics <rudalics@gmx.at>]

 > Can I have sth. like the following?
 >
 >      | [#]include <stdio.h>     | (defun add (x y) (+ x y)\|
 >      | int main(int argc, char \| )                        |
 >      | ** argv, char ** envp) { | (add 5 6) ;=> 11         |
 >      -------------------------------------------------------
 >      |-:-- hello.c  Top (1, 0)   (C/l Arev AC hl-p hl-s Abb|
 >      -------------------------------------------------------
 >      |                                                     |
 >      -------------------------------------------------------

Not really.  This would require a major redesign of the involved
components.  If you have Emacs 24.4 you can try (better with Emacs -Q)
the proof of concept below (for fun only).

If you are really interested, you'd have to fill in two things:

(1) A mechanism that would allow this to work with multiple frames (that
     is, things like mode-line-buffer and mode-line-window would have to
     become frame parameters).  This is fairly easy.

(2) A mechanism to implement keybindings in the mode-line buffer.  This
     should be easy too but is likely tedious.  You would mostly have to
     replace occurrences of

       (with-selected-window (posn-window (event-start event))

     with something like

       (with-selected-window mode-line-really-selected-window

     where mode-line-really-selected-window would refer to the window the
     mode-line is currently talking about.

martin


(defvar mode-line-buffer (get-buffer-create "mode-line"))

(defvar mode-line-window (display-buffer-in-side-window mode-line-buffer nil))

(defvar original-mode-line nil)
(make-variable-buffer-local 'original-mode-line)

(with-current-buffer mode-line-buffer
   (font-lock-mode -1)
   (setq mode-line-format nil))

(defun mode-line-buffer-list ()
   (walk-window-tree
    (lambda (window)
      (with-current-buffer (window-buffer window)
        (when mode-line-format
	 (setq original-mode-line-format mode-line-format)
	 (setq mode-line-format nil))))))

(defun mode-line-post-command ()
   (let ((format original-mode-line-format)
	(buffer (current-buffer))
	(window (selected-window)))
     (with-selected-window mode-line-window
       (erase-buffer)
       (insert (format-mode-line format 'mode-line window buffer))
       (let ((window-min-height 1)
	    (window-resize-pixelwise t))
	(setq window-size-fixed nil)
	(fit-window-to-buffer)
	(set-window-start nil (point-min))
	(setq window-size-fixed t)))))

(with-selected-window mode-line-window
   (buffer-face-set 'mode-line)
   (setq default-frame-alist '((right-divider-width . 4) (bottom-divider-width . 4)))
   (set-window-margins nil 0 0)
   (set-window-fringes nil 0 0)
   (set-window-scroll-bars nil 0)
   (setq cursor-type nil)
   (set-window-parameter nil 'no-other-window t)
   (set-window-dedicated-p nil t))

(add-hook 'post-command-hook 'mode-line-post-command)
(add-hook 'buffer-list-update-hook 'mode-line-buffer-list)