GNU bug report logs - #77352
[PATCH] home: services: define hyprland home service

Previous Next

To reply to this bug, email your comments to 77352 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Carmine Margiotta <email <at> cmargiotta.net>
To: guix-patches <at> gnu.org
Cc: Carmine Margiotta <email <at> cmargiotta.net>
Subject: [PATCH] home: services: define hyprland home service
Date: Sat, 29 Mar 2025 00:25:03 +0100

---
 gnu/home/services/hyprland.scm | 490 +++++++++++++++++++++++++++++++++
 1 file changed, 490 insertions(+)
 create mode 100644 gnu/home/services/hyprland.scm

diff --git a/gnu/home/services/hyprland.scm b/gnu/home/services/hyprland.scm
new file mode 100644
index 0000000000..f024f272d7
--- /dev/null
+++ b/gnu/home/services/hyprland.scm
@@ -0,0 +1,490 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 Carmine Margiotta <email <at> cmargiotta.net>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu home services hyprland)
+  #:use-module (gnu packages wm)
+  #:use-module (guix gexp)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu home services)
+  #:use-module (guix packages)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-1)
+
+  #:export (hyprland-extension hyprland-configuration binding monitor
+                               home-hyprland-service-type))
+
+;;; Commentary:
+;;;
+;;; A Guix Home service to configure Hyprland, an highly customizabile dynamic tiling Wayland compositor
+;;;
+;;; Code:
+
+;;;
+;;; Helper functions.
+;;;
+
+;; Repeat v n times
+(define (repeat v n)
+  (if (eq? n 0)
+      '()
+      `(,v ,@(repeat v
+                     (- n 1)))))
+
+;; Generate an indenter string of n tabs
+(define (indent tabs)
+  (if (<= tabs 0) ""
+      (apply string-append
+             (repeat "\t" tabs))))
+
+(define (flatten lst)
+  (let loop
+    ((lst lst)
+     (acc '()))
+    (cond
+      ((null? lst)
+       acc)
+      ((pair? lst)
+       (loop (car lst)
+             (loop (cdr lst) acc)))
+      (else (cons lst acc)))))
+
+;;;
+;;; Definition of configurations.
+;;;
+
+;; Entry inside a 'block' configuration
+;; allowed formats: (symbol string) (symbol number) (symbol boolean) (symbol block-entries)
+;; A block entry can contain a list of block entries, effectively allowing nested blocks
+(define (block-entry? data)
+  (or (null? data)
+      (match data
+        (((? symbol?)
+          (or (? string?)
+              (? number?)
+              (? boolean?)
+              (? block-entries?)))
+         #t))))
+
+;; List of block entries
+(define (block-entries? data)
+  (every block-entry? data))
+
+;; An executable (a target for the exec action) can be a string or a gexp
+(define (executable? value)
+  (or (string? value)
+      (gexp? value)))
+
+;; A list of valid executables
+(define (executable-list? values)
+  (every executable? values))
+
+;; Block sub-configuration (a container of block entries)
+(define-configuration block
+  (entries (block-entries '()) "Block entries"
+           (serializer (lambda (name value)
+                         (serialize-block-entries name value 1)))))
+
+;; Monitor sub-configuration
+(define-configuration monitor
+  (name (string "") "Monitor's name"
+        (serializer (lambda (_ n)
+                      (string-append "monitor = " n ", "))))
+  (resolution (string "preferred") "Monitor's resolution"
+              (serializer (lambda (_ n)
+                            (string-append n ", "))))
+  (position (string "auto") "Monitor's position"
+            (serializer (lambda (_ n)
+                          (string-append n ", "))))
+  (scale (string "1") "Monitor's scale"
+         (serializer (lambda (_ n)
+                       n)))
+  (transform (string "") "Monitor's scale"
+             (serializer (lambda (_ n)
+                           (if (string-null? n) "\n"
+                               (string-append ", transform, " n "\n"))))))
+
+;; List of monitors definition
+(define (monitors? arg)
+  (every monitor? arg))
+
+;; List of strings
+(define (string-list? arg)
+  (every string? arg))
+
+;; Binding sub-configuration
+(define-configuration binding
+  (flags (string "")
+         "Bind flags (https://wiki.hyprland.org/Configuring/Binds/)"
+         (serializer (lambda (_ n)
+                       (string-append "bind" n " = "))))
+  (mod (string "$mod") "Mod key"
+       (serializer (lambda (_ n)
+                     n)))
+  (shift? (boolean #f) "If mod is shifted"
+          (serializer (lambda (_ n)
+                        (string-append (if n " SHIFT" "") ", "))))
+  (key (string) "Binding main key"
+       (serializer (lambda (_ n)
+                     (string-append n ", "))))
+  (action (string "exec") "Binding action"
+          (serializer (lambda (_ n)
+                        n)))
+  (args (executable "") "Binding action's args"
+        (serializer (lambda (name value)
+                      (if (string? value)
+                          (if (string-null? value) "\n"
+                              (string-append ", " value "\n"))
+                          #~(string-append ", "
+                                           #$(serialize-executable name value)
+                                           "\n"))))))
+
+;; List of bindings
+(define (binding-list? value)
+  (every binding? value))
+
+;; Optional string
+(define-maybe/no-serialization string)
+
+;; Binding block sub-configuration
+(define-configuration bindings
+  (main-mod (maybe-string "") "Main mod bound to $mod"
+            (serializer (lambda (_ n)
+                          (string-append "\n$mod = " n "\n\n"))))
+  (binds (binding-list '()) "Bindings"
+         (serializer (lambda (_ n)
+                       #~(string-append #$@(map (lambda (b)
+                                                  (serialize-configuration b
+                                                   binding-fields)) n))))))
+
+;;;
+;;; Serialization functions.
+;;;
+
+(define (serialize-block name block)
+  #~(string-append #$(symbol->string name) " {\n"
+                   #$(if (null? block) ""
+                         (serialize-configuration block block-fields)) "\n}\n"))
+
+;; A block entry will be serialized as an indented hyprlang
+;; statement, nested blocks are allowed
+(define (serialize-block-entry value tabs)
+  (string-append (or (match value
+                       (() "")
+                       (((? symbol? name)
+                         value)
+                        (string-append (indent tabs)
+                                       (symbol->string name)
+                                       (match value
+                                         ((? string? v)
+                                          (string-append " = " v))
+                                         ((? number? v)
+                                          (string-append " = "
+                                                         (number->string v)))
+                                         ((? boolean? v)
+                                          (if v " = true" " = false"))
+                                         ((? block-entries? v)
+                                          (string-append " {\n"
+                                                         (serialize-block-entries
+                                                          #f v
+                                                          (+ tabs 1))
+                                                         (indent tabs) "}")))
+                                       "\n"))
+                       ((_)
+                        #f)) "\n")))
+
+;; String lists will be serialized as name = value\n
+(define (serialize-string-list name values)
+  (apply string-append
+         (map (lambda (w)
+                (string-append (symbol->string name) " = " w "\n")) values)))
+
+;; Gexp executables will be serialized on a program-file
+(define (serialize-executable name value)
+  (if (string? value) value
+      (program-file (symbol->string name) value
+                    #:module-path %load-path)))
+
+;; Lists serializers
+(define (serialize-block-entries _ entries level)
+  (apply string-append
+         (map (lambda (e)
+                (serialize-block-entry e level)) entries)))
+
+(define (serialize-monitors _ monitors)
+  #~(string-append #$@(map (lambda (m)
+                             (serialize-configuration m monitor-fields))
+                           monitors)))
+
+(define (serialize-executable-list name values)
+  #~(apply string-append
+           (map (lambda (w)
+                  (string-append #$(symbol->string name) " = " w "\n"))
+                '#$(map (lambda (v)
+                          (serialize-executable name v)) values))))
+
+;; Hyprland full configuration
+(define-configuration hyprland-configuration
+  (package
+    (package
+      hyprland) "Hyprland package to use"
+    (serializer (λ (_ n) "")))
+  (monitors (monitors (list (monitor))) "Monitors definition")
+  (exec-once (executable-list '()) "Command to exec once")
+  (exec (executable-list '()) "Command to automatically exec")
+  (general (block (block)) "General configuration variables")
+  (decoration (block (block)) "Decoration configuration variables")
+  (animations (block (block)) "Animation configuration variables")
+  (workspace (string-list '()) "Workspaces settings")
+  (windowrule (string-list '()) "Window rules (v2)")
+  (dwindle (block (block)) "Dwindle layout settings")
+  (master (block (block)) "Master layout settings")
+  (misc (block (block)) "Misc settings")
+  (input (block (block)) "Input settings")
+  (gestures (block (block)) "Gestures settings")
+  (bindings (bindings (bindings)) "Bindings configuration"
+            (serializer (λ (_ n)
+                           (serialize-configuration n bindings-fields))))
+  (extra-config (string "") "Extra config"
+                (serializer (λ (_ n)
+                               (string-append n "\n")))))
+
+;; Hyprland configuration extension for other services
+;; External services can add new exec entries or new bindings
+(define-configuration hyprland-extension
+  (exec-once (executable-list '())
+             "Commands to be executed with hyprland once")
+  (exec (executable-list '()) "Commands to be executed with hyprland")
+  (bindings (binding-list '()) "Extra binds")
+  (no-serialization))
+
+;;;
+;;; Default settings and useful constants.
+;;;
+(define-public %default-hyprland-general
+  (block (entries '((gaps_in 5)
+                    (gaps_out 20)
+                    (border_size 2)
+                    (col.active_border "rgba(33ccffee) rgba(00ff99ee) 45deg")
+                    (col.inactive_border "rgba(595959aa)")
+                    (resize_on_border #f)
+                    (allow_tearing #f)
+                    (layout "dwindle")))))
+
+(define-public %default-hyprland-decoration
+  (block (entries '((rounding 10)
+                    (rounding_power 2)
+                    (active_opacity 1.0)
+                    (inactive_opacity 0.9)
+                    (dim_inactive #t)
+                    (dim_strength 0.05)
+
+                    (shadow ((enabled #t)
+                             (range 4)
+                             (render_power 3)
+                             (color "rgba(1a1a1aee)")))
+                    (blur ((enabled #t)
+                           (size 3)
+                           (passes 1)
+                           (vibrancy 0.1696)))))))
+
+(define-public %default-hyprland-animations
+  (block (entries '((enabled #t)
+                    (bezier "easeOutQuint,0.23,1,0.32,1")
+                    (bezier "easeInOutCubic,0.65,0.05,0.36,1")
+                    (bezier "linear,0,0,1,1")
+                    (bezier "almostLinear,0.5,0.5,0.75,1.0")
+                    (bezier "quick,0.15,0,0.1,1")
+
+                    (animation "global, 1, 10, default")
+                    (animation "border, 1, 5.39, easeOutQuint")
+                    (animation "windows, 1, 4.79, easeOutQuint")
+                    (animation "windowsIn, 1, 4.1, easeOutQuint, popin 87%")
+                    (animation "windowsOut, 1, 1.49, linear, popin 87%")
+                    (animation "fadeIn, 1, 1.73, almostLinear")
+                    (animation "fadeOut, 1, 1.46, almostLinear")
+                    (animation "fade, 1, 3.03, quick")
+                    (animation "layers, 1, 3.81, easeOutQuint")
+                    (animation "layersIn, 1, 4, easeOutQuint, fade")
+                    (animation "layersOut, 1, 1.5, linear, fade")
+                    (animation "fadeLayersIn, 1, 1.79, almostLinear")
+                    (animation "fadeLayersOut, 1, 1.39, almostLinear")
+                    (animation "workspaces, 1, 1.94, almostLinear, fade")
+                    (animation "workspacesIn, 1, 1.21, almostLinear, fade")
+                    (animation "workspacesOut, 1, 1.94, almostLinear, fade")))))
+
+(define-public %default-hyprland-workspace
+  '("w[tv1], gapsout:0, gapsin:0" "f[1], gapsout:0, gapsin:0"))
+
+(define-public %default-hyprland-windowrule
+  '("bordersize 0, floating:0, onworkspace:w[tv1]"
+    "rounding 0, floating:0, onworkspace:w[tv1]"
+    "bordersize 0, floating:0, onworkspace:f[1]"
+    "rounding 0, floating:0, onworkspace:f[1]"))
+
+(define-public %default-hyprland-misc
+  (block (entries '((force_default_wallpaper -1)
+                    (disable_hyprland_logo #f)
+                    (enable_swallow #t)
+                    (vrr 2)))))
+
+(define-public %default-hyprland-gestures
+  (block (entries '((workspace_swipe #t)))))
+
+(define-public %default-hyprland-bindings
+  (bindings (main-mod "SUPER")
+            (binds `(,(binding (key "Q")
+                               (action "killactive")) ,(binding (shift? #t)
+                                                                (key "F")
+                                                                (action
+                                                                 "togglefloating"))
+                     ,(binding (key "F")
+                               (action "fullscreen"))
+                     ,(binding (shift? #t)
+                               (key "R")
+                               (action "exec")
+                               (args "hyprctl reload"))
+                     ;; Dwindle layout
+                     ,(binding (key "P")
+                               (action "pseudo"))
+                     ,(binding (key "J")
+                               (action "togglesplit"))
+                     ;; Move focus with arrow keys
+                     ,(binding (key "left")
+                               (action "movefocus")
+                               (args "l"))
+                     ,(binding (key "right")
+                               (action "movefocus")
+                               (args "r"))
+                     ,(binding (key "up")
+                               (action "movefocus")
+                               (args "u"))
+                     ,(binding (key "down")
+                               (action "movefocus")
+                               (args "d"))
+                     ;; Switch workspaces
+                     ,@(map (lambda (index)
+                              (binding (key (number->string index))
+                                       (action "workspace")
+                                       (args (number->string index))))
+                            (iota 10))
+                     ;; Move active window to workspace
+                     ,@(map (lambda (index)
+                              (binding (shift? #t)
+                                       (key (number->string index))
+                                       (action "movetoworkspace")
+                                       (args (number->string index))))
+                            (iota 10))
+                     ;; Move/resize with mouse
+                     ,(binding (flags "m")
+                               (key "mouse:272")
+                               (action "movewindow"))
+                     ,(binding (flags "m")
+                               (key "mouse:273")
+                               (action "resizewindow"))
+                     ,(binding (key "R")
+                               (action "submap")
+                               (args "resize"))))))
+
+(define-public %hyprland-resize-submap
+  "submap = resize
+binde  = ,right,  resizeactive,  10  0
+binde  = ,left,   resizeactive, -10  0
+binde  = ,up,     resizeactive,  0  -10
+binde  = ,down,   resizeactive,  0   10
+bind   = ,escape, submap, reset
+submap = reset
+")
+
+(define-public %default-hyprland-configuration
+  (hyprland-configuration (general %default-hyprland-general)
+                          (decoration %default-hyprland-decoration)
+                          (animations %default-hyprland-animations)
+                          (workspace %default-hyprland-workspace)
+                          (windowrule %default-hyprland-windowrule)
+                          (misc %default-hyprland-misc)
+                          (gestures %default-hyprland-gestures)
+                          (bindings %default-hyprland-bindings)
+                          (extra-config %hyprland-resize-submap)))
+
+;;;
+;;; Useful scripts
+;;;
+
+;; Reload the first instance of hyprland, to
+;; automatically load the new configuration
+(define (hyprland-reload config)
+  #~(begin
+      (display "Reloading hyprland configuration...")
+      (system* #$(file-append (hyprland-configuration-package config)
+                              "/bin/hyprctl") "--instance" "0" "reload")))
+
+;;;
+;;; Definition of the Home Service.
+;;;
+
+(define-public home-hyprland-service-type
+  (service-type (name 'home-hyprland-config)
+                (description "Configure Sway by providing a file
+@file{~/.config/hypr/hyprland.conf}.")
+                (compose (λ (extensions)
+                            (hyprland-extension (exec-once (flatten (map
+                                                                     hyprland-extension-exec-once
+                                                                     extensions)))
+                                                (exec (flatten (map
+                                                                hyprland-extension-exec
+                                                                extensions)))
+                                                (bindings (flatten (map
+                                                                    hyprland-extension-bindings
+                                                                    extensions))))))
+                (extend (λ (config rules)
+                           (hyprland-configuration (inherit config)
+                                                   (exec-once (append (hyprland-configuration-exec-once
+                                                                       config)
+                                                                      (hyprland-extension-exec-once
+                                                                       rules)))
+                                                   (exec (append (hyprland-configuration-exec
+                                                                  config)
+                                                                 (hyprland-extension-exec
+                                                                  rules)))
+                                                   (bindings (bindings (inherit
+                                                                        (hyprland-configuration-bindings
+                                                                         config))
+                                                                       (binds (append
+                                                                               (bindings-binds
+                                                                                (hyprland-configuration-bindings
+                                                                                 config))
+                                                                               
+                                                                               (hyprland-extension-bindings
+                                                                                rules))))))))
+                (extensions (list (service-extension
+                                   home-activation-service-type
+                                   ;; Trigger hyprctl reload after a new config has been applied
+                                   hyprland-reload)
+                                  (service-extension home-profile-service-type
+                                   (λ (config)
+                                      `(,(hyprland-configuration-package
+                                          config))))
+                                  (service-extension
+                                   home-xdg-configuration-files-service-type
+                                   (λ (c)
+                                      `(("hypr/hyprland.conf" ,(mixed-text-file
+                                                                "hyprland-cfg"
+                                                                (serialize-configuration
+                                                                 c
+                                                                 hyprland-configuration-fields))))))))
+                (default-value %default-hyprland-configuration)))

base-commit: b282b5ecd90da5dc3a034e7064ac41808f7f6c24
-- 
2.49.0

Message #8 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Andrew Wong <wongandj <at> icloud.com>
To: Carmine Margiotta <email <at> cmargiotta.net>, 77352 <at> debbugs.gnu.org
Subject: Re: [bug#77352] [PATCH] home: services: define hyprland home service
Date: Sat, 29 Mar 2025 11:37:36 -0400

Very cool patch! Would it be possible to add functionality for loading 
plugins on startup? I have a pending patch series[1] that packages 
several Hyprland plugins, and it would be nice to be able to enter a 
list of plugin packages to be loaded directly in the config so they 
could be "dependencies" of the service.

Also, how does this cooperate with session managers like the default 
GDM, which launches wayland from its .desktop entry in 
/run/current-system/profile/share/wayland-sessions[2]? If it only 
generates a configuration (i.e. doesn't start the Hyprland process), 
would it be possible to define services that start and run only while 
Hyprland runs? (this would be distinct from what "exec" lines do in that 
the packages are then pulled into the profile by the service, letting 
Guix "understand" the dependency)

The default settings should be the same as Hyprland's auto-generated 
config[3], unless there's some guix-specific requirement. This is 
because users will want to be able to easily transfer the config they 
already use, and to be able to use the documentation and advice that 
already exists that assumes new users have the autogenerated config. 
Users should not have to do extra configuration to get a consistent 
default experience.

To name a few issues, having `extra-config` defined by default would 
require users to go out of their way to use what would otherwise be a 
"last-resort" feature in order to get the default experience. Also, I 
know from experience that settings vrr to anything but 0 can cause some 
monitors to go black unless the vrr matches their (fixed) refresh rate; 
vrr is not a universal feature, the ability for the computer to control 
the monitor's vrr setting even less so.

Perhaps the service could straight-up copy or parse-in the file (which 
would make transitioning from a "traditional" config file easy, too!) 
from the Hyprland package itself to reduce the need for Guix to maintain 
it every time it changes. Off the top of my head, the cheapest solution 
to the problem would be to hardcode the default config's checksum, and 
print an alert asking for maintenance when it changes.

Finally, you should check over your patch with regards to Guix' coding 
style conventions[4]. Most conspicuously, lines should be 80 characters 
wide at maximum. Also, when updating a patch, you should send a v2 
instead of creating a new bug number.

Your patch shows a lot of promise, and it's great to see someone get the 
ball rolling on something I've only been daydreaming about for a while 
now. If you'd like help on any specific part, LMK!

- Andrew Wong

[1] bug#76910
[2] 
https://guix.gnu.org/manual/devel/en/html_node/X-Window.html#index-gdm_002dservice_002dtype
[3] less $(guix build hyprland)/share/hypr/hyprland.conf
[4] https://guix.gnu.org/manual/en/html_node/Formatting-Code.html

Message #11 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Carmine Margiotta <email <at> cmargiotta.net>
To: 77352 <at> debbugs.gnu.org
Subject: Re: [bug#77352] [PATCH] home: services: define hyprland home service
Date: Sat, 29 Mar 2025 18:39:15 +0100

First of all, I apologize in advance for my mistakes, but this workflow
is completely new to me!

On 3/29/25 4:37 PM, Andrew Wong wrote:
> Very cool patch! Would it be possible to add functionality for loading
> plugins on startup? I have a pending patch series[1] that packages
> several Hyprland plugins, and it would be nice to be able to enter a
> list of plugin packages to be loaded directly in the config so they
> could be "dependencies" of the service.

This is a really interesting idea! I am not  very familiar with Hyprland
plugins - is there currently a declarative way to manage them? The only
method I know is using hyprctl.

> Also, how does this cooperate with session managers like the default
> GDM, which launches wayland from its .desktop entry in
> /run/current-system/profile/share/wayland-sessions[2]? If it only
> generates a configuration (i.e. doesn't start the Hyprland process),
> would it be possible to define services that start and run only while
> Hyprland runs? (this would be distinct from what "exec" lines do in that
> the packages are then pulled into the profile by the service, letting
> Guix "understand" the dependency)

This does not interact with session managers at all, it only generates a
configuration without starting the process itself.
For services that should run only while Hyprland is active, would this
require managing Hyprland itself via shepherd? (I am still new to Guix,
I might be mistaken here!)

> The default settings should be the same as Hyprland's auto-generated
> config[3], unless there's some guix-specific requirement. This is
> because users will want to be able to easily transfer the config they
> already use, and to be able to use the documentation and advice that
> already exists that assumes new users have the autogenerated config.
> Users should not have to do extra configuration to get a consistent
> default experience.

That makes perfect sense, I will fix that asap.

> To name a few issues, having `extra-config` defined by default would
> require users to go out of their way to use what would otherwise be a
> "last-resort" feature in order to get the default experience.

You raise a valid point, I will try to redesign this to implement
submaps in a more coherent way.

> Perhaps the service could straight-up copy or parse-in the file (which
> would make transitioning from a "traditional" config file easy, too!)
> from the Hyprland package itself to reduce the need for Guix to maintain
> it every time it changes. Off the top of my head, the cheapest solution
> to the problem would be to hardcode the default config's checksum, and
> print an alert asking for maintenance when it changes.

Your cheapest solution is good!

> Finally, you should check over your patch with regards to Guix' coding
> style conventions[4]. Most conspicuously, lines should be 80 characters
> wide at maximum.

Thank you for pointing this out. I did run guix style hyprland.scm
--whole-file before submitting, but I see now that it doesn't catch line
length violations. Could you recommend any additional linting tools that
could help verify style compliance more thoroughly? I will be more
careful next time, thank you!

> Your patch shows a lot of promise, and it's great to see someone get the
> ball rolling on something I've only been daydreaming about for a while
> now. If you'd like help on any specific part, LMK!

Thank you so much for your kind words!

- Carmine Margiotta

Message #14 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Andrew Wong <wongandj <at> icloud.com>
To: Carmine Margiotta <email <at> cmargiotta.net>, 77352 <at> debbugs.gnu.org
Subject: Re: [bug#77352] [PATCH] home: services: define hyprland home service
Date: Sat, 29 Mar 2025 22:06:26 -0400

On 3/29/25 1:39p, Carmine Margiotta wrote:
> First of all, I apologize in advance for my mistakes, but this 
> workflow is completely new to me!

No worries! Everyone starts somewhere.

> This is a really interesting idea! I am not  very familiar with 
> Hyprland plugins - is there currently a declarative way to manage 
> them? The only method I know is using hyprctl.

I've been managing them declaratively by making `exec-once` calls to
`hyprctl plugin load`, so maybe the service could use those. Another 
possiblity is fabricating hyprpm's state.[1]

> This does not interact with session managers at all, it only 
> generates a configuration without starting the process itself. For 
> services that should run only while Hyprland is active, would this 
> require managing Hyprland itself via shepherd? (I am still new to 
> Guix, I might be mistaken here!)

That's what I was wondering myself. Maybe it's possible to modify or
wrap hyprland's .desktop entry to encapsulate the whole thing in a
service? Like a hyprland.desktop that actually starts a service that
runs the REAL hyprland.desktop session. That way you could construct
your DE out of services configured in guix itself.

> Could you recommend any additional linting tools that could help 
> verify style compliance more thoroughly? I will be more careful next 
> time, thank you!

Are you editing using emacs? If so, you can use display-fill-column-mode
to see the column limit. Otherwise, just skim through the style guide
linked by the manual. A motion I do often after some heavy editing is
typing C-M-u a few times to move a few scopes up, C-M-space to select
the while s-expression, and then C-M-q to re-indent the region.

 [1] https://wiki.hyprland.org/Plugins/Using-Plugins/#hyprpm

Message #17 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Carmine Margiotta <email <at> cmargiotta.net>
To: 77352 <at> debbugs.gnu.org
Cc: Carmine Margiotta <email <at> cmargiotta.net>
Subject: [PATCH v2] home: services: define hyprland home service
Date: Sun, 30 Mar 2025 19:11:35 +0200

---
 gnu/home/services/hyprland.scm | 676 +++++++++++++++++++++++++++++++++
 1 file changed, 676 insertions(+)
 create mode 100644 gnu/home/services/hyprland.scm

diff --git a/gnu/home/services/hyprland.scm b/gnu/home/services/hyprland.scm
new file mode 100644
index 0000000000..3f2495ec0d
--- /dev/null
+++ b/gnu/home/services/hyprland.scm
@@ -0,0 +1,676 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 Carmine Margiotta <email <at> cmargiotta.net>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (home home services hyprland)
+  #:use-module (gnu packages wm)
+  #:use-module (guix gexp)
+  #:use-module (guix modules)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu home services)
+  #:use-module (guix packages)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-1)
+
+  #:export (hyprland-extension
+	    hyprland-configuration
+	    binding
+	    bindings
+	    block
+	    monitor
+	    submap
+	    home-hyprland-service-type))
+
+;;; Commentary:
+;;;
+;;; A Guix Home service to configure Hyprland, an highly customizabile dynamic
+;;; tiling Wayland compositor
+;;;
+;;; Code:
+
+;;;
+;;; Helper functions.
+;;;
+
+;;; Repeat v n times
+(define (repeat v n)
+  (if (eq? n 0)
+      '()
+      `(,v ,@(repeat v
+                     (- n 1)))))
+
+;;; Generate an indenter string of n tabs
+(define (indent tabs)
+  (if (<= tabs 0) ""
+      (apply string-append
+             (repeat "\t" tabs))))
+
+(define (flatten lst)
+  (let loop
+      ((lst lst)
+       (acc '()))
+    (cond
+     ((null? lst)
+      acc)
+     ((pair? lst)
+      (loop (car lst)
+            (loop (cdr lst) acc)))
+     (else (cons lst acc)))))
+
+;;;
+;;; Definition of configurations.
+;;;
+
+;;; Entry inside a 'block' configuration
+;;; allowed formats: (symbol string) (symbol number) (symbol boolean)
+;;; (symbol block-entries)
+;;; A block entry can contain a list of block entries, effectively allowing
+;;; nested blocks
+(define (block-entry? data)
+  (or (null? data)
+      (match data
+        (((? symbol?)
+          (or (? string?)
+              (? number?)
+              (? boolean?)
+              (? block-entries?)))
+         #t))))
+
+;;; List of block entries
+(define (block-entries? data)
+  (every block-entry? data))
+
+;;; An executable (a target for the exec action) can be a string or a gexp
+(define (executable? value)
+  (or (string? value)
+      (gexp? value)))
+
+;;; A list of valid executables
+(define (executable-list? values)
+  (every executable? values))
+
+;;; Block sub-configuration (a container of block entries)
+(define-configuration block
+  (entries (block-entries '()) "Block entries"
+           (serializer (λ (name value)
+                         (serialize-block-entries name value 1)))))
+
+;;; Monitor sub-configuration
+(define-configuration monitor
+  (name (string "")
+        "Monitor's name"
+        (serializer (λ (_ n)
+                      (string-append "monitor = " n ", "))))
+  (resolution (string "preferred") "Monitor's resolution"
+              (serializer (λ (_ n)
+                            (string-append n ", "))))
+  (position (string "auto")
+            "Monitor's position"
+            (serializer (λ (_ n)
+                          (string-append n ", "))))
+  (scale (string "auto")
+         "Monitor's scale"
+         (serializer (λ (_ n)
+                       n)))
+  (transform (string "")
+             "Monitor's transform"
+             (serializer (λ (_ n)
+                           (if (string-null? n) "\n"
+                               (string-append ", transform, " n "\n"))))))
+
+;;; List of monitors definition
+(define (monitors? arg)
+  (every monitor? arg))
+
+;;; Environment variable
+(define-configuration env
+  (name (string)
+        "Environemnt variable's name"
+        (serializer (λ (_ n) (string-append "env = " n ", "))))
+  (value (string)
+         "Environment variable's value"
+         (serializer (λ (_  v) (string-append v "\n")))))
+
+;;; List of environment variables
+(define (env-list? arg)
+  (every env? arg))
+
+;;; List of strings
+(define (string-list? arg)
+  (every string? arg))
+
+;;; Binding sub-configuration
+(define-configuration binding
+  (flags (string "")
+         "Bind flags https://wiki.hyprland.org/Configuring/Binds/"
+         (serializer (λ (_ n)
+                       (string-append "bind" n " = "))))
+  (mod (string "$mod")
+       "Mod key"
+       (serializer (λ (_ n)
+                     n)))
+  (shift? (boolean #f)
+          "If mod is shifted"
+          (serializer (λ (_ n)
+                        (string-append (if n " SHIFT" "") ", "))))
+  (key (string)
+       "Binding main key"
+       (serializer (λ (_ n)
+                     (string-append n ", "))))
+  (action (string "exec")
+          "Binding action"
+          (serializer (λ (_ n)
+                        n)))
+  (args (executable "")
+        "Binding action's args"
+        (serializer (λ (name value)
+                      (if (string? value)
+                          (if (string-null? value) "\n"
+                              (string-append ", " value "\n"))
+                          #~(string-append ", "
+                                           #$(serialize-executable name value)
+                                           "\n"))))))
+
+;;; List of bindings
+(define (binding-list? value)
+  (every binding? value))
+
+(define (serialize-binding-list _ n)
+  #~(string-append
+     #$@(map (λ (b)
+	       (serialize-configuration
+		b
+		binding-fields)) n)))
+
+;;; Submap configuration
+(define-configuration submap
+  (name (string)
+        "Submap name"
+        (serializer (λ (_ name) (string-append "submap = " name "\n"))))
+  (bindings (binding-list)
+            "Bindings available only while this submap is active")
+  (escape (binding (binding
+                    (mod "")
+                    (key "escape")
+                    (action "submap")
+                    (args "reset")))
+          "Binding used to go back to the global submap"
+          (serializer (λ (_ e) #~(string-append
+                                  #$(serialize-configuration e binding-fields)
+                                  "submap = reset\n")))))
+
+;;; List of submaps
+(define (submap-list? v)
+  (every submap? v))
+
+;;; Optional string
+(define-maybe/no-serialization string)
+
+;;; Binding block sub-configuration
+(define-configuration bindings
+  (main-mod (maybe-string "") "Main mod bound to $mod"
+            (serializer (λ (_ n)
+                          (string-append "\n$mod = " n "\n\n"))))
+  (binds (binding-list '()) "Bindings"))
+
+;;;
+;;; Serialization functions.
+;;;
+
+(define (serialize-block name block)
+  #~(string-append #$(symbol->string name) " {\n"
+                   #$(if (null? block) ""
+                         (serialize-configuration block
+                                                  block-fields))
+                   "\n}\n"))
+
+(define (serialize-submap-list name submaps)
+  #~(string-append
+     #$@(map (λ (v) (serialize-configuration v submap-fields)) submaps)))
+
+(define (serialize-env-list name env)
+  #~(string-append
+     #$@(map (λ (v) (serialize-configuration v env-fields)) env)))
+
+;;; A block entry will be serialized as an indented hyprlang
+;;; statement, nested blocks are allowed
+(define (serialize-block-entry value tabs)
+  (string-append
+   (or (match value
+         (() "")
+         (((? symbol? name)
+           value)
+          (string-append
+           (indent tabs)
+           (symbol->string name)
+           (match value
+             ((? string? v)
+              (string-append " = " v))
+             ((? number? v)
+              (string-append " = "
+                             (number->string v)))
+             ((? boolean? v)
+              (if v " = true" " = false"))
+             ((? block-entries? v)
+              (string-append
+               " {\n"
+               (serialize-block-entries
+                #f v
+                (+ tabs 1))
+               (indent tabs) "}")))
+           "\n"))
+         ((_)
+          #f)) "\n")))
+
+;;; String lists will be serialized as name = value\n
+(define (serialize-string-list name values)
+  (apply string-append
+         (map (lambda (w)
+                (string-append (symbol->string name) " = " w "\n")) values)))
+
+;;; Gexp executables will be serialized on a program-file
+(define (serialize-executable name value)
+  (if (string? value) value
+      (program-file (symbol->string name) value
+                    #:module-path %load-path)))
+
+;;; Lists serializers
+(define (serialize-block-entries _ entries level)
+  (apply string-append
+         (map (lambda (e)
+                (serialize-block-entry e level)) entries)))
+
+(define (serialize-monitors _ monitors)
+  #~(string-append #$@(map (lambda (m)
+                             (serialize-configuration m monitor-fields))
+                           monitors)))
+
+(define (serialize-executable-list name values)
+  #~(apply string-append
+           (map (lambda (w)
+                  (string-append #$(symbol->string name) " = " w "\n"))
+                '#$(map (lambda (v)
+                          (serialize-executable name v)) values))))
+
+;;; Hyprland full configuration
+(define-configuration hyprland-configuration
+  (package
+    (package
+      hyprland) "Hyprland package to use"
+      (serializer (λ (_ n) "")))
+  (monitors (monitors (list (monitor))) "Monitors definition")
+  (exec-once (executable-list '()) "Command to exec once")
+  (exec (executable-list '()) "Command to automatically exec")
+  (general (block (block)) "General configuration variables")
+  (decoration (block (block)) "Decoration configuration variables")
+  (animations (block (block)) "Animation configuration variables")
+  (workspace (string-list '()) "Workspaces settings")
+  (windowrule (string-list '()) "Window rules (v2)")
+  (dwindle (block (block)) "Dwindle layout settings")
+  (master (block (block)) "Master layout settings")
+  (misc (block (block)) "Misc settings")
+  (input (block (block)) "Input settings")
+  (gestures (block (block)) "Gestures settings")
+  (environment (env-list '()) "Environment variables")
+  (bindings (bindings (bindings)) "Bindings configuration"
+            (serializer (λ (_ n)
+                          (serialize-configuration n bindings-fields))))
+  (submaps (submap-list '()) "Submap configuration")
+  (extra-config (string "") "Extra config"
+                (serializer (λ (_ n)
+                              (string-append n "\n")))))
+
+;;; Hyprland configuration extension for other services
+;;; External services can add new exec entries or new bindings
+(define-configuration hyprland-extension
+  (exec-once (executable-list '())
+             "Commands to be executed with hyprland once")
+  (exec (executable-list '()) "Commands to be executed with hyprland")
+  (bindings (binding-list '()) "Extra binds")
+  (no-serialization))
+
+;;;
+;;; Default settings and useful constants.
+;;;
+(define-public %default-hyprland-env
+  (list
+   (env (name "XCURSOR_SIZE")
+        (value "24"))
+   (env (name "HYPRCURSON_SIZE")
+        (value "24"))))
+
+(define-public %default-hyprland-windowrule
+  '("suppressevent maximize, class:.*"
+    "nofocus,class:^$,title:^$,xwayland:1,floating:1,fullscreen:0,pinned:0"))
+
+(define-public %default-hyprland-general
+  (block (entries '((gaps_in 5)
+                    (gaps_out 20)
+                    (border_size 2)
+                    (col.active_border "rgba(33ccffee) rgba(00ff99ee) 45deg")
+                    (col.inactive_border "rgba(595959aa)")
+                    (resize_on_border #f)
+                    (allow_tearing #f)
+                    (layout "dwindle")))))
+
+(define-public %default-hyprland-decoration
+  (block (entries '((rounding 10)
+                    (rounding_power 2)
+                    (active_opacity 1.0)
+                    (inactive_opacity 1.0)
+
+                    (shadow ((enabled #t)
+                             (range 4)
+                             (render_power 3)
+                             (color "rgba(1a1a1aee)")))
+                    (blur ((enabled #t)
+                           (size 3)
+                           (passes 1)
+                           (vibrancy 0.1696)))))))
+
+(define-public %default-hyprland-animations
+  (block (entries
+          '((enabled #t)
+            (bezier "easeOutQuint,0.23,1,0.32,1")
+            (bezier "easeInOutCubic,0.65,0.05,0.36,1")
+            (bezier "linear,0,0,1,1")
+            (bezier "almostLinear,0.5,0.5,0.75,1.0")
+            (bezier "quick,0.15,0,0.1,1")
+            (animation "global, 1, 10, default")
+            (animation "border, 1, 5.39, easeOutQuint")
+            (animation "windows, 1, 4.79, easeOutQuint")
+            (animation "windowsIn, 1, 4.1, easeOutQuint, popin 87%")
+            (animation "windowsOut, 1, 1.49, linear, popin 87%")
+            (animation "fadeIn, 1, 1.73, almostLinear")
+            (animation "fadeOut, 1, 1.46, almostLinear")
+            (animation "fade, 1, 3.03, quick")
+            (animation "layers, 1, 3.81, easeOutQuint")
+            (animation "layersIn, 1, 4, easeOutQuint, fade")
+            (animation "layersOut, 1, 1.5, linear, fade")
+            (animation "fadeLayersIn, 1, 1.79, almostLinear")
+            (animation "fadeLayersOut, 1, 1.39, almostLinear")
+            (animation "workspaces, 1, 1.94, almostLinear, fade")
+            (animation "workspacesIn, 1, 1.21, almostLinear, fade")
+            (animation "workspacesOut, 1, 1.94, almostLinear, fade")))))
+
+(define-public %default-hyprland-misc
+  (block (entries '((force_default_wallpaper -1)
+                    (disable_hyprland_logo #f)))))
+
+(define-public %default-hyprland-dwindle
+  (block (entries '((pseudotile #t)
+                    (preserve_split #t)))))
+
+(define-public %default-hyprland-master
+  (block (entries '((new_status "master")))))
+
+(define-public %default-hyprland-input
+  (block (entries '((kb_layout "us")
+                    (follow_mouse 1)
+                    (sensitivity 0)
+                    (touchpad ((natural_scroll #f)))))))
+
+(define-public %default-hyprland-gestures
+  (block (entries '((workspace_swipe #f)))))
+
+(define-public %default-hyprland-bindings
+  (bindings (main-mod "SUPER")
+            (binds `(,(binding (key "Q")
+                               (action "exec")
+                               (args "kitty"))
+                     ,(binding (key "C")
+                               (action "killactive"))
+                     ,(binding (key "M")
+                               (action "exit"))
+                     ,(binding (key "E")
+                               (action "exec")
+                               (args "dolphin"))
+                     ,(binding (key "V")
+                               (action "togglefloating"))
+                     ,(binding (key "R")
+                               (action "exec")
+                               (args "wofi --show dmenu"))
+                     ;; Dwindle layout
+                     ,(binding (key "P")
+                               (action "pseudo"))
+                     ,(binding (key "J")
+                               (action "togglesplit"))
+                     ;; Move focus with arrow keys
+                     ,(binding (key "left")
+                               (action "movefocus")
+                               (args "l"))
+                     ,(binding (key "right")
+                               (action "movefocus")
+                               (args "r"))
+                     ,(binding (key "up")
+                               (action "movefocus")
+                               (args "u"))
+                     ,(binding (key "down")
+                               (action "movefocus")
+                               (args "d"))
+                     ;; Switch workspaces
+                     ,@(map (lambda (index)
+                              (binding (key (number->string index))
+                                       (action "workspace")
+                                       (args (number->string index))))
+                            (iota 10))
+                     ;; Move active window to workspace
+                     ,@(map (lambda (index)
+                              (binding (shift? #t)
+                                       (key (number->string index))
+                                       (action "movetoworkspace")
+                                       (args (number->string index))))
+                            (iota 10))
+                     ;; Scratchpad
+                     ,(binding (key "S")
+                               (action "togglespecialworkspace")
+                               (args "magic"))
+                     ,(binding (key "S")
+                               (shift? #t)
+                               (action "movetoworkspace")
+                               (args "special:magic"))
+                     ;; Scroll workspaces with mod + scroll
+                     ,(binding (key "mouse_down")
+                               (action "workspace")
+                               (args "e+1"))
+                     ,(binding (key "mouse_up")
+                               (action "workspace")
+                               (args "e-1"))
+                     ;; Move/resize with mouse
+                     ,(binding (flags "m")
+                               (key "mouse:272")
+                               (action "movewindow"))
+                     ,(binding (flags "m")
+                               (key "mouse:273")
+                               (action "resizewindow"))
+                     ;; Multimedia keys
+                     ,(binding
+                       (key "XF86AudioRaiseVolume")
+                       (action "exec")
+                       (args
+                        "wpctl set-volume -l 1 @DEFAULT_AUDIO_SINK@ 5%+"))
+                     ,(binding
+                       (key "XF86AudioLowerVolume")
+                       (action "exec")
+                       (args
+                        "wpctl set-volume -l 1 @DEFAULT_AUDIO_SINK@ 5%-"))
+                     ,(binding
+                       (key "XF86AudioMute")
+                       (action "exec")
+                       (args "wpctl set-mute @DEFAULT_AUDIO_SINK@ toggle"))
+                     ,(binding
+                       (key "XF86AudioMicMute")
+                       (action "exec")
+                       (args "wpctl set-mute @DEFAULT_AUDIO_SOURCE@ toggle"))
+                     ,(binding
+                       (key "XF86MonBrightnessUp")
+                       (action "exec")
+                       (args "brightnessctl s 10%+"))
+                     ,(binding
+                       (key "XF86MonBrightnessDown")
+                       (action "exec")
+                       (args "brightnessctl s 10%-"))
+                     ,(binding
+                       (key "XF86AudioNext")
+                       (action "exec")
+                       (args "playerctl next"))
+                     ,(binding
+                       (key "XF86AudioPause")
+                       (action "exec")
+                       (args "playerctl play-pause"))
+                     ,(binding
+                       (key "XF86AudioPlay")
+                       (action "exec")
+                       (args "playerctl play-pause"))
+                     ,(binding
+                       (key "XF86AudioPrev")
+                       (action "exec")
+                       (args "playerctl previous"))
+                     ,(binding (key "R")
+                               (action "submap")
+                               (args "resize"))))))
+
+(define-public %default-hyprland-configuration
+  (hyprland-configuration (general %default-hyprland-general)
+                          (decoration %default-hyprland-decoration)
+                          (animations %default-hyprland-animations)
+                          (environment %default-hyprland-env)
+                          (master %default-hyprland-master)
+                          (windowrule %default-hyprland-windowrule)
+                          (misc %default-hyprland-misc)
+                          (input %default-hyprland-input)
+                          (dwindle %default-hyprland-dwindle)
+                          (gestures %default-hyprland-gestures)
+                          (bindings %default-hyprland-bindings)))
+
+;;;
+;;; Useful scripts
+;;;
+
+;;; Obtained with string-hash-ci on the default hyprland.conf
+;;; Maintainers can find the hash upgrades on home service logs too
+(define %default-configuration-hash 970253705680761254)
+
+;;; Reload the first instance of hyprland to automatically load the new
+;;; configuration. If the package's default configuration changes, after
+;;; applying a new configuration, a warning notification is automatically
+;;; shown on Hyprland until maintainers don't align the guix defaults
+(define (hyprland-reload config)
+  (with-imported-modules
+      (source-module-closure
+       '((ice-9 textual-ports)))
+    #~(begin
+        (use-modules (ice-9 textual-ports))
+        (display "Reloading hyprland configuration...\n")
+        (system* #$(file-append (hyprland-configuration-package config)
+			        "/bin/hyprctl")
+		 "--instance" "0" "reload")
+        (let ((hash (call-with-input-file
+		        #$(file-append (hyprland-configuration-package config)
+				       "/share/hypr/hyprland.conf")
+		      (lambda (config)
+                        (string-hash-ci (get-string-all config))))))
+	  (if (not (= hash
+		      #$%default-configuration-hash))
+	      (begin
+	        (display (string-append
+			  "New hyprland default configuration detected, "
+                          "hash value: "
+			  (number->string hash)
+			  "\n"))
+	        (system* #$(file-append
+                            (hyprland-configuration-package config)
+			    "/bin/hyprctl")
+			 "--instance"
+			 "0"
+			 "notify"
+			 "0" ; this is a warning
+			 "20000" ; 10s duration
+			 "0" ; default color
+			 "Package default configuration has changed, \
+please review your configuration and notify \
+the Guix service maintainer")))))))
+
+;;;
+;;; Definition of the Home Service.
+;;;
+
+(define-public home-hyprland-service-type
+  (service-type (name 'home-hyprland-config)
+                (description "Configure Hyprland by providing a file
+@file{~/.config/hypr/hyprland.conf}.")
+                (compose (λ (extensions)
+                           (hyprland-extension (exec-once
+                                                (flatten
+                                                 (map
+                                                  hyprland-extension-exec-once
+                                                  extensions)))
+                                               (exec (flatten
+                                                      (map
+                                                       hyprland-extension-exec
+                                                       extensions)))
+                                               (bindings
+                                                (flatten
+                                                 (map
+                                                  hyprland-extension-bindings
+                                                  extensions))))))
+                (extend
+                 (λ (config rules)
+                   (hyprland-configuration
+                    (inherit config)
+                    (exec-once
+                     (append
+                      (hyprland-configuration-exec-once
+                       config)
+                      (hyprland-extension-exec-once
+                       rules)))
+                    (exec
+                     (append (hyprland-configuration-exec
+                              config)
+                             (hyprland-extension-exec
+                              rules)))
+                    (bindings (bindings
+                               (inherit
+                                (hyprland-configuration-bindings
+                                 config))
+                               (binds (append
+                                       (bindings-binds
+                                        (hyprland-configuration-bindings
+                                         config))
+                                       (hyprland-extension-bindings
+                                        rules))))))))
+                (extensions
+                 (list (service-extension
+                        home-activation-service-type
+                                        ; Trigger hyprctl reload after
+                                        ; a new config has been applied
+                        hyprland-reload)
+                       (service-extension
+                        home-profile-service-type
+                        (λ (config)
+                          `(,(hyprland-configuration-package
+                              config))))
+                       (service-extension
+                        home-xdg-configuration-files-service-type
+                        (λ (c)
+                          `(("hypr/hyprland.conf"
+                             ,(mixed-text-file
+                               "hyprland-cfg"
+                               (serialize-configuration
+                                c
+                                hyprland-configuration-fields))))))))
+                (default-value %default-hyprland-configuration)))

base-commit: b282b5ecd90da5dc3a034e7064ac41808f7f6c24
-- 
2.49.0

Message #20 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Andrew Wong <wongandj <at> icloud.com>
To: Carmine Margiotta <email <at> cmargiotta.net>, 77352 <at> debbugs.gnu.org
Cc: ludo <at> gnu.org, janneke <at> gnu.org, tanguy <at> bioneland.org, andrew <at> trop.in
Subject: Re: [bug#77352] [PATCH v2] home: services: define hyprland home
 service
Date: Sun, 30 Mar 2025 21:14:35 -0400

[Message part 1 (text/plain, inline)]

Hello,
I've suggested some small changes which I've attached as patches. I also 
have some questions and comments:

On 3/30/25 1:11p, Carmine Margiotta wrote:> +;;; Gexp executables will 
be serialized on a program-file
> +(define (serialize-executable name value)
> +  (if (string? value) value
> +      (program-file (symbol->string name) value
> +                    #:module-path %load-path))
How will you serialize g-expressions? It seems that they are to be added 
to the store as scripts with 'program-file', but I can't figure out how 
to extract the file path from the resulting object; I tried in a REPL, 
program-file objects cannot be used as strings like this function seems 
to suggest, and none of the their properties seem to clearly give their 
location in the store.

Also, how are you testing your work? I asked in the IRC channel and they 
suggested spooling up a VM via 'guix system vm' with an operating-system 
definition containing the experimental service, but perhaps you have 
your own method.

[0001-home-services-hyprland-default-hyprland-env-Fix-typo.patch (text/x-patch, attachment)]

[0002-home-services-hyprland-default-hyprland-bindings-Rem.patch (text/x-patch, attachment)]

[0003-home-services-hyprland-hyprland-reload-Reword-phrase.patch (text/x-patch, attachment)]

[0004-home-services-hyprland-Localize-flatten.patch (text/x-patch, attachment)]

[0005-home-services-hyprland-Localize-indent.patch (text/x-patch, attachment)]

Message #23 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Carmine Margiotta <email <at> cmargiotta.net>
To: Andrew Wong <wongandj <at> icloud.com>, 77352 <at> debbugs.gnu.org
Cc: ludo <at> gnu.org, janneke <at> gnu.org, tanguy <at> bioneland.org, andrew <at> trop.in
Subject: Re: [bug#77352] [PATCH v2] home: services: define hyprland home
 service
Date: Mon, 31 Mar 2025 22:14:25 +0200

Hello Andrew,
thank you for your patches!

On 3/31/25 03:14, Andrew Wong wrote:
> How will you serialize g-expressions? It seems that they are to be added 
> to the store as scripts with 'program-file', but I can't figure out how 
> to extract the file path from the resulting object; I tried in a REPL, 
> program-file objects cannot be used as strings like this function seems 
> to suggest, and none of the their properties seem to clearly give their 
> location in the store.

As stated in the define-configuration documentation[1], serialization 
procedures should return strings or g-expressions; in case of 
program-file a g-expression that will ungexp to the script's path will 
be returned and the result will be something like:
"exec = /gnu/store/h98yjz6b2rhmxr48c11cy84d3nwf6a7x-exec"

> Also, how are you testing your work? I asked in the IRC channel and they 
> suggested spooling up a VM via 'guix system vm' with an operating-system 
> definition containing the experimental service, but perhaps you have 
> your own method.

This matches my current workflow perfectly. I used to develop this 
service directly in my system configuration, but that wasn’t the best 
way to test this kind of code. Using a VM is actually pretty 
straightforward! If you need anything about that, feel free to ask me.

[1] https://guix.gnu.org/manual/en/html_node/Complex-Configurations.html

Message #26 received at 77352 <at> debbugs.gnu.org (full text, mbox):

From: Daniel Ziltener <dziltener <at> lyrion.ch>
To: 77352 <at> debbugs.gnu.org
Subject: Re: [PATCH] home: services: define hyprland home service
Date: Sat, 5 Apr 2025 03:00:20 +0200

[Message part 1 (text/plain, inline)]

On 3/29/25 10:06p, Andrew Wong wrote:

> I've been managing them declaratively by making `exec-once` calls to
> `hyprctl plugin load`, so maybe the service could use those. Another 
> possiblity is fabricating hyprpm's state.

No need to do that - you can add lines like this to the hyprland.conf:

```
plugin=/gnu/store/bpcyf6hwzg15iidki24v51iak05skcqx-hyprland-plugin-hyprscroller-0.48.1/lib/hyprscroller.so
```

[Message part 2 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.