futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: emacs-haskell-mode: Use new style.

Browse Source 
* gnu/packages/emacs-xyz.scm (emacs-haskell-mode)[arguments]: Use gexps.
This commit is contained in:
Nicolas Goaziou 2021-12-15 12:03:03 +01:00
parent 9ad779f7b5
commit 67863365f2
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 54 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1408,18 +1408,18 @@ replacement.")
(list emacs-minimal emacs-el-search emacs-stream texinfo)) (list emacs-minimal emacs-el-search emacs-stream texinfo))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list (string-append "EMACS=" (list
(assoc-ref %build-inputs "emacs-minimal") #:make-flags #~(list
"/bin/emacs")) (string-append "EMACS=" #$emacs-minimal "/bin/emacs"))
#:modules ((ice-9 match) #:modules `((ice-9 match)
(srfi srfi-26) (srfi srfi-26)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'pre-build (add-before 'build 'pre-build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -1439,8 +1439,7 @@ replacement.")
(string-append (el-dir dir) ":")) (string-append (el-dir dir) ":"))
(_ "")) (_ ""))
inputs))) inputs)))
(substitute* (find-files "." "\\.el") (("/bin/sh") sh)) (substitute* (find-files "." "\\.el") (("/bin/sh") sh)))))
#t)))
(add-before 'check 'delete-failing-tests (add-before 'check 'delete-failing-tests
;; XXX: these tests require GHC executable, which would be a big ;; XXX: these tests require GHC executable, which would be a big
;; native input. ;; native input.
@ -1453,14 +1452,13 @@ replacement.")
(for-each delete-file (for-each delete-file
'("haskell-indent-tests.el" '("haskell-indent-tests.el"
"haskell-customize-tests.el" "haskell-customize-tests.el"
"inferior-haskell-tests.el"))) "inferior-haskell-tests.el")))))
#t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(el-dir (emacs:elpa-directory out)) (el-dir (emacs:elpa-directory out))
(doc (string-append (doc (string-append
out "/share/doc/haskell-mode-" ,version)) out "/share/doc/haskell-mode-" #$version))
(info (string-append out "/share/info"))) (info (string-append out "/share/info")))
(define (copy-to-dir dir files) (define (copy-to-dir dir files)
(for-each (lambda (f) (for-each (lambda (f)
@ -1471,8 +1469,7 @@ replacement.")
(invoke "makeinfo" "haskell-mode.texi") (invoke "makeinfo" "haskell-mode.texi")
(install-file "haskell-mode.info" info)) (install-file "haskell-mode.info" info))
(copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md")) (copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md"))
(copy-to-dir el-dir (find-files "." "\\.elc?")) (copy-to-dir el-dir (find-files "." "\\.elc?"))))))))
#t))))))
(home-page "https://github.com/haskell/haskell-mode") (home-page "https://github.com/haskell/haskell-mode")
(synopsis "Haskell mode for Emacs") (synopsis "Haskell mode for Emacs")
(description (description