;;; -*- syntax: elisp -*-

;; Copyright (C) 2002-2006 Yasutaka SHINDOH <ring-pub at fan.gr.jp>

;; Author: Yasutaka SHINDOH <ring-pub at fan.gr.jp>
;; Keywords: convenience

;;; Commentary:

;; Sorry, not ready.

;;; Code:

(require 'elscreen)

(define-key global-map elscreen-prefix-key 'elscreen-plus)
(setq elscreen-display-tab nil)

(defvar elscreen-plus-map-alist
  '((?\C-c . elscreen-create)
    (?c    . elscreen-create)
    (?C    . elscreen-clone)
    (?\C-k . elscreen-kill)
    (?k    . elscreen-kill)
    (?\M-k . elscreen-kill-screen-and-buffers)
    (?K    . elscreen-kill-others)
    (?\C-p . elscreen-previous)
    (?p    . elscreen-previous)
    (?\C-n . elscreen-next)
    (?n    . elscreen-next)
    (?\C-a . elscreen-toggle)
    (?a    . elscreen-toggle)
    (?'    . elscreen-goto)
    (?g    . elscreen-goto)
    (?\"   . elscreen-select-and-goto)
    (?0    . elscreen-jump-0)
    (?1    . elscreen-jump)
    (?2    . elscreen-jump)
    (?3    . elscreen-jump)
    (?4    . elscreen-jump)
    (?5    . elscreen-jump)
    (?6    . elscreen-jump)
    (?7    . elscreen-jump)
    (?8    . elscreen-jump)
    (?9    . elscreen-jump-9)
    (?\C-s . elscreen-swap)
    (?\C-w . elscreen-display-screen-name-list)
    (?w    . elscreen-display-screen-name-list)
    (?\C-m . elscreen-show-last-message)
    (?m    . elscreen-show-last-message)
    (?\C-t . elscreen-show-time)
    (?t    . elscreen-show-time)
    (?A    . elscreen-screen-nickname)
    (?b    . elscreen-find-and-goto-by-buffer)
    (?\C-f . elscreen-find-file)
    (?\C-r . elscreen-find-file-read-only)
    (?d    . elscreen-dired)
    (?\M-x . elscreen-execute-extended-command)
    (?i    . elscreen-display-screen-number-toggle)
    (??    . elscreen-help)
    (?h    . elscreen-help)
    (?v    . elscreen-display-version)
    (?j    . elscreen-link)
    (?l    . elscreen-link)
    (?s    . elscreen-split)
    (?     . elscreen-plus)))

(defvar elscreen-plus-last-message nil)
(defvar elscreen-plus-wait-second nil)

(defadvice elscreen-message (around elscreen-plus (message &optional sec))
  (when message
    (unless elscreen-plus-last-message
      (setq elscreen-last-message message))
    (message "%s" message)
    (sit-for (or elscreen-plus-wait-second sec 3)))
  (message ""))
(ad-activate 'elscreen-message)

(defun elscreen-plus (&optional prefix-arg)
  (interactive "P")
  (let ((resize-minibuffer-mode t)
	last-command-char command)
    (let ((elscreen-plus-last-message t)
	  (elscreen-plus-wait-second 5))
      (elscreen-display-screen-name-list)
      (setq last-command-char (read-char)))
    (setq command
	  (cdr (assq last-command-char elscreen-plus-map-alist)))
    (if command
	(call-interactively command)
      (message "ElScreen-PLUS: %s is undefined."
	       (char-to-string last-command-char)))))

(provide 'elscreen-plus)