[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: emacs-esxml: Fix byte compilation.
From: |
Arun Isaac |
Subject: |
02/02: gnu: emacs-esxml: Fix byte compilation. |
Date: |
Fri, 20 Apr 2018 05:21:10 -0400 (EDT) |
arunisaac pushed a commit to branch master
in repository guix.
commit 9835a71d80c57d26e041abbc6d8ca65e4e1277c6
Author: Maxim Cournoyer <address@hidden>
Date: Sat Mar 24 23:07:18 2018 -0400
gnu: emacs-esxml: Fix byte compilation.
* gnu/packages/emacs.scm (emacs-esxml)[arguments]: Add fix-sources phase.
Signed-off-by: Arun Isaac <address@hidden>
---
gnu/packages/emacs.scm | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 8379d69..b8aa900 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -7340,6 +7340,28 @@ Lisp.")
(base32
"00vv8a75wdklygdyr4km9mc2ismxak69c45jmcny41xl44rp9x8m"))))
(build-system emacs-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-sources
+ (lambda _
+ ;; See: https://github.com/tali713/esxml/pull/28.
+ (substitute* "css-lite.el"
+ ((";;; main interface")
+ (string-append ";;; main interface\n"
+ "(require 'cl-lib)"))
+ (("mapcan")
+ "cl-mapcan")
+ (("',\\(cl-mapcan #'process-css-rule rules\\)")
+ "(cl-mapcan #'process-css-rule ',rules)"))
+ (substitute* "esxml-form.el"
+ ((",esxml-form-field-defn")
+ "#'esxml-form-field-defn"))
+ ;; See: https://github.com/tali713/esxml/issues/25
+ (delete-file "esxpath.el")
+ #t)))))
+ (propagated-inputs
+ `(("emacs-kv" ,emacs-kv)))
(home-page "https://github.com/tali713/esxml/")
(synopsis "SXML for EmacsLisp")
(description "This is XML/XHTML done with S-Expressions in EmacsLisp.