From: Suhail via Guix-patches via <guix-patches@gnu.org>
To: 68238@debbugs.gnu.org
Subject: [bug#68238] [PATCH 2/2] gnu: emacs-org: Run guix style on emacs-org.
Date: Thu, 04 Jan 2024 03:36:31 +0000 [thread overview]
Message-ID: <8fbdcd98736d93900eeee510ee623b12a9bc436b.1704332165.git.suhail@bayesians.ca> (raw)
In-Reply-To: <cover.1704332165.git.suhail@bayesians.ca>
* 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
prev parent reply other threads:[~2024-01-04 3:37 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-01-04 3:28 [bug#68238] [PATCH 0/2] gnu: emacs-org: Update to 9.6.15 + style fix Suhail via Guix-patches via
2024-01-04 3:35 ` [bug#68238] [PATCH 1/2] gnu: emacs-org: Update to 9.6.15 Suhail via Guix-patches via
2024-01-21 23:28 ` Nicolas Goaziou via Guix-patches via
2024-01-04 3:36 ` Suhail via Guix-patches via [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8fbdcd98736d93900eeee510ee623b12a9bc436b.1704332165.git.suhail@bayesians.ca \
--to=guix-patches@gnu.org \
--cc=68238@debbugs.gnu.org \
--cc=suhail@bayesians.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.