[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Source] lazy-desktop.el

From: Phillip Lord
Subject: [Source] lazy-desktop.el
Date: Tue, 29 Jun 2004 17:41:42 -0000
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.93

Initial release of this software. Fiddles with desktop.el, to make it
work lazily.

Current version will be available from my website at...



;;; lazy-desktop.el --- Modify desktop to open slowly in the idle-cycle.

;; $Revision: 1.1 $
;; $Date: 2004/06/02 13:33:57 $

;; This file is not part of Emacs

;; Author: Phillip Lord <address@hidden>
;; Maintainer: Phillip Lord <address@hidden>
;; Website:

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:
;; Desktop is a really nice utility.  Your Emacs will open up as it
;; was killed.  I like this.  But this means the total number of open
;; buffers tends to grow large.  Sometimes I kill them all, just for
;; fun.  What a nasty individual I am.
;; lazy-desktop does what you'd expect.  It opens up a couple of files
;; to be starting with.  And then runs everything else in the idle
;; cycle, opening up buffers slowly, hopefully in a way which should
;; not annoy you while working.  This way you get (more or less) the
;; best of both worlds.
;; To get this to work do (require 'lazy-desktop) in your .emacs.
;; Obviously you need to have desktop working as well. You need to do
;; this BEFORE you call `desktop-read', or your emacs will crash when
;; starting up.
;; You can set `lazy-desktop-verbose' if you want it to open buffers
;; in a way which will annoy you while working.

;;; Status:
;; I have just written this. It needs tidying up, and some things need
;; making options and so forth. 
;; Currently only tested on Emacs.

;;; Bugs:
;; Currently interacts really badly with ECB. 

;;; History:

;;; Code:
(defvar lazy-desktop-verbose nil)

;; change the default form so that this file is called for opening the
;; buffer
(setq desktop-create-buffer-form "(lazy-desktop-create-buffer 205")

(defvar lazy-desktop-create-buffer-stack nil
  "A stack created to store the loaded files.")

(defun lazy-desktop-create-buffer (ver desktop-buffer-file-name 
                                       mim pt mk ro desktop-buffer-misc
                                       &optional locals)
  "Despite the name don't create a buffer, but store knowledge of it, so we can 
do so later.
I don't know what all the parameters are going to do. So I will not document 
them, even if 
`checkdoc' tells me to."
   ;; what a lot of parameters!
   (list ver desktop-buffer-file-name desktop-buffer-name
         mim pt mk ro desktop-buffer-misc

(add-hook 'desktop-delay-hook 'lazy-desktop-delay)

(defvar lazy-desktop-timer nil)

(defun lazy-desktop-delay()
  "Open some buffers, set timers running"
  (let ((open-buffer))
    ;; open some buffers. The first one is the one we want to select.
    (setq open-buffer (current-buffer))
    (switch-to-buffer open-buffer)
    ;; now set up a timer to be going on with.
    (setq lazy-desktop-timer
          (run-with-idle-timer 5 t 'lazy-desktop-idle-timer))))

(defun lazy-desktop-idle-timer()
  "Loop run in idle.
Open up some more buffers, until the user does something, then stop.
If there are no buffers left to open, then stop, kill the timer,
and thats it."
  (let ((repeat 1))
    (while (and repeat lazy-desktop-create-buffer-stack)
      (setq repeat (sit-for 0.2)))
    (unless lazy-desktop-create-buffer-stack
      (message "Lazy desktop load complete")
      (sit-for 3)
      (message "")
      (cancel-timer lazy-desktop-idle-timer))))

(defun lazy-desktop-open-next-buffer()
  "Open a buffer, and bury it"
  (when lazy-desktop-create-buffer-stack
    (let* ((remaining (length lazy-desktop-create-buffer-stack))
            (pop lazy-desktop-create-buffer-stack))
           (buffer-name (nth 2 buffer)))
      (if lazy-desktop-verbose
          (message "Lazily opening %s (%s remaining)..." buffer-name remaining))
      (apply 'desktop-create-buffer buffer)
      (bury-buffer (get-buffer buffer-name))
      (if lazy-desktop-verbose
          (message "Lazily opening %s (%s remaining)...done" buffer-name 
(provide 'lazy-desktop)
;;; lazy-desktop.el ends here

reply via email to

[Prev in Thread] Current Thread [Next in Thread]