~ruther/guix-local

80a0bd2586f6b9e5ca189f5e32ddf111a5d880be — Nicolas Graves 2 years ago cfc9e96
gnu: qtile: Improve package style.

* gnu/packages/wm.scm (qtile): Indent as needed. Light rewrite using
 format instead of string-append in [arguments]<#:phases>. Ensure
 lines wrap with intended length.

Change-Id: I297718138642d24604743137f3181bfc76a51b54
Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
1 files changed, 37 insertions(+), 35 deletions(-)

M gnu/packages/wm.scm
M gnu/packages/wm.scm => gnu/packages/wm.scm +37 -35
@@ 683,11 683,11 @@ subscribe to events.")
    (name "qtile")
    (version "0.23.0")
    (source
      (origin
        (method url-fetch)
        (uri (pypi-uri "qtile" version))
        (sha256
          (base32 "1v8rxm2xg2igxv6gwa78wrkxzgfxmxfgflbjdp4fm7cxjdx3zrpa"))))
     (origin
       (method url-fetch)
       (uri (pypi-uri "qtile" version))
       (sha256
        (base32 "1v8rxm2xg2igxv6gwa78wrkxzgfxmxfgflbjdp4fm7cxjdx3zrpa"))))
    (build-system pyproject-build-system)
    (arguments
     (list


@@ 697,26 697,28 @@ subscribe to events.")
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'patch-paths
           (lambda* (#:key inputs #:allow-other-keys)
             (substitute* "libqtile/pangocffi.py"
               (("^gobject = ffi.dlopen.*")
                 (string-append "gobject = ffi.dlopen(\""
                  (assoc-ref inputs "glib") "/lib/libgobject-2.0.so.0\")\n"))
                (("^pango = ffi.dlopen.*")
                 (string-append "pango = ffi.dlopen(\""
                  (assoc-ref inputs "pango") "/lib/libpango-1.0.so.0\")\n"))
                (("^pangocairo = ffi.dlopen.*")
                 (string-append "pangocairo = ffi.dlopen(\""
                  (assoc-ref inputs "pango") "/lib/libpangocairo-1.0.so.0\")\n")))))
       (add-after 'install 'install-xsession
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (xsessions (string-append out "/share/xsessions"))
                    (qtile (string-append out "/bin/qtile start")))
               (mkdir-p xsessions)
               (copy-file "resources/qtile.desktop" (string-append xsessions "/qtile.desktop"))
               (substitute* (string-append xsessions "/qtile.desktop")
                 (("qtile start") qtile)))))
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "libqtile/pangocffi.py"
                (("^(gobject = ffi.dlopen).*" all def)
                 (format #f "~a(~s)~%" def
                         (search-input-file inputs "/lib/libgobject-2.0.so.0")))
                (("^(pango = ffi.dlopen).*" all def)
                 (format #f "~a(~s)~%" def
                         (search-input-file inputs "/lib/libpango-1.0.so.0")))
                (("^(pangocairo = ffi.dlopen).*" all def)
                 (format #f "~a(~s)~%" def
                         (search-input-file
                          inputs "/lib/libpangocairo-1.0.so.0"))))))
          (add-after 'install 'install-xsessions
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (xsessions (string-append out "/share/xsessions"))
                     (qtile (string-append out "/bin/qtile start")))
                (mkdir-p xsessions)
                (copy-file "resources/qtile.desktop"
                           (string-append xsessions "/qtile.desktop"))
                (substitute* (string-append xsessions "/qtile.desktop")
                  (("qtile start") qtile)))))
          (add-before 'check 'pre-check
            (lambda* (#:key tests? #:allow-other-keys)
              (when tests?


@@ 725,17 727,17 @@ subscribe to events.")
                (setenv "DISPLAY" ":1")
                (setenv "XDG_CACHE_HOME" "/tmp")))))))
    (inputs
      (list glib pango pulseaudio))
     (list glib pango pulseaudio))
    (propagated-inputs
      (list python-cairocffi
            python-cffi
            python-dateutil
            python-dbus-next
            python-iwlib
            python-keyring
            python-mpd2
            python-pyxdg
            python-xcffib))
     (list python-cairocffi
           python-cffi
           python-dateutil
           python-dbus-next
           python-iwlib
           python-keyring
           python-mpd2
           python-pyxdg
           python-xcffib))
    (native-inputs
      (list pkg-config
            python-flake8