[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#28805] [PATCH] gnu: Add emacs-org-plus-contrib.
From: |
Ludovic Courtès |
Subject: |
[bug#28805] [PATCH] gnu: Add emacs-org-plus-contrib. |
Date: |
Mon, 16 Oct 2017 09:27:57 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux) |
Hi!
Christopher Baines <address@hidden> skribis:
> From 43ad9a4e6db6f4f94d2b2f63cbd9b729f5d4e607 Mon Sep 17 00:00:00 2001
> From: Christopher Baines <address@hidden>
> Date: Wed, 11 Oct 2017 14:46:47 +0100
> Subject: [PATCH] gnu: Add emacs-org-contrib.
>
> * gnu/packages/emacs.scm (emacs-org-contrib): New variable.
[...]
> + (modify-phases %standard-phases
> + (add-after 'install 'delete-org-files
> + (lambda* (#:key inputs outputs #:allow-other-keys)
> + (let* ((out (assoc-ref outputs "out"))
> + (org (assoc-ref inputs "emacs-org"))
> + (contrib-files
> + (map basename (find-files out)))
> + (org+contrib-files
> + (map basename (find-files org)))
> + (duplicates (lset-intersection
> + string=? contrib-files org+contrib-files)))
> + (with-directory-excursion
> + (string-append
> + out "/share/emacs/site-lisp/guix.d/org-contrib-"
> + ,(package-version emacs-org))
> + (for-each delete-file duplicates))))))))
Awesome. Just return #t and we’re done. :-)
Thank you!
Ludo’.