Package: guix-patches;
Reported by: Suhail <suhail <at> bayesians.ca>
Date: Thu, 4 Jan 2024 03:30:02 UTC
Severity: normal
Tags: patch
Done: Nicolas Goaziou <mail <at> nicolasgoaziou.fr>
Bug is archived. No further changes may be made.
Message #11 received at 68238 <at> debbugs.gnu.org (full text, mbox):
From: Suhail <suhail <at> bayesians.ca> To: 68238 <at> debbugs.gnu.org Subject: [PATCH 2/2] gnu: emacs-org: Run guix style on emacs-org. Date: Thu, 04 Jan 2024 03:36:31 +0000
* gnu/packages/emacs-xyz.scm: Re-indent.
Change-Id: Ia4159e59bb01a39c4c25f92e8840d4fafe28b0e3
---
gnu/packages/emacs-xyz.scm | 115 ++++++++++++++++++++-----------------
1 file changed, 61 insertions(+), 54 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index e96a162721..43de121d5c 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -16548,62 +16548,69 @@ (define-public emacs-org
(list
#:tests? #t
#:test-command #~(list "make" "test-dirty")
- #:phases
- #~(modify-phases %standard-phases
- (replace 'expand-load-path
- ;; Make sure `load-path' includes "lisp" directory, otherwise
- ;; byte-compilation fails.
- (lambda args
- (with-directory-excursion "lisp"
- (apply (assoc-ref %standard-phases 'expand-load-path) args))))
- (add-after 'expand-load-path 'bootstrap
- ;; XXX: Generate "org-loaddefs.el".
- (lambda _
- (invoke "make" "autoloads")))
- (add-before 'check 'fix-tests
- (lambda* (#:key inputs #:allow-other-keys)
- ;; XXX: Running tests updates ID locations. The process expects
- ;; a file to be writeable in "~/.emacs.d/".
- (setenv "HOME" (getcwd))
- (mkdir-p ".emacs.d")
- ;; These files are modified during testing.
- (with-directory-excursion "testing/examples"
- (for-each make-file-writable
- '("babel.org"
- "ob-awk-test.org"
- "ob-sed-test.org"
- "ob-shell-test.org"))
- ;; Specify where sh executable is.
- (let ((sh (search-input-file inputs "/bin/sh")))
- (substitute* "babel.org"
- (("/bin/sh") sh))))
- ;; XXX: Skip failing tests.
- (substitute* "testing/lisp/test-ob-shell.el"
- (("ob-shell/remote-with-stdin-or-cmdline .*" all)
- (string-append all " (skip-unless nil)\n")))
- (substitute* "testing/lisp/test-org.el"
- (("test-org/org-(encode-time|time-string-to-time) .*" all)
- (string-append all " (skip-unless nil)\n")))))
- (replace 'install
- (lambda _
- (let ((elpa (elpa-directory #$output))
- (info (string-append #$output "/share/info")))
- (substitute* "local.mk"
- (("^lispdir.*") (string-append "lispdir = " elpa))
- (("^datadir.*") (string-append "datadir = " elpa "/etc"))
- (("^infodir.*") (string-append "infodir = " info))))
- (invoke "make" "install" (string-append "ORGVERSION=" #$version))))
- (add-after 'install 'install-org-news
- ;; Install ORG-NEWS files in doc directory.
- (lambda _
- (install-file "etc/ORG-NEWS"
- (string-append #$output "/share/doc/"
- #$name "-" #$version)))))))
- (native-inputs
- (list texinfo))
+ #:phases #~(modify-phases %standard-phases
+ (replace 'expand-load-path
+ ;; Make sure `load-path' includes "lisp" directory, otherwise
+ ;; byte-compilation fails.
+ (lambda args
+ (with-directory-excursion "lisp"
+ (apply (assoc-ref %standard-phases
+ 'expand-load-path) args))))
+ (add-after 'expand-load-path 'bootstrap
+ ;; XXX: Generate "org-loaddefs.el".
+ (lambda _
+ (invoke "make" "autoloads")))
+ (add-before 'check 'fix-tests
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; XXX: Running tests updates ID locations. The process expects
+ ;; a file to be writeable in "~/.emacs.d/".
+ (setenv "HOME"
+ (getcwd))
+ (mkdir-p ".emacs.d")
+ ;; These files are modified during testing.
+ (with-directory-excursion "testing/examples"
+ (for-each make-file-writable
+ '("babel.org" "ob-awk-test.org"
+ "ob-sed-test.org" "ob-shell-test.org"))
+ ;; Specify where sh executable is.
+ (let ((sh (search-input-file inputs "/bin/sh")))
+ (substitute* "babel.org"
+ (("/bin/sh")
+ sh))))
+ ;; XXX: Skip failing tests.
+ (substitute* "testing/lisp/test-ob-shell.el"
+ (("ob-shell/remote-with-stdin-or-cmdline .*" all)
+ (string-append all " (skip-unless nil)\n")))
+ (substitute* "testing/lisp/test-org.el"
+ (("test-org/org-(encode-time|time-string-to-time) .*"
+ all)
+ (string-append all " (skip-unless nil)\n")))))
+ (replace 'install
+ (lambda _
+ (let ((elpa (elpa-directory #$output))
+ (info (string-append #$output "/share/info")))
+ (substitute* "local.mk"
+ (("^lispdir.*")
+ (string-append "lispdir = " elpa))
+ (("^datadir.*")
+ (string-append "datadir = " elpa "/etc"))
+ (("^infodir.*")
+ (string-append "infodir = " info))))
+ (invoke "make" "install"
+ (string-append "ORGVERSION="
+ #$version))))
+ (add-after 'install 'install-org-news
+ ;; Install ORG-NEWS files in doc directory.
+ (lambda _
+ (install-file "etc/ORG-NEWS"
+ (string-append #$output "/share/doc/"
+ #$name "-"
+ #$version)))))))
+ (native-inputs (list texinfo))
(home-page "https://orgmode.org/")
(synopsis "Outline-based notes management and organizer")
- (description "Org is an Emacs mode for keeping notes, maintaining TODO
+ (description
+ "Org is an Emacs mode for keeping notes, maintaining TODO
lists, and project planning with a fast and effective lightweight markup
language. It also is an authoring system with unique support for literate
programming and reproducible research.")
--
2.43.0
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.