aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/emacs.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/emacs.scm')
-rw-r--r--gnu/packages/emacs.scm26
1 files changed, 10 insertions, 16 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index b0a8b08dbe..9c7a19ad59 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -406,9 +406,9 @@ operations.")
(lisp-dir (string-append %output "/share/emacs/site-lisp")))
(setenv "PATH" PATH)
(system* tar "xvf" source)
- (mkdir-p lisp-dir)
- (copy-file (string-append ,name "-" ,version "/magit-svn.el")
- (string-append lisp-dir "/magit-svn.el"))
+
+ (install-file (string-append ,name "-" ,version "/magit-svn.el")
+ lisp-dir)
(with-directory-excursion lisp-dir
(parameterize ((%emacs emacs))
@@ -462,18 +462,14 @@ support for Git-SVN.")
out "/share/doc/haskell-mode-" ,version))
(info (string-append out "/share/info")))
(define (copy-to-dir dir files)
- (mkdir-p dir)
- (for-each
- (lambda (f)
- (copy-file f (string-append dir "/" (basename f))))
- files))
+ (for-each (lambda (f)
+ (install-file f dir))
+ files))
(with-directory-excursion "doc"
(unless (zero? (system* "makeinfo" "haskell-mode.texi"))
(error "makeinfo failed"))
- (mkdir-p info)
- (copy-file "haskell-mode.info"
- (string-append info "/haskell-mode.info")))
+ (install-file "haskell-mode.info" info))
(copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md"))
(copy-to-dir el-dir (find-files "." "\\.elc?"))
;; these are now distributed with emacs
@@ -876,11 +872,9 @@ single buffer.")
(lambda* (#:key outputs #:allow-other-keys)
(let ((target (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp/")))
- (mkdir-p target)
- (for-each
- (lambda (file)
- (copy-file file (string-append target (basename file))))
- (find-files "../lisp" "^(pdf|tab).*\\.elc?"))
+ (for-each (lambda (file)
+ (install-file file target))
+ (find-files "../lisp" "^(pdf|tab).*\\.elc?"))
(emacs-byte-compile-directory target)
(emacs-generate-autoloads "pdf-tools" target)))))))
(native-inputs `(("autoconf" ,autoconf)