- (alist-cons-before
- 'configure 'patch-makeinclude
- (lambda _
- (substitute* "makeinclude.in"
- (("/bin/sh") (which "sh"))))
- (alist-cons-after
- 'install 'patch-config
- ;; Provide -L flags for image libraries when querying fltk-config to
- ;; avoid propagating inputs.
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (use-modules (srfi srfi-26))
- (let* ((conf (string-append (assoc-ref outputs "out")
- "/bin/fltk-config"))
- (jpeg (assoc-ref inputs "libjpeg"))
- (png (assoc-ref inputs "libpng"))
- (zlib (assoc-ref inputs "zlib")))
- (substitute* conf
- (("-ljpeg") (string-append "-L" jpeg "/lib -ljpeg"))
- (("-lpng") (string-append "-L" png "/lib -lpng"))
- (("-lz") (string-append "-L" zlib "/lib -lz")))))
- %standard-phases))))
- (home-page "http://www.fltk.org")
+ (modify-phases %standard-phases
+ (add-before 'configure 'patch-makeinclude
+ (lambda _
+ (substitute* "makeinclude.in"
+ (("/bin/sh") (which "sh")))
+ #t))
+ (add-after 'install 'patch-config
+ ;; Provide -L flags for image libraries when querying fltk-config to
+ ;; avoid propagating inputs.
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((conf (string-append (assoc-ref outputs "out")
+ "/bin/fltk-config"))
+ (jpeg (assoc-ref inputs "libjpeg"))
+ (png (assoc-ref inputs "libpng"))
+ (zlib (assoc-ref inputs "zlib")))
+ (substitute* conf
+ (("-ljpeg") (string-append "-L" jpeg "/lib -ljpeg"))
+ (("-lpng") (string-append "-L" png "/lib -lpng"))
+ (("-lz") (string-append "-L" zlib "/lib -lz"))))
+ #t)))))
+ (home-page "https://www.fltk.org")