gnu: emacs-org-inline-pdf: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-org-inline-pdf)[arguments]: Use G-expressions. Use SEARCH-INPUT-FILE.
This commit is contained in:
		
							parent
							
								
									03de9b587a
								
							
						
					
					
						commit
						ea34c09bc2
					
				
					 1 changed files with 8 additions and 7 deletions
				
			
		| 
						 | 
					@ -6884,13 +6884,14 @@ allrecipes.com.")
 | 
				
			||||||
    (inputs
 | 
					    (inputs
 | 
				
			||||||
     (list pdf2svg))
 | 
					     (list pdf2svg))
 | 
				
			||||||
    (arguments
 | 
					    (arguments
 | 
				
			||||||
     `(#:phases
 | 
					     (list
 | 
				
			||||||
       (modify-phases %standard-phases
 | 
					      #:phases
 | 
				
			||||||
 | 
					      #~(modify-phases %standard-phases
 | 
				
			||||||
          (add-after 'unpack 'patch-exec-paths
 | 
					          (add-after 'unpack 'patch-exec-paths
 | 
				
			||||||
            (lambda* (#:key inputs #:allow-other-keys)
 | 
					            (lambda* (#:key inputs #:allow-other-keys)
 | 
				
			||||||
             (let ((pdf2svg (assoc-ref inputs "pdf2svg")))
 | 
					              (let ((pdf2svg (search-input-file inputs "/bin/pdf2svg")))
 | 
				
			||||||
                (substitute* "org-inline-pdf.el"
 | 
					                (substitute* "org-inline-pdf.el"
 | 
				
			||||||
                 (("\"pdf2svg\"") (string-append "\"" pdf2svg "/bin/pdf2svg\"")))))))))
 | 
					                  (("\"pdf2svg\"") (string-append "\"" pdf2svg "\"")))))))))
 | 
				
			||||||
    (home-page "https://github.com/shg/org-inline-pdf.el")
 | 
					    (home-page "https://github.com/shg/org-inline-pdf.el")
 | 
				
			||||||
    (synopsis "Inline PDF previewing for Org")
 | 
					    (synopsis "Inline PDF previewing for Org")
 | 
				
			||||||
    (description "This package provides a minor mode that enables
 | 
					    (description "This package provides a minor mode that enables
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue