[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/05: build: emacs-utils: Add 'emacs-generate-autoloads'.
From: |
Alex Kost |
Subject: |
03/05: build: emacs-utils: Add 'emacs-generate-autoloads'. |
Date: |
Tue, 02 Dec 2014 19:10:36 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit 0b08600ca5fa791731135111000243a9942aab41
Author: Alex Kost <address@hidden>
Date: Mon Dec 1 20:21:08 2014 +0300
build: emacs-utils: Add 'emacs-generate-autoloads'.
* guix/build/emacs-utils.scm (emacs-generate-autoloads): New procedure.
---
guix/build/emacs-utils.scm | 10 ++++++++++
1 files changed, 10 insertions(+), 0 deletions(-)
diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm
index 10ef3c8..0cff28b 100644
--- a/guix/build/emacs-utils.scm
+++ b/guix/build/emacs-utils.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Mark H Weaver <address@hidden>
+;;; Copyright © 2014 Alex Kost <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -20,6 +21,7 @@
#:export (%emacs
emacs-batch-eval
emacs-batch-edit-file
+ emacs-generate-autoloads
emacs-substitute-sexps
emacs-substitute-variables))
@@ -47,6 +49,14 @@
(format #f "--eval=~S" expr)))
(error "emacs-batch-edit-file failed!" file expr)))
+(define (emacs-generate-autoloads name directory)
+ "Generate autoloads for Emacs package NAME placed in DIRECTORY."
+ (let* ((file (string-append directory "/" name "-autoloads.el"))
+ (expr `(let ((backup-inhibited t)
+ (generated-autoload-file ,file))
+ (update-directory-autoloads ,directory))))
+ (emacs-batch-eval expr)))
+
(define-syntax emacs-substitute-sexps
(syntax-rules ()
"Substitute the S-expression immediately following the first occurrence of