guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 1b9df6b06a329553330b5519dae6e3162652a0f6
Author: moksh <[email protected]>
AuthorDate: Thu Jun 18 13:35:56 2026 +0530
gnu: kmonad: Modernize.
* gnu/packages/haskell-apps.scm (kmonad)[arguments]: Use gexp variables
and procedures.
[native-inputs]: Move above inputs and style.
[inputs]: Indent and style.
[home-page]: Change to https://github.com/kmonad/kmonad.
Signed-off-by: Andreas Enge <[email protected]>
---
gnu/packages/haskell-apps.scm | 95 ++++++++++++++++++++++---------------------
1 file changed, 48 insertions(+), 47 deletions(-)
diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm
index a0b70a1af4..aae0c636c9 100644
--- a/gnu/packages/haskell-apps.scm
+++ b/gnu/packages/haskell-apps.scm
@@ -691,57 +691,58 @@ LaTeX output.")
(file-name (git-file-name name version))
(sha256
(base32 "08ybif2lw0jy9h2hrlvx3469a3hkvih9gsg60kp9qnklzvqjdy5i"))))
- (build-system haskell-build-system)
- (arguments
- `(#:haddock? #f ; Haddock fails to generate docs
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch-git-path
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "src/KMonad/Args/TH.hs"
- (("\"git\"")
- (string-append "\"" (search-input-file inputs "/bin/git")
"\"")))))
- (add-after 'install 'install-udev-rules
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (rules (string-append out "/lib/udev/rules.d")))
- (mkdir-p rules)
- (call-with-output-file (string-append rules
"/70-kmonad.rules")
- (lambda (port)
- (display
- (string-append
- "KERNEL==\"uinput\", MODE=\"0660\", "
- "GROUP=\"input\", OPTIONS+=\"static_node=uinput\"\n")
- port)))
- #t)))
- (add-after 'install-udev-rules 'install-documentation
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (doc (string-append out "/share/doc/kmonad-" ,version)))
- (install-file "README.md" doc)
- (copy-recursively "doc" doc)
- (copy-recursively "keymap" (string-append doc "/keymap"))
- #t))))))
- (inputs
- (list ghc-cereal
- ghc-exceptions
- ghc-lens
- ghc-megaparsec
- ghc-optparse-applicative
- ghc-resourcet
- ghc-rio
- ghc-unliftio
- ghc-unordered-containers
- ghc-template-haskell))
- (native-inputs (list ghc-hspec hspec-discover git))
- (home-page "https://github.com/david-janssen/kmonad";)
- (synopsis "Advanced keyboard manager")
- (description "KMonad is a keyboard remapping utility that supports
+ (build-system haskell-build-system)
+ (arguments
+ (list
+ #:haddock? #f ;Haddock fails to generate docs
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-git-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "src/KMonad/Args/TH.hs"
+ (("\"git\"")
+ (string-append "\""
+ (search-input-file inputs "/bin/git") "\"")))))
+ (add-after 'install 'install-udev-rules
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((rules (string-append #$output "/lib/udev/rules.d")))
+ (mkdir-p rules)
+ (call-with-output-file (string-append rules "/70-kmonad.rules")
+ (lambda (port)
+ (display (string-append
+ "KERNEL==\"uinput\", MODE=\"0660\", "
+ "GROUP=\"input\",
OPTIONS+=\"static_node=uinput\"")
+ port))) #t)))
+ (add-after 'install-udev-rules 'install-documentation
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((doc (string-append #$output "/share/doc/"
+ #$name "-"
+ #$version)))
+ (copy-recursively "doc" doc)
+ (copy-recursively "keymap"
+ (string-append doc "/keymap")) #t))))))
+ (native-inputs (list ghc-hspec
+ hspec-discover
+ git))
+ (inputs (list ghc-cereal
+ ghc-exceptions
+ ghc-lens
+ ghc-megaparsec
+ ghc-optparse-applicative
+ ghc-resourcet
+ ghc-rio
+ ghc-unliftio
+ ghc-unordered-containers
+ ghc-template-haskell))
+ (home-page "https://github.com/kmonad/kmonad";)
+ (synopsis "Advanced keyboard manager")
+ (description
+ "KMonad is a keyboard remapping utility that supports
advanced functionality, such as custom keymap layers and modifiers, macros,
and conditional mappings that send a different keycode when tapped or held.
By operating at a lower level than most similar tools, it supports X11,
Wayland, and Linux console environments alike.")
- (license license:expat))))
+ (license license:expat))))
(define-public matterhorn
(package
