From 1bcae5c5c565d96e5f8e19790f88ef2b5e712d95 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Fri, 11 Mar 2016 11:34:20 +0300 Subject: gnu: emacs-pdf-tools: Use emacs-build-system for elisp side. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/emacs.scm (emacs-pdf-tools)[arguments]: Add phases from emacs-build-system to build elisp side. Co-authored-by: Ludovic Courtès --- gnu/packages/emacs.scm | 57 +++++++++++++++++++++++++------------------------- 1 file changed, 29 insertions(+), 28 deletions(-) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index c9fbfcf1f1..38210e59dc 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -1018,40 +1018,41 @@ single buffer.") (arguments `(#:tests? #f ; there are no tests #:modules ((guix build gnu-build-system) + ((guix build emacs-build-system) #:prefix emacs:) (guix build utils) (guix build emacs-utils)) #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-build-system) (guix build emacs-utils)) #:phases (modify-phases %standard-phases - (add-after 'unpack 'enter-dir (lambda _ (chdir "server") #t)) - (add-before - 'configure 'autogen - (lambda _ - (zero? (system* "bash" "autogen.sh")))) - (add-before - 'build 'patch-variables - (lambda* (#:key outputs #:allow-other-keys) - (with-directory-excursion "../lisp" - ;; Set path to epdfinfo program. - (emacs-substitute-variables "pdf-info.el" - ("pdf-info-epdfinfo-program" - (string-append (assoc-ref outputs "out") - "/bin/epdfinfo"))) - ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto - ;; upgrading" that pdf-tools tries to perform. - (emacs-substitute-variables "pdf-tools.el" - ("pdf-tools-handle-upgrades" '()))))) - (add-after - 'install 'install-lisp - (lambda* (#:key outputs #:allow-other-keys) - (let ((target (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp/"))) - (for-each (lambda (file) - (install-file file target)) - (find-files "../lisp" "^(pdf|tab).*\\.elc?")) - (emacs-byte-compile-directory target) - (emacs-generate-autoloads "pdf-tools" target))))))) + ;; Build server side using 'gnu-build-system'. + (add-after 'unpack 'enter-server-dir + (lambda _ (chdir "server") #t)) + (add-before 'configure 'autogen + (lambda _ + (zero? (system* "bash" "autogen.sh")))) + + ;; Build emacs side using 'emacs-build-system'. + (add-after 'compress-documentation 'enter-lisp-dir + (lambda _ (chdir "../lisp") #t)) + (add-after 'enter-lisp-dir 'emacs-patch-variables + (lambda* (#:key outputs #:allow-other-keys) + ;; Set path to epdfinfo program. + (emacs-substitute-variables "pdf-info.el" + ("pdf-info-epdfinfo-program" + (string-append (assoc-ref outputs "out") + "/bin/epdfinfo"))) + ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto + ;; upgrading" that pdf-tools tries to perform. + (emacs-substitute-variables "pdf-tools.el" + ("pdf-tools-handle-upgrades" '())))) + (add-after 'emacs-patch-variables 'emacs-install + (assoc-ref emacs:%standard-phases 'install)) + (add-after 'emacs-install 'emacs-build + (assoc-ref emacs:%standard-phases 'build)) + (add-after 'emacs-install 'emacs-make-autoloads + (assoc-ref emacs:%standard-phases 'make-autoloads))))) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) ("pkg-config" ,pkg-config) -- cgit v1.2.3 /commit/gnu/system/examples?id=ff587e0fc0c7a7ba9366130acba8e349fa9a7e54'>vm-image: Mention 'info guix' in the MOTD....Ludovic Courtès 2019-04-27vm-image: Add a font to the global profile....Ludovic Courtès 2019-04-27doc: Update bit about SSH in the VM....Ludovic Courtès 2019-04-26vm-image: Remove NetworkManager & co. and add the DHCP client....Ludovic Courtès 2019-04-26vm-image: Use the actual file name of the current file....Ludovic Courtès 2019-04-26system: Provide a new VM image configuration....Ludovic Courtès 2019-04-10doc: Adjust desktop instructions for GDM....Ludovic Courtès 2019-04-05services: xorg: Add 'set-xorg-configuration'....Ludovic Courtès 2019-04-03gnu: Add example system configuration for asus-c201....Timothy Sample 2019-03-28system: Fix typo in desktop example....Ludovic Courtès 2019-03-27services: Deprecate 'xfce-desktop-service'....Ludovic Courtès 2019-03-27services: Deprecate 'gnome-desktop-service'....Ludovic Courtès 2019-03-25accounts: Add default value for the 'home-directory' field of <user-account>....Ludovic Courtès 2019-03-13Remove traces of "GuixSD"....Ludovic Courtès 2019-01-23gnu: Replace all cons* with beginner-friendly (append (list ...))....Pierre Neidhardt 2019-01-23gnu: Fix missing EFI entry in "desktop" example....Pierre Neidhardt 2019-01-20services: Use guix-service-type....Efraim Flashner 2018-12-24doc: Example vm-image doesn't need firmware....Efraim Flashner 2018-12-03doc: Fix "desktop" OS config example....Laura Lazzati 2018-11-26services: openssh: Install OpenSSH in the system profile....Ludovic Courtès 2018-10-18services: dhcp-client: Deprecate 'dhcp-client-service' procedure....Ludovic Courtès 2018-07-05doc: Improve UEFI/BIOS bootloader documentation....Ludovic Courtès 2018-05-28file-systems: Remove 'title' field and add <file-system-label>....Ludovic Courtès 2018-03-24system: Add "guix system docker-image" command....Chris Marusich 2018-03-03system: beaglebone-black: Use 'initrd-modules'....Ludovic Courtès 2018-01-21doc: No longer mention Wicd in OS examples....Ludovic Courtès 2017-12-22system: examples: Add missing initrd to beaglebone-black.tmpl....Mathieu Othacehe 2017-12-18system: examples: Add a template for BeagleBone Black....Mathieu Othacehe 2017-12-06gnu, doc, tests: Use ‘bootloader-configuration’ everywhere....Tobias Geerinckx-Rice 2017-10-11doc: Give an example with a FAT UUID....Ludovic Courtès 2017-09-12doc: Use Screen and OpenSSH in the bare-bones example....Ludovic Courtès