From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alexander Bokovoy To: devel@linux.iplabs.ru Subject: Re: [devel] Re: [mdk-re] /etc/emacs/site-start.d Message-ID: <20010505195700.B3380@boids.avilink.net> References: <20010505130858.499354fc.vsu@mivlgu.murom.ru> <20010505144359.40eee02d.vsu@mivlgu.murom.ru> <20010505171647.7044e4ca.vsu@mivlgu.murom.ru> Mime-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: 8bit User-Agent: Mutt/1.2.5i In-Reply-To: <20010505171647.7044e4ca.vsu@mivlgu.murom.ru>; from vsu@mivlgu.murom.ru on Sat, May 05, 2001 at 05:16:47PM +0400 Sender: devel-admin@linux.iplabs.ru Errors-To: devel-admin@linux.iplabs.ru X-BeenThere: devel@linux.iplabs.ru X-Mailman-Version: 2.0 Precedence: bulk Reply-To: devel@linux.iplabs.ru List-Help: List-Post: List-Subscribe: , List-Id: IPLabs Linux Team Developers mailing list List-Unsubscribe: , List-Archive: X-Original-Date: Sat, 5 May 2001 19:57:00 +0300 Date: Sat, 5 May 2001 19:57:00 +0300 Archived-At: List-Archive: List-Post: On Sat, May 05, 2001 at 05:16:47PM +0400, Sergey Vlasov wrote: > > установленные после появления этих пользователей - в соответствии с > > содержимым /etc/emacs/site-start.d. Правда, судя по названию каталога, > > прописывать такую команду предполагалось все-таки в общесистемный > > /usr/share/emacs/site-lisp/site-start.el, но в этом случае у > > пользователя > > нет простого способа отменить загрузку этих файлов. > > Вот еще один вариант реализации. В /usr/share/emacs/site-lisp кладем файл > package-autoload.el: > > ;;; package-autoload.el --- run package autoload files > > ;; Copyright (C) 2001 by Free Software Foundation, Inc. > > ;; Author: Sergey Vlasov > ;; Keywords: extensions > > ;; This file 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 file is distributed in the hope that it will be useful, > ;; but WITHOUT ANY WARRANTY; without even the implied warranty of > ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > ;; GNU General Public License for more details. > > ;; You should have received a copy of the GNU General Public License > ;; along with GNU Emacs; see the file COPYING. If not, write to > ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, > ;; Boston, MA 02111-1307, USA. > > ;;; Commentary: > > ;; This file loads .el files from /etc/emacs/site-start.d. Files in > ;; this directory are supposed to be autoload files for Emacs add-on > ;; packages. > > ;;; Code: > > (mapcar 'load-file > (directory-files "/etc/emacs/site-start.d" t "\\.el$")) > > (provide 'package-autoload) > > ;;; package-autoload.el ends here > > В этом же каталоге в файле default.el пишем: > > (require 'package-autoload) > > В /etc/skel*/.emacs в начало добавляем: > > (require 'package-autoload nil t) > > В результате получаем следующее: > > 1. У новых пользователей с ~/.emacs из нового etcskel в начале обработки > ~/.emacs загрузятся все файлы автозагрузки из /etc/emacs/site-start.d. При > этом require в default.el молча проигнорируется. > > 2. У пользователей со старым ~/.emacs файлы автозагрузки будут грузиться > из default.el, т.е. после обработки ~/.emacs. Из-за этого в ~/.emacs > нельзя будет настраивать эти пакеты, если не добавить предварительно > строку (require 'package-autoload). Если дополнительно не настраивать, все > будет работать и так. > > 3. Пользователи, которым по каким-то причинам не нравится автозагрузка > файлов из /etc/emacs/site-start.d, могут выбросить из ~/.emacs > соответствующую команду и отменить загрузку default.el, установив > inhibit-default-init. > > 4. Наконец, если в системе установлен новый пакет etcskel, но старый > emacs, в котором нет файла package-autoload.el, проблем при запуске Emacs > тоже не возникнет (за исключением незагрузки файлов из > /etc/emacs/site-start.d), поскольку (require 'package-autoload nil t) > игнорирует отсутствие запрошенного файла. > > Ваши замечания? Выглядит красиво. Олег, что Вы скажете? -- С уважением, Александр Боковой. ALT Linux Team // www.altlinux.ru -- You won't skid if you stay in a rut. -- Frank Hubbard _______________________________________________ Devel mailing list Devel@linux.iplabs.ru http://www.logic.ru/mailman/listinfo/devel