bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: fluxbox: Improve style.

Browse source 
* gnu/packages/wm.scm (fluxbox): Improve style.
  [arguments]: Run guix style, guix style -S arguments, then rewrite
  using G-exps and make-desktop-entry-file.
  [native-inputs, inputs, description]: Run guix style.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Nicolas Graves 2025-07-01 22:00:53 +02:00 • committed by Liliana Marie Prikler
parent 041db55731
commit d7cbea9594
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 49 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

104
gnu/packages/wm.scm
View file

@ -1373,63 +1373,57 @@ drags, snap-to-border support, and virtual desktops.")
(name "fluxbox")
(version "1.3.7")
(synopsis "Small and fast window manager")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
version "/fluxbox-" version ".tar.xz"))
(sha256
(base32
"1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))
(patches
(search-patches "fluxbox-1.3.7-no-dynamic-cursor.patch"
"fluxbox-1.3.7-gcc.patch"))))
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/fluxbox/fluxbox/" version
"/fluxbox-" version ".tar.xz"))
(sha256
(base32 "1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))
(patches (search-patches "fluxbox-1.3.7-no-dynamic-cursor.patch"
"fluxbox-1.3.7-gcc.patch"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'force-bootstrap
(lambda _
(delete-file "configure")))
(add-after 'install 'install-vim-files
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(syntax (string-append
out "/share/vim/vimfiles/pack/guix/start/fluxbox/syntax")))
(copy-recursively "3rd/vim/vim/syntax" syntax)
#t)))
(add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(xsessions (string-append out "/share/xsessions")))
(mkdir-p xsessions)
(call-with-output-file
(string-append xsessions "/fluxbox.desktop")
(lambda (port)
(format port "~
[Desktop Entry]~@
Name=~a~@
Comment=~a~@
Exec=~a/bin/startfluxbox~@
Type=Application~%" ,name ,synopsis out)))
#t))))))
(native-inputs
(list autoconf automake gnu-gettext pkg-config))
(inputs
(list freetype
fribidi
imlib2
libx11
libxcursor
libxext
libxft
libxinerama
libxpm
libxrandr
libxrender))
(description "Fluxbox is a window manager. It is light on resources
and easy to handle yet full of features to make an easy and fast desktop
experience.")
(list
#:make-flags
#~'("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
#:phases
#~(modify-phases %standard-phases
(add-before 'bootstrap 'force-bootstrap
(lambda _
(delete-file "configure")))
(add-after 'install 'install-vim-files
(lambda _
(copy-recursively "3rd/vim/vim/syntax"
(string-append #$output "\
/share/vim/vimfiles/pack/guix/start/fluxbox/syntax"))))
(add-after 'install 'install-xsession
(lambda _
(let ((apps (string-append #$output "/share/applications")))
(mkdir-p apps)
(make-desktop-entry-file
(string-append apps "/fluxbox.desktop")
#:name "Fluxbox"
#:generic-name #$synopsis
#:exec (string-append #$output "/bin/startfluxbox %U")
#:comment
`(("en" ,#$synopsis)
(#f ,#$synopsis)))))))))
(native-inputs (list autoconf automake gnu-gettext pkg-config))
(inputs (list freetype
fribidi
imlib2
libx11
libxcursor
libxext
libxft
libxinerama
libxpm
libxrandr
libxrender))
(description
"Fluxbox is a window manager. It is light on resources and easy to
handle yet full of features to make an easy and fast desktop experience.")
(home-page "http://fluxbox.org/")
(license license:expat)))