[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: email@example.com
- Subject: Inits Manager
- From: Ranson <firstname.lastname@example.org>
- Date: 29 Oct 91 14:08:00 GMT
- X400-received: by /PRMD=inria/ADMD=atlas/C=FR/; Relayed; 29 Oct 91 14:08:48+0100
- X400-received: by /PRMD=CNET/ADMD=ATLAS/C=FR/; Relayed; 29 Oct 91 14:08:00 GMT
;;;; Author: Daniel Ranson (email@example.com) (AppleLink: RANSON)
;;;; This is a quick and dirty Init Manager for MCL2.0.
;;;; Loads the files in directory named "inits" inside MCL directory, in
;;;; alphabetical order
;;;; If the Option key is held down while this file loads, a window with the
;;;; list of init files pops up, and it is possible to select which files
;;;; will be loaded this time.
;;;; This code has been tested with MCL2.0b3. For b1, change the two
;;;; occurrences of "ccl:inits;*" to "ccl;inits:*"
;;;; Use this code any way you want, and take responsibility for any damage
;;;; it may cause.
(defun get-init-files ()
(let ((l1 (directory "ccl:inits;*"))
(setq l2 (select-item-from-list l1
:window-title "Select init files to load"
(if (eq l2 t)
(setq l2 l1)
(setq l2 (sort l2 #'(lambda (x y) (member y (member x l1)))))))
(setq l2 l1)))))
(when (probe-file "ccl:inits;")
(dolist (f (get-init-files))
(load f :verbose nil :print nil)))