me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-pdf-tools: Update to 0.90-1. 

* gnu/packages/emacs-xyz.scm (emacs-pdf-tools): Update to 0.90-1.  Fix
indentation.

Update to an unreleased commit to fix an incompatibility with Emacs 27+.
master
Nicolas Goaziou 2020-09-12 14:09:40 +02:00
parent 5f5ff266e5
commit 61e7fa07c8
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 75 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2513,78 +2513,86 @@ during idle time, while Emacs is doing nothing else.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-pdf-tools (define-public emacs-pdf-tools
(package ;; XXX: Development branch fixes an incompatibility with Emacs 27+. See
(name "emacs-pdf-tools") ;; <https://github.com/politza/pdf-tools/issues/616>.
(version "0.90") (let ((commit "c510442ab89c8a9e9881230eeb364f4663f59e76")
(home-page "https://github.com/politza/pdf-tools") (revision "1"))
(source (origin (package
(method git-fetch) (name "emacs-pdf-tools")
(uri (git-reference (url home-page) (version (git-version "0.90" revision commit))
(commit (string-append "v" version)))) (source
(file-name (git-file-name name version)) (origin
(sha256 (method git-fetch)
(base32 (uri (git-reference
"0iv2g5kd14zk3r5dzdw7b7hk4b5w7qpbilcqkja46jgxbb6xnpl9")))) (url "https://github.com/politza/pdf-tools")
(build-system gnu-build-system) (commit commit)))
(arguments (file-name (git-file-name name version))
`(#:tests? #f ; there are no tests (sha256
#:modules ((guix build gnu-build-system) (base32 "17z3cpn76g9dp62drjrgrqpp1bgf4gl5k5gspylskpvd4kj4bq4d"))))
((guix build emacs-build-system) #:prefix emacs:) (build-system gnu-build-system)
(guix build utils) (arguments
(guix build emacs-utils)) `(#:tests? #f ; there are no tests
#:imported-modules (,@%gnu-build-system-modules #:modules ((guix build gnu-build-system)
(guix build emacs-build-system) ((guix build emacs-build-system) #:prefix emacs:)
(guix build emacs-utils)) (guix build utils)
#:phases (guix build emacs-utils))
(modify-phases %standard-phases #:imported-modules (,@%gnu-build-system-modules
;; Build server side using 'gnu-build-system'. (guix build emacs-build-system)
(add-after 'unpack 'enter-server-dir (guix build emacs-utils))
(lambda _ (chdir "server") #t)) #:phases
(add-after 'enter-server-dir 'autogen (modify-phases %standard-phases
(lambda _ ;; Build server side using 'gnu-build-system'.
(invoke "bash" "autogen.sh"))) (add-after 'unpack 'enter-server-dir
(lambda _ (chdir "server") #t))
(add-after 'enter-server-dir 'autogen
(lambda _
(invoke "bash" "autogen.sh")))
;; Build emacs side using 'emacs-build-system'. ;; Build emacs side using 'emacs-build-system'.
(add-after 'compress-documentation 'enter-lisp-dir (add-after 'compress-documentation 'enter-lisp-dir
(lambda _ (chdir "../lisp") #t)) (lambda _ (chdir "../lisp") #t))
(add-after 'enter-lisp-dir 'emacs-patch-variables (add-after 'enter-lisp-dir 'emacs-patch-variables
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(for-each make-file-writable (find-files ".")) (for-each make-file-writable (find-files "."))
;; Set path to epdfinfo program. ;; Set path to epdfinfo program.
(emacs-substitute-variables "pdf-info.el" (emacs-substitute-variables "pdf-info.el"
("pdf-info-epdfinfo-program" ("pdf-info-epdfinfo-program"
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/bin/epdfinfo"))) "/bin/epdfinfo")))
;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto
;; upgrading" that pdf-tools tries to perform. ;; upgrading" that pdf-tools tries to perform.
(emacs-substitute-variables "pdf-tools.el" (emacs-substitute-variables "pdf-tools.el"
("pdf-tools-handle-upgrades" '())))) ("pdf-tools-handle-upgrades" '()))))
(add-after 'emacs-patch-variables 'emacs-add-source-to-load-path (add-after 'emacs-patch-variables 'emacs-add-source-to-load-path
(assoc-ref emacs:%standard-phases 'add-source-to-load-path)) (assoc-ref emacs:%standard-phases 'add-source-to-load-path))
(add-after 'emacs-add-source-to-load-path 'emacs-install (add-after 'emacs-add-source-to-load-path 'emacs-install
(assoc-ref emacs:%standard-phases 'install)) (assoc-ref emacs:%standard-phases 'install))
(add-after 'emacs-install 'emacs-build (add-after 'emacs-install 'emacs-build
(assoc-ref emacs:%standard-phases 'build)) (assoc-ref emacs:%standard-phases 'build))
(add-after 'emacs-install 'emacs-make-autoloads (add-after 'emacs-install 'emacs-make-autoloads
(assoc-ref emacs:%standard-phases 'make-autoloads))))) (assoc-ref emacs:%standard-phases 'make-autoloads)))))
(native-inputs `(("autoconf" ,autoconf) (native-inputs
("automake" ,automake) `(("autoconf" ,autoconf)
("pkg-config" ,pkg-config) ("automake" ,automake)
("emacs" ,emacs-minimal))) ("pkg-config" ,pkg-config)
(inputs `(("poppler" ,poppler) ("emacs" ,emacs-minimal)))
("cairo" ,cairo) (inputs
("glib" ,glib) `(("poppler" ,poppler)
("libpng" ,libpng) ("cairo" ,cairo)
("zlib" ,zlib))) ("glib" ,glib)
(propagated-inputs `(("tablist" ,emacs-tablist))) ("libpng" ,libpng)
(synopsis "Emacs support library for PDF files") ("zlib" ,zlib)))
(description (propagated-inputs
"PDF Tools is, among other things, a replacement of DocView for PDF `(("tablist" ,emacs-tablist)))
(home-page "https://github.com/politza/pdf-tools")
(synopsis "Emacs support library for PDF files")
(description
"PDF Tools is, among other things, a replacement of DocView for PDF
files. The key difference is that pages are not pre-rendered by files. The key difference is that pages are not pre-rendered by
e.g. ghostscript and stored in the file-system, but rather created on-demand e.g. ghostscript and stored in the file-system, but rather created on-demand
and stored in memory.") and stored in memory.")
(license license:gpl3+))) (license license:gpl3+))))
(define-public emacs-dash (define-public emacs-dash
(package (package