1 | # Copyright 1999-2007 Gentoo Foundation |
1 | # Copyright 1999-2008 Gentoo Foundation |
2 | # Distributed under the terms of the GNU General Public License v2 |
2 | # Distributed under the terms of the GNU General Public License v2 |
3 | # $Header: /var/cvsroot/gentoo-x86/eclass/elisp-common.eclass,v 1.28 2007/09/22 20:25:30 ulm Exp $ |
3 | # $Header: /var/cvsroot/gentoo-x86/eclass/elisp-common.eclass,v 1.45 2008/09/01 10:45:26 ulm Exp $ |
4 | # |
4 | # |
5 | # Copyright 2007 Christian Faulhammer <opfer@gentoo.org> |
|
|
6 | # Copyright 2002-2004 Matthew Kennedy <mkennedy@gentoo.org> |
5 | # Copyright 2002-2004 Matthew Kennedy <mkennedy@gentoo.org> |
|
|
6 | # Copyright 2003 Jeremy Maitin-Shepard <jbms@attbi.com> |
7 | # Copyright 2004-2005 Mamoru Komachi <usata@gentoo.org> |
7 | # Copyright 2004-2005 Mamoru Komachi <usata@gentoo.org> |
8 | # Copyright 2003 Jeremy Maitin-Shepard <jbms@attbi.com> |
8 | # Copyright 2007-2008 Christian Faulhammer <opfer@gentoo.org> |
9 | # Copyright 2007 Ulrich Mueller <ulm@gentoo.org> |
9 | # Copyright 2007-2008 Ulrich Müller <ulm@gentoo.org> |
10 | # |
10 | # |
11 | # @ECLASS: elisp-common.eclass |
11 | # @ECLASS: elisp-common.eclass |
12 | # @MAINTAINER: |
12 | # @MAINTAINER: |
13 | # Feel free to contact the Emacs team through emacs@gentoo.org if you have |
13 | # Feel free to contact the Emacs team through <emacs@gentoo.org> if you have |
14 | # problems, suggestions or questions. |
14 | # problems, suggestions or questions. |
15 | # @BLURB: Emacs-related installation utilities |
15 | # @BLURB: Emacs-related installation utilities |
16 | # @DESCRIPTION: |
16 | # @DESCRIPTION: |
17 | # |
17 | # |
18 | # Usually you want to use this eclass for (optional) GNU Emacs support of |
18 | # Usually you want to use this eclass for (optional) GNU Emacs support of |
… | |
… | |
31 | # |
31 | # |
32 | # .SS |
32 | # .SS |
33 | # src_compile() usage: |
33 | # src_compile() usage: |
34 | # |
34 | # |
35 | # An elisp file is compiled by the elisp-compile() function defined here and |
35 | # An elisp file is compiled by the elisp-compile() function defined here and |
36 | # simply takes the source files as arguments. |
36 | # simply takes the source files as arguments. The case of interdependent |
|
|
37 | # elisp files is also supported, since the current directory is added to the |
|
|
38 | # load-path which makes sure that all files are loadable. |
37 | # |
39 | # |
38 | # elisp-compile *.el || die "elisp-compile failed" |
40 | # elisp-compile *.el || die "elisp-compile failed" |
39 | # |
41 | # |
40 | # In the case of interdependent elisp files, you can use the elisp-comp() |
42 | # Formerly, function elisp-comp() was used for compilation of interdependent |
41 | # function which makes sure all files are loadable. |
43 | # elisp files. This usage is considered as obsolete. |
42 | # |
|
|
43 | # elisp-comp *.el || die "elisp-comp failed" |
|
|
44 | # |
44 | # |
45 | # Function elisp-make-autoload-file() can be used to generate a file with |
45 | # Function elisp-make-autoload-file() can be used to generate a file with |
46 | # autoload definitions for the lisp functions. It takes the output file name |
46 | # autoload definitions for the lisp functions. It takes the output file name |
47 | # (default: "${PN}-autoloads.el") and a list of directories (default: working |
47 | # (default: "${PN}-autoloads.el") and a list of directories (default: working |
48 | # directory) as its arguments. Use of this function requires that the elisp |
48 | # directory) as its arguments. Use of this function requires that the elisp |
49 | # source files contain magic ";;;###autoload" comments. See the Emacs Lisp |
49 | # source files contain magic ";;;###autoload" comments. See the Emacs Lisp |
50 | # Reference Manual (node "Autoload") for a detailed explanation. |
50 | # Reference Manual (node "Autoload") for a detailed explanation. |
51 | # |
51 | # |
52 | # .SS |
52 | # .SS |
53 | # src_install() usage: |
53 | # src_install() usage: |
54 | # |
54 | # |
… | |
… | |
71 | # (add-to-list 'load-path "@SITELISP@") |
71 | # (add-to-list 'load-path "@SITELISP@") |
72 | # (add-to-list 'auto-mode-alist '("\\.csv\\'" . csv-mode)) |
72 | # (add-to-list 'auto-mode-alist '("\\.csv\\'" . csv-mode)) |
73 | # (autoload 'csv-mode "csv-mode" "Major mode for csv files." t) |
73 | # (autoload 'csv-mode "csv-mode" "Major mode for csv files." t) |
74 | # |
74 | # |
75 | # If your Emacs support files are installed in a subdirectory of |
75 | # If your Emacs support files are installed in a subdirectory of |
76 | # /usr/share/emacs/site-lisp/ (which is recommended if more than one file is |
76 | # /usr/share/emacs/site-lisp/ (which is recommended), you need to extend |
77 | # installed), you need to extend Emacs' load-path as shown in the first |
77 | # Emacs' load-path as shown in the first non-comment. |
78 | # non-comment. The elisp-site-file-install() function of this eclass will |
78 | # The elisp-site-file-install() function of this eclass will replace |
79 | # replace "@SITELISP@" by the actual path. |
79 | # "@SITELISP@" by the actual path. |
80 | # |
80 | # |
81 | # The next line tells Emacs to load the mode opening a file ending with |
81 | # The next line tells Emacs to load the mode opening a file ending with |
82 | # ".csv" and load functions depending on the context and needed features. |
82 | # ".csv" and load functions depending on the context and needed features. |
83 | # Be careful though. Commands as "load-library" or "require" bloat the |
83 | # Be careful though. Commands as "load-library" or "require" bloat the |
84 | # editor as they are loaded on every startup. When having a lot of Emacs |
84 | # editor as they are loaded on every startup. When having a lot of Emacs |
… | |
… | |
95 | # |
95 | # |
96 | # SITEFILE=50${PN}-gentoo.el |
96 | # SITEFILE=50${PN}-gentoo.el |
97 | # |
97 | # |
98 | # Which is then installed by |
98 | # Which is then installed by |
99 | # |
99 | # |
100 | # elisp-site-file-install "${FILESDIR}/${SITEFILE}" |
100 | # elisp-site-file-install "${FILESDIR}/${SITEFILE}" || die |
101 | # |
101 | # |
102 | # in src_install(). If your subdirectory is not named ${PN}, give the |
102 | # in src_install(). If your subdirectory is not named ${PN}, give the |
103 | # differing name as second argument. |
103 | # differing name as second argument. |
104 | # |
104 | # |
105 | # .SS |
105 | # .SS |
… | |
… | |
125 | # .SS |
125 | # .SS |
126 | # Miscellaneous functions: |
126 | # Miscellaneous functions: |
127 | # |
127 | # |
128 | # elisp-emacs-version() outputs the version of the currently active Emacs. |
128 | # elisp-emacs-version() outputs the version of the currently active Emacs. |
129 | |
129 | |
|
|
130 | # @ECLASS-VARIABLE: SITELISP |
|
|
131 | # @DESCRIPTION: |
|
|
132 | # Directory where packages install Emacs Lisp files. |
130 | SITELISP=/usr/share/emacs/site-lisp |
133 | SITELISP=/usr/share/emacs/site-lisp |
|
|
134 | |
|
|
135 | # Directory where packages install miscellaneous (not Lisp) files. |
|
|
136 | SITEETC=/usr/share/emacs/etc |
|
|
137 | |
|
|
138 | # @ECLASS-VARIABLE: SITEFILE |
|
|
139 | # @DESCRIPTION: |
|
|
140 | # Name of package's site-init file. |
131 | SITEFILE=50${PN}-gentoo.el |
141 | SITEFILE=50${PN}-gentoo.el |
|
|
142 | |
|
|
143 | # @ECLASS-VARIABLE: EMACS |
|
|
144 | # @DESCRIPTION: |
|
|
145 | # Path of Emacs executable. |
132 | EMACS=/usr/bin/emacs |
146 | EMACS=/usr/bin/emacs |
|
|
147 | |
|
|
148 | # @ECLASS-VARIABLE: EMACSFLAGS |
|
|
149 | # @DESCRIPTION: |
|
|
150 | # Flags for executing Emacs in batch mode. |
133 | # The following works for Emacs versions 18-23, don't change it. |
151 | # These work for Emacs versions 18-23, so don't change them. |
134 | EMACS_BATCH_CLEAN="${EMACS} -batch -q --no-site-file" |
152 | EMACSFLAGS="-batch -q --no-site-file" |
|
|
153 | |
|
|
154 | # @ECLASS-VARIABLE: BYTECOMPFLAGS |
|
|
155 | # @DESCRIPTION: |
|
|
156 | # Emacs flags used for byte-compilation in elisp-compile(). |
|
|
157 | BYTECOMPFLAGS="-L ." |
135 | |
158 | |
136 | # @FUNCTION: elisp-compile |
159 | # @FUNCTION: elisp-compile |
137 | # @USAGE: <list of elisp files> |
160 | # @USAGE: <list of elisp files> |
138 | # @DESCRIPTION: |
161 | # @DESCRIPTION: |
139 | # Byte-compile Emacs Lisp files. |
162 | # Byte-compile Emacs Lisp files. |
|
|
163 | # |
|
|
164 | # This function uses GNU Emacs to byte-compile all ".el" specified by its |
|
|
165 | # arguments. The resulting byte-code (".elc") files are placed in the same |
|
|
166 | # directory as their corresponding source file. |
|
|
167 | # |
|
|
168 | # The current directory is added to the load-path. This will ensure that |
|
|
169 | # interdependent Emacs Lisp files are visible between themselves, in case |
|
|
170 | # they require or load one another. |
140 | |
171 | |
141 | elisp-compile() { |
172 | elisp-compile() { |
142 | einfo "Compiling GNU Emacs Elisp files ..." |
173 | ebegin "Compiling GNU Emacs Elisp files" |
143 | ${EMACS_BATCH_CLEAN} -f batch-byte-compile "$@" |
174 | ${EMACS} ${EMACSFLAGS} ${BYTECOMPFLAGS} -f batch-byte-compile "$@" |
|
|
175 | eend $? "batch-byte-compile failed" |
|
|
176 | } |
|
|
177 | |
|
|
178 | # #FUNCTION: elisp-comp |
|
|
179 | # #USAGE: <list of elisp files> |
|
|
180 | # #DESCRIPTION: |
|
|
181 | # Byte-compile interdependent Emacs Lisp files. |
|
|
182 | # |
|
|
183 | # This function byte-compiles all ".el" files which are part of its |
|
|
184 | # arguments, using GNU Emacs, and puts the resulting ".elc" files into the |
|
|
185 | # current directory, so disregarding the original directories used in ".el" |
|
|
186 | # arguments. |
|
|
187 | # |
|
|
188 | # This function manages in such a way that all Emacs Lisp files to be |
|
|
189 | # compiled are made visible between themselves, in the event they require or |
|
|
190 | # load one another. |
|
|
191 | |
|
|
192 | elisp-comp() { |
|
|
193 | # Copyright 1995 Free Software Foundation, Inc. |
|
|
194 | # François Pinard <pinard@iro.umontreal.ca>, 1995. |
|
|
195 | # Originally taken from GNU autotools. |
|
|
196 | |
|
|
197 | [ $# -gt 0 ] || return 1 |
|
|
198 | |
|
|
199 | ebegin "Compiling GNU Emacs Elisp files" |
|
|
200 | |
|
|
201 | local tempdir=elc.$$ |
|
|
202 | mkdir ${tempdir} |
|
|
203 | cp "$@" ${tempdir} |
|
|
204 | pushd ${tempdir} |
|
|
205 | |
|
|
206 | echo "(add-to-list 'load-path \"../\")" > script |
|
|
207 | ${EMACS} ${EMACSFLAGS} -l script -f batch-byte-compile *.el |
|
|
208 | local ret=$? |
|
|
209 | mv *.elc .. |
|
|
210 | |
|
|
211 | popd |
|
|
212 | rm -fr ${tempdir} |
|
|
213 | |
|
|
214 | eend ${ret} "batch-byte-compile failed" |
|
|
215 | return ${ret} |
144 | } |
216 | } |
145 | |
217 | |
146 | # @FUNCTION: elisp-emacs-version |
218 | # @FUNCTION: elisp-emacs-version |
147 | # @DESCRIPTION: |
219 | # @DESCRIPTION: |
148 | # Output version of currently active Emacs. |
220 | # Output version of currently active Emacs. |
149 | |
221 | |
150 | elisp-emacs-version() { |
222 | elisp-emacs-version() { |
151 | # The following will work for at least versions 18-23. |
223 | # The following will work for at least versions 18-23. |
152 | echo "(princ emacs-version)" >"${T}"/emacs-version.el |
224 | echo "(princ emacs-version)" >"${T}"/emacs-version.el |
153 | ${EMACS_BATCH_CLEAN} -l "${T}"/emacs-version.el |
225 | ${EMACS} ${EMACSFLAGS} -l "${T}"/emacs-version.el |
|
|
226 | rm -f "${T}"/emacs-version.el |
154 | } |
227 | } |
155 | |
228 | |
156 | # @FUNCTION: elisp-make-autoload-file |
229 | # @FUNCTION: elisp-make-autoload-file |
157 | # @USAGE: [output file] [list of directories] |
230 | # @USAGE: [output file] [list of directories] |
158 | # @DESCRIPTION: |
231 | # @DESCRIPTION: |
159 | # Generate a file with autoload definitions for the lisp functions. |
232 | # Generate a file with autoload definitions for the lisp functions. |
160 | |
233 | |
161 | elisp-make-autoload-file () { |
234 | elisp-make-autoload-file() { |
162 | local f="${1:-${PN}-autoloads.el}" |
235 | local f="${1:-${PN}-autoloads.el}" |
163 | shift |
236 | shift |
164 | einfo "Generating autoload file for GNU Emacs ..." |
237 | ebegin "Generating autoload file for GNU Emacs" |
165 | |
238 | |
166 | sed 's/^FF/\f/' >"${f}" <<-EOF |
239 | sed 's/^FF/\f/' >"${f}" <<-EOF |
167 | ;;; ${f##*/} --- autoloads for ${P} |
240 | ;;; ${f##*/} --- autoloads for ${P} |
168 | |
241 | |
169 | ;;; Commentary: |
242 | ;;; Commentary: |
… | |
… | |
178 | ;; no-update-autoloads: t |
251 | ;; no-update-autoloads: t |
179 | ;; End: |
252 | ;; End: |
180 | ;;; ${f##*/} ends here |
253 | ;;; ${f##*/} ends here |
181 | EOF |
254 | EOF |
182 | |
255 | |
183 | ${EMACS_BATCH_CLEAN} \ |
256 | ${EMACS} ${EMACSFLAGS} \ |
184 | --eval "(setq make-backup-files nil)" \ |
257 | --eval "(setq make-backup-files nil)" \ |
185 | --eval "(setq generated-autoload-file (expand-file-name \"${f}\"))" \ |
258 | --eval "(setq generated-autoload-file (expand-file-name \"${f}\"))" \ |
186 | -f batch-update-autoloads "${@-.}" |
259 | -f batch-update-autoloads "${@-.}" |
|
|
260 | |
|
|
261 | eend $? "batch-update-autoloads failed" |
187 | } |
262 | } |
188 | |
263 | |
189 | # @FUNCTION: elisp-install |
264 | # @FUNCTION: elisp-install |
190 | # @USAGE: <subdirectory> <list of files> |
265 | # @USAGE: <subdirectory> <list of files> |
191 | # @DESCRIPTION: |
266 | # @DESCRIPTION: |
192 | # Install files in SITELISP directory. |
267 | # Install files in SITELISP directory. |
193 | |
268 | |
194 | elisp-install() { |
269 | elisp-install() { |
195 | local subdir="$1" |
270 | local subdir="$1" |
196 | shift |
271 | shift |
197 | einfo "Installing Elisp files for GNU Emacs support ..." |
272 | ebegin "Installing Elisp files for GNU Emacs support" |
198 | ( # subshell to avoid pollution of calling environment |
273 | ( # subshell to avoid pollution of calling environment |
199 | insinto "${SITELISP}/${subdir}" |
274 | insinto "${SITELISP}/${subdir}" |
200 | doins "$@" |
275 | doins "$@" |
201 | ) |
276 | ) |
|
|
277 | eend $? "doins failed" |
202 | } |
278 | } |
203 | |
279 | |
204 | # @FUNCTION: elisp-site-file-install |
280 | # @FUNCTION: elisp-site-file-install |
205 | # @USAGE: <site-init file> [subdirectory] |
281 | # @USAGE: <site-init file> [subdirectory] |
206 | # @DESCRIPTION: |
282 | # @DESCRIPTION: |
207 | # Install Emacs site-init file in SITELISP directory. |
283 | # Install Emacs site-init file in SITELISP directory. |
208 | |
284 | |
209 | elisp-site-file-install() { |
285 | elisp-site-file-install() { |
210 | local sf="$1" my_pn="${2:-${PN}}" |
286 | local sf="${T}/${1##*/}" my_pn="${2:-${PN}}" ret |
211 | einfo "Installing site initialisation file for GNU Emacs ..." |
287 | ebegin "Installing site initialisation file for GNU Emacs" |
212 | cp "${sf}" "${T}" |
288 | cp "$1" "${sf}" |
213 | sed -i "s:@SITELISP@:${SITELISP}/${my_pn}:g" "${T}/$(basename "${sf}")" |
289 | sed -i -e "s:@SITELISP@:${SITELISP}/${my_pn}:g" \ |
|
|
290 | -e "s:@SITEETC@:${SITEETC}/${my_pn}:g" "${sf}" |
214 | ( # subshell to avoid pollution of calling environment |
291 | ( # subshell to avoid pollution of calling environment |
215 | insinto "${SITELISP}" |
292 | insinto "${SITELISP}/site-gentoo.d" |
216 | doins "${T}/$(basename "${sf}")" |
293 | doins "${sf}" |
217 | ) |
294 | ) |
|
|
295 | ret=$? |
|
|
296 | rm -f "${sf}" |
|
|
297 | eend ${ret} "doins failed" |
218 | } |
298 | } |
219 | |
299 | |
220 | # @FUNCTION: elisp-site-regen |
300 | # @FUNCTION: elisp-site-regen |
221 | # @DESCRIPTION: |
301 | # @DESCRIPTION: |
222 | # Regenerate site-gentoo.el file. |
302 | # Regenerate site-gentoo.el file. The old location for site initialisation |
|
|
303 | # files of packages was /usr/share/emacs/site-lisp/. In December 2007 this |
|
|
304 | # has been changed to /usr/share/emacs/site-lisp/site-gentoo.d/. Remerge of |
|
|
305 | # packages with Emacs support is enough, the old location is still supported |
|
|
306 | # when generating the start-up file. |
223 | |
307 | |
224 | elisp-site-regen() { |
308 | elisp-site-regen() { |
225 | local sflist sf line |
309 | local i sf line obsolete |
|
|
310 | local -a sflist |
|
|
311 | # Work around Paludis borkage: variable T is empty in pkg_postrm |
|
|
312 | local tmpdir=${T:-$(mktemp -d)} |
|
|
313 | |
|
|
314 | if [ ! -d "${ROOT}${SITELISP}" ]; then |
|
|
315 | eerror "Directory ${SITELISP} does not exist" |
|
|
316 | return 1 |
|
|
317 | fi |
|
|
318 | |
|
|
319 | if [ ! -e "${ROOT}${SITELISP}"/site-gentoo.el ] \ |
|
|
320 | && [ ! -e "${ROOT}${SITELISP}"/site-start.el ]; then |
|
|
321 | einfo "Creating default ${SITELISP}/site-start.el ..." |
|
|
322 | cat <<-EOF >"${tmpdir}"/site-start.el |
|
|
323 | ;;; site-start.el |
|
|
324 | |
|
|
325 | ;;; Commentary: |
|
|
326 | ;; This default site startup file is installed by elisp-common.eclass. |
|
|
327 | ;; You may replace this file by your own site initialisation, or even |
|
|
328 | ;; remove it completely; it will not be recreated. |
|
|
329 | |
|
|
330 | ;;; Code: |
|
|
331 | ;; Load site initialisation for Gentoo-installed packages. |
|
|
332 | (require 'site-gentoo) |
|
|
333 | |
|
|
334 | ;;; site-start.el ends here |
|
|
335 | EOF |
|
|
336 | fi |
226 | |
337 | |
227 | einfon "Regenerating ${SITELISP}/site-gentoo.el ..." |
338 | einfon "Regenerating ${SITELISP}/site-gentoo.el ..." |
|
|
339 | |
|
|
340 | # remove any auxiliary file (from previous run) |
|
|
341 | rm -f "${ROOT}${SITELISP}"/00site-gentoo.el |
|
|
342 | |
|
|
343 | # set nullglob option, there may be a directory without matching files |
|
|
344 | local old_shopts=$(shopt -p nullglob) |
|
|
345 | shopt -s nullglob |
|
|
346 | |
|
|
347 | for sf in "${ROOT}${SITELISP}"/[0-9][0-9]*-gentoo.el \ |
|
|
348 | "${ROOT}${SITELISP}"/site-gentoo.d/[0-9][0-9]*.el |
|
|
349 | do |
|
|
350 | [ -r "${sf}" ] || continue |
|
|
351 | # sort files by their basename. straight insertion sort. |
|
|
352 | for ((i=${#sflist[@]}; i>0; i--)); do |
|
|
353 | [[ ${sf##*/} < ${sflist[i-1]##*/} ]] || break |
|
|
354 | sflist[i]=${sflist[i-1]} |
|
|
355 | done |
|
|
356 | sflist[i]=${sf} |
|
|
357 | # set a flag if there are obsolete files |
|
|
358 | [ "${sf%/*}" = "${ROOT}${SITELISP}" ] && obsolete=t |
|
|
359 | done |
|
|
360 | |
|
|
361 | eval "${old_shopts}" |
|
|
362 | |
228 | cat <<-EOF >"${T}"/site-gentoo.el |
363 | cat <<-EOF >"${tmpdir}"/site-gentoo.el |
229 | ;;; site-gentoo.el --- site initialisation for Gentoo-installed packages |
364 | ;;; site-gentoo.el --- site initialisation for Gentoo-installed packages |
230 | |
365 | |
231 | ;;; Commentary: |
366 | ;;; Commentary: |
232 | ;; Automatically generated by elisp-common.eclass |
367 | ;; Automatically generated by elisp-common.eclass |
233 | ;; DO NOT EDIT THIS FILE |
368 | ;; DO NOT EDIT THIS FILE |
234 | |
369 | |
235 | ;;; Code: |
370 | ;;; Code: |
236 | EOF |
371 | EOF |
237 | |
372 | cat "${sflist[@]}" </dev/null >>"${tmpdir}"/site-gentoo.el |
238 | for sf in "${ROOT}${SITELISP}"/[0-9][0-9]*-gentoo.el |
|
|
239 | do |
|
|
240 | [ -r "${sf}" ] || continue |
|
|
241 | sflist="${sflist} $(basename "${sf}")" |
|
|
242 | cat "${sf}" >>"${T}"/site-gentoo.el |
|
|
243 | done |
|
|
244 | |
|
|
245 | cat <<-EOF >>"${T}"/site-gentoo.el |
373 | cat <<-EOF >>"${tmpdir}"/site-gentoo.el |
246 | |
374 | |
247 | (provide 'site-gentoo) |
375 | (provide 'site-gentoo) |
248 | |
376 | |
249 | ;; Local Variables: |
377 | ;; Local Variables: |
250 | ;; no-byte-compile: t |
378 | ;; no-byte-compile: t |
251 | ;; End: |
379 | ;; End: |
252 | ;;; site-gentoo.el ends here |
380 | ;;; site-gentoo.el ends here |
253 | EOF |
381 | EOF |
254 | |
382 | |
255 | if cmp -s "${ROOT}${SITELISP}"/site-gentoo.el "${T}"/site-gentoo.el; then |
383 | if cmp -s "${ROOT}${SITELISP}"/site-gentoo.el "${tmpdir}"/site-gentoo.el |
|
|
384 | then |
256 | # This prevents outputting unnecessary text when there |
385 | # This prevents outputting unnecessary text when there |
257 | # was actually no change |
386 | # was actually no change. |
258 | # A case is a remerge where we have doubled output |
387 | # A case is a remerge where we have doubled output. |
259 | echo " no changes." |
388 | echo " no changes." |
260 | else |
389 | else |
261 | mv "${T}"/site-gentoo.el "${ROOT}${SITELISP}"/site-gentoo.el |
390 | mv "${tmpdir}"/site-gentoo.el "${ROOT}${SITELISP}"/site-gentoo.el |
|
|
391 | [ -f "${tmpdir}"/site-start.el ] \ |
|
|
392 | && [ ! -e "${ROOT}${SITELISP}"/site-start.el ] \ |
|
|
393 | && mv "${tmpdir}"/site-start.el "${ROOT}${SITELISP}"/site-start.el |
262 | echo; einfo |
394 | echo; einfo |
263 | for sf in ${sflist}; do |
395 | for sf in "${sflist[@]##*/}"; do |
264 | einfo " Adding ${sf} ..." |
396 | einfo " Adding ${sf} ..." |
265 | done |
397 | done |
|
|
398 | einfo "Regenerated ${SITELISP}/site-gentoo.el." |
|
|
399 | |
|
|
400 | echo |
266 | while read line; do einfo "${line}"; done <<EOF |
401 | while read line; do einfo "${line:- }"; done <<-EOF |
267 | |
|
|
268 | All site initialisation for Gentoo-installed packages is added to |
402 | All site initialisation for Gentoo-installed packages is added to |
269 | /usr/share/emacs/site-lisp/site-gentoo.el; site-start.el is no longer |
403 | /usr/share/emacs/site-lisp/site-gentoo.el; site-start.el is not |
270 | managed by Gentoo. You are responsible for all maintenance of |
404 | managed by Gentoo. You are responsible for all maintenance of |
271 | site-start.el if there is such a file. |
405 | site-start.el if there is such a file. |
272 | |
406 | |
273 | In order for this site initialisation to be loaded for all users |
407 | In order for this site initialisation to be loaded for all users |
274 | automatically, you can add a line like this: |
408 | automatically, you can add a line like this: |
275 | |
409 | |
276 | (load "/usr/share/emacs/site-lisp/site-gentoo" nil t) |
410 | (require 'site-gentoo) |
277 | |
411 | |
278 | to /usr/share/emacs/site-lisp/site-start.el. Alternatively, that line |
412 | to /usr/share/emacs/site-lisp/site-start.el. Alternatively, that line |
279 | can be added by individual users to their initialisation files, or for |
413 | can be added by individual users to their initialisation files, or, |
280 | greater flexibility, users can select which of the package-specific |
414 | for greater flexibility, users can load individual package-specific |
281 | initialisation files in /usr/share/emacs/site-lisp/ to load. |
415 | initialisation files from /usr/share/emacs/site-lisp/site-gentoo.d/. |
282 | EOF |
416 | EOF |
283 | echo |
417 | echo |
284 | fi |
418 | fi |
285 | } |
|
|
286 | |
419 | |
287 | # @FUNCTION: elisp-comp |
420 | if [ "${obsolete}" ]; then |
288 | # @USAGE: <list of elisp files> |
421 | while read line; do ewarn "${line}"; done <<-EOF |
289 | # @DESCRIPTION: |
422 | Site-initialisation files of Emacs packages are now installed in |
290 | # Byte-compile interdependent Emacs Lisp files. |
423 | /usr/share/emacs/site-lisp/site-gentoo.d/. We strongly recommend |
291 | # |
424 | that you use /usr/sbin/emacs-updater to rebuild the installed |
292 | # This function byte-compiles all ".el" files which are part of its |
425 | Emacs packages. |
293 | # arguments, using GNU Emacs, and puts the resulting ".elc" files into the |
426 | EOF |
294 | # current directory, so disregarding the original directories used in ".el" |
427 | echo |
295 | # arguments. |
|
|
296 | # |
|
|
297 | # This function manages in such a way that all Emacs Lisp files to be |
|
|
298 | # compiled are made visible between themselves, in the event they require or |
|
|
299 | # load one another. |
|
|
300 | |
428 | |
301 | elisp-comp() { |
429 | # Kludge for backwards compatibility: During pkg_postrm, old versions |
302 | # Copyright 1995 Free Software Foundation, Inc. |
430 | # of this eclass (saved in the VDB) won't find packages' site-init |
303 | # François Pinard <pinard@iro.umontreal.ca>, 1995. |
431 | # files in the new location. So we copy them to an auxiliary file |
304 | # Originally taken from GNU autotools. |
432 | # that is visible to old eclass versions. |
305 | |
433 | for sf in "${sflist[@]}"; do |
306 | test $# -gt 0 || return 1 |
434 | [ "${sf%/*}" = "${ROOT}${SITELISP}/site-gentoo.d" ] \ |
307 | |
435 | && cat "${sf}" >>"${ROOT}${SITELISP}"/00site-gentoo.el |
308 | if test -z "${EMACS}" || test "${EMACS}" = "t"; then |
436 | done |
309 | # Value of "t" means we are running in a shell under Emacs. |
|
|
310 | # Just assume Emacs is called "emacs". |
|
|
311 | EMACS=/usr/bin/emacs |
|
|
312 | fi |
437 | fi |
313 | einfo "Compiling GNU Emacs Elisp files ..." |
|
|
314 | |
438 | |
315 | tempdir=elc.$$ |
439 | # cleanup |
316 | mkdir ${tempdir} |
440 | rm -f "${tmpdir}"/site-{gentoo,start}.el |
317 | cp "$@" ${tempdir} |
|
|
318 | pushd ${tempdir} |
|
|
319 | |
441 | |
320 | echo "(add-to-list 'load-path \"../\")" > script |
442 | return 0 |
321 | ${EMACS_BATCH_CLEAN} -l script -f batch-byte-compile *.el |
|
|
322 | local ret=$? |
|
|
323 | mv *.elc .. |
|
|
324 | |
|
|
325 | popd |
|
|
326 | rm -fr ${tempdir} |
|
|
327 | return ${ret} |
|
|
328 | } |
443 | } |