me
/
guix
Archived
1
0
Fork 0
Code

gnu: guile-wm: Remove trailing #t from phases. 

* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Don't explicitly
return #t.
master
Tobias Geerinckx-Rice 2022-05-22 02:00:00 +02:00
parent 83a760dd58
commit 9744b3b244
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/guile-wm.scm
View File

@ -115,8 +115,7 @@ dependencies.")
(("^wmdir = .*$") (("^wmdir = .*$")
(string-append "wmdir = " out (string-append "wmdir = " out
"/share/guile/site/" "/share/guile/site/"
effective "\n")))) effective "\n"))))))
#t))
(add-after 'install 'set-load-path (add-after 'install 'set-load-path
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Put Guile-XCB's and Guile-WM's modules in the ;; Put Guile-XCB's and Guile-WM's modules in the
@ -136,8 +135,7 @@ dependencies.")
(,mods ,(string-append xcb "/share/guile/site/" effective))) (,mods ,(string-append xcb "/share/guile/site/" effective)))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix `("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,gos ,(string-append xcb "/lib/guile/" (,gos ,(string-append xcb "/lib/guile/"
effective "/site-ccache"))))) effective "/site-ccache")))))))
#t))
(add-after 'install 'install-go-files (add-after 'install 'install-go-files
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -158,8 +156,7 @@ dependencies.")
(go (string-append object-dir base ".go"))) (go (string-append object-dir base ".go")))
(invoke "guild" "compile" "-L" module-dir (invoke "guild" "compile" "-L" module-dir
file "-o" go))) file "-o" go)))
(find-files module-dir "\\.scm$")) (find-files module-dir "\\.scm$")))))
#t)))
(add-after 'install 'install-xsession (add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; add a .desktop file to xsessions ;; add a .desktop file to xsessions
@ -175,8 +172,7 @@ dependencies.")
Comment=~a~@ Comment=~a~@
Exec=~a/bin/guile-wm~@ Exec=~a/bin/guile-wm~@
Type=Application~%" Type=Application~%"
,name ,synopsis %output)))) ,name ,synopsis %output)))))))))
#t)))))
(native-inputs (list guile-2.2 guile-xcb pkg-config texinfo)) (native-inputs (list guile-2.2 guile-xcb pkg-config texinfo))
(inputs (list guile-2.2 guile-xcb)) (inputs (list guile-2.2 guile-xcb))
(home-page "https://github.com/mwitmer/guile-wm/releases") (home-page "https://github.com/mwitmer/guile-wm/releases")