me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-xelb: Improve package style. 

* gnu/packages/emacs-xyz.scm (emacs-xelb)[arguments]: Use G-expressions.
<#:phases>: Allow package transformations and cross-compiling.

Change-Id: I2814230abed881d04b708bddf9b7ef1551a78bdf
master
Nicolas Goaziou 2024-06-18 22:21:29 +02:00
parent 6c2a65e566
commit fdeed12299
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/packages/emacs-xyz.scm
View File

@ -19743,20 +19743,20 @@ conflicts.")
;; x-hyper-keysym, x-super-keysym, libxml-parse-xml-region ;; x-hyper-keysym, x-super-keysym, libxml-parse-xml-region
;; x-display-pixel-width, x-display-pixel-height ;; x-display-pixel-width, x-display-pixel-height
(arguments (arguments
`(#:emacs ,emacs (list
#:phases #:emacs emacs
(modify-phases %standard-phases #:phases
(add-after 'unpack 'regenerate-el-files #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'regenerate-el-files
(substitute* "xelb-gen" (lambda* (#:key inputs native-inputs #:allow-other-keys)
(("/usr/bin/env") (which "env"))) (substitute* "xelb-gen"
(invoke "make" (("/usr/bin/env") (which "env")))
(string-append "PROTO_PATH=" (let ((xcb-proto #$(this-package-native-input "xcb-proto"))
(assoc-ref inputs "xcb-proto") (emacs (search-input-file (or native-inputs inputs)
"/share/xcb") "/bin/emacs")))
(string-append "EMACS_BIN=" (invoke "make"
(assoc-ref inputs "emacs") (format #f "PROTO_PATH=~a/share/xcb" xcb-proto)
"/bin/emacs -Q"))))))) (format #f "EMACS_BIN=~a -Q" emacs))))))))
(native-inputs (list xcb-proto)) (native-inputs (list xcb-proto))
(home-page "https://github.com/ch11ng/xelb") (home-page "https://github.com/ch11ng/xelb")
(synopsis "X protocol Emacs Lisp binding") (synopsis "X protocol Emacs Lisp binding")